Recent changes to ExamplePolarcircle

ExamplePolarcircle modified by A. Vontobel

A. Vontobel — Tue, 18 Aug 2015 23:11:29 -0000

--- v4
+++ v5
@@ -1,7 +1,6 @@
 Example taken from asymptote gallery.

 [[img src=out-ExamplePolarcircle.svg alt="Drawj2d output"]]
-

     #! drawj2d -T svg -r96 -W 150 -H 150  -X 10 -Y 75 ExamplePolarcircle.hcl

ExamplePolarcircle modified by A. Vontobel

A. Vontobel — Tue, 18 Aug 2015 23:11:03 -0000

--- v3
+++ v4
@@ -1,4 +1,6 @@
 Example taken from asymptote gallery.
+
+[[img src=out-ExamplePolarcircle.svg alt="Drawj2d output"]]

     #! drawj2d -T svg -r96 -W 150 -H 150  -X 10 -Y 75 ExamplePolarcircle.hcl
@@ -42,6 +44,3 @@
     m 0 0
     texdimangle "0 0" $XY "1 0" {\theta}

-
-
-[[img src=out-ExamplePolarcircle.svg alt="Drawj2d output"]]

ExamplePolarcircle modified by a v

a v — Thu, 16 Oct 2014 21:38:01 -0000

--- v2
+++ v3
@@ -40,9 +40,7 @@

     pen solid 0.3
     m 0 0
-    arc 0.3  -$theta 0
-    m [expr 0.3*cos(-$theta /2)] [expr 0.3*sin(-$theta /2)]
-    texlabel {\theta} E
+    texdimangle "0 0" $XY "1 0" {\theta}

ExamplePolarcircle modified by a v

a v — Tue, 07 Oct 2014 22:34:00 -0000

ExamplePolarcircle modified by a v

a v — Tue, 07 Oct 2014 22:33:23 -0000

Example taken from asymptote gallery.

#! drawj2d -T svg -r96 -W 150 -H 150  -X 10 -Y 75 ExamplePolarcircle.hcl

unitlength 50
font 6

# axis
pen 0.3
line -0.1 0  2.5 0
texlabel x SW
line 0 1  0 -1.2
texlabel y SW

# unit circle
pen 0.5
circle 1 0  1
fillcircle 1 0 [mm 1]
texlabel {(a,0)}
fillcircle 2 0 [mm 1]
texlabel {(2a,0)}

# xy
set theta 50
set XY "[expr 1 + cos(2* -$theta)] [expr sin(2* -$theta)]"
fillcircle $XY [mm 1]
texlabel {(x,y)} N

pen blue
arrow 0 0 $XY
texlabel r  0 0 $XY

pen red dotted
line 0 0  [X $XY] 0
lineto $XY
texlabel {r\,cos{\theta}} 0 [mm 8]  [X $XY] [mm 8]
m [geom.online "[X $XY] 0" $XY 0.5]
texlabel {r\,sin{\theta}} E

pen solid 0.3
m 0 0
arc 0.3  -$theta 0
m [expr 0.3*cos(-$theta /2)] [expr 0.3*sin(-$theta /2)]
texlabel {\theta} E