Group Abstract

Message Boards

WOLFRAM COMMUNITY

191 Views

2 Replies

5 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Graphics and Visualization Wolfram Language

How to create circular arcs with arrowheads?

Richard Frost

Richard Frost, Frost Concepts

Posted 27 days ago

I am creating an illustration with 3 circular arcs. I would like to have counter-clockwise arrowheads on them. How is this done? (* example *) xCoord = 1.5; yCoord = 0.475; r = 0.365; Graphics[{ Green, Thick, Circle[{xCoord, yCoord}, {r, r}, {-Pi (1/3 - 1/12), Pi (1/3 - 1/12)}], Circle[{xCoord, yCoord}, {r, r}, {Pi (1/3 + 1/12), Pi (2/3 + 1/4)}], Circle[{xCoord, yCoord}, {r, r}, {Pi (1 + 1/12), Pi (3/2 + 1/12)}] }, ImageSize -> Small]

I am creating an illustration with 3 circular arcs. I would like to have counter-clockwise arrowheads on them. How is this done?

(* example *)
xCoord = 1.5;
yCoord = 0.475;
r = 0.365;
Graphics[{
  Green, Thick,
  Circle[{xCoord, yCoord}, {r, r}, {-Pi (1/3 - 1/12), Pi (1/3 - 1/12)}],
  Circle[{xCoord, yCoord}, {r, r}, {Pi (1/3 + 1/12), Pi (2/3 + 1/4)}],
  Circle[{xCoord, yCoord}, {r, r}, {Pi (1 + 1/12), Pi (3/2 + 1/12)}]
  }, ImageSize -> Small]

enter image description here

POSTED BY: Richard Frost

2 Replies

Sort By:

Henrik Schachner

Henrik Schachner, Radiation Therapy Center, Weilheim, Germany

Posted 27 days ago

In its simplest form this could be a start: xCoord = 1.5; yCoord = 0.475; r = 0.365; Graphics[{Green, Thick, Arrowheads[Large], Arrow@Circle[{xCoord, yCoord}, {r, r}, {-Pi (1/3 - 1/12), Pi (1/3 - 1/12)}], , Arrow@Circle[{xCoord, yCoord}, {r, r}, {Pi (1/3 + 1/12), Pi (2/3 + 1/4)}], Arrow@Circle[{xCoord, yCoord}, {r, r}, {Pi (1 + 1/12), Pi (3/2 + 1/12)}]}, ImageSize -> Small]

In its simplest form this could be a start:

xCoord = 1.5;
yCoord = 0.475;
r = 0.365;
Graphics[{Green, Thick, Arrowheads[Large], 
  Arrow@Circle[{xCoord, yCoord}, {r, r}, {-Pi (1/3 - 1/12), Pi (1/3 - 1/12)}], , 
  Arrow@Circle[{xCoord, yCoord}, {r, r}, {Pi (1/3 + 1/12), Pi (2/3 + 1/4)}], 
  Arrow@Circle[{xCoord, yCoord}, {r, r}, {Pi (1 + 1/12),  Pi (3/2 + 1/12)}]}, ImageSize -> Small]

POSTED BY: Henrik Schachner

Mariusz Iwaniuk

Mariusz Iwaniuk, engineer, math hobbyist.

Posted 27 days ago

POSTED BY: Mariusz Iwaniuk

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback