Recent changes to ExamplePythagoras

ExamplePythagoras modified by A. Vontobel

A. Vontobel — Tue, 18 Aug 2015 23:10:20 -0000

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

     #! drawj2d -T svg -r96 -W 100 -H 100 ExamplePythagoras.hcl
@@ -39,6 +41,3 @@
     m $ML; mr [mm 4  4]; font
     texlabel {\displaystyle  c^2 = (a+b)^2 - 4 \frac{a b}{2} = a^2 + b^2}

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

ExamplePythagoras modified by a v

a v — Sat, 02 May 2015 23:31:00 -0000

--- v5
+++ v6
@@ -34,6 +34,10 @@
     pen blue
     dimangle $ML [++ $ML "$b -$a"] $BM
     m "0 0"; dimangle 180 270
+    
+    # write equation
+    m $ML; mr [mm 4  4]; font
+    texlabel {\displaystyle  c^2 = (a+b)^2 - 4 \frac{a b}{2} = a^2 + b^2}

ExamplePythagoras modified by a v

a v — Sat, 02 May 2015 23:30:01 -0000

ExamplePythagoras modified by a v

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

--- v3
+++ v4
@@ -22,23 +22,18 @@
     pen red 0.2
     font tex 6; # Sets font to computer modern, 6mm
     set d [mm 10]
-    set v [geom.norm $a $b]
     m [++ $BL "0 $d"]
     dimlinerel $a 0  a
     dimlinerel $b 0  b
-    dimline [++ $BM [** -$d $v]] [++ "0 -$a" [** -$d $v]]  c
+    dimline [geom.parallel "0 -$a" $BM $d] c
     m "$d 0"
     dimlinerel 0 -$a a
     dimlinerel 0 -$b b

     # draw perpendicular sign
     pen blue
-    m $ML; mr [** [mm 5] $v]
-    linerel [** [mm 5] [geom.norm $b -$a]]
-    linerel [** [mm 5] [geom.norm -$a -$b]]
-    m -[mm 5] 0
-    linerel 0 -[mm 5]
-    linerel [mm 5] 0
+    dimangle $ML [++ $ML "$b -$a"] $BM
+    m "0 0"; dimangle 180 270

ExamplePythagoras modified by a v

a v — Tue, 07 Oct 2014 21:14:33 -0000

ExamplePythagoras modified by a v

a v — Tue, 07 Oct 2014 21:14:12 -0000

ExamplePythagoras modified by a v

a v — Tue, 07 Oct 2014 21:12:44 -0000

Example taken from asymptote gallery.

#! drawj2d -T svg -r96 -W 100 -H 100 ExamplePythagoras.hcl

offset 80 80
unitlength 10

set a 3
set b 4

# vertices
set ML "-[+ $a $b] -$b" ; # middle left
set BM "-$b 0"          ; # bottom middle
set BL "-[+ $a $b] 0"   ; # bottom left

# draw squares
m 0 0; rectangle -[+ $a $b] -[+ $a $b];
m $BM; lr $b -$a; lr -$a -$b; lr -$b $a; l $BM;

# draw dimension lines
pen red 0.2
font tex 6; # Sets font to computer modern, 6mm
set d [mm 10]
set v [geom.norm $a $b]
m [++ $BL "0 $d"]
dimlinerel $a 0  a
dimlinerel $b 0  b
dimline [++ $BM [** -$d $v]] [++ "0 -$a" [** -$d $v]]  c
m "$d 0"
dimlinerel 0 -$a a
dimlinerel 0 -$b b

# draw perpendicular sign
pen blue
m $ML; mr [** [mm 5] $v]
linerel [** [mm 5] [geom.norm $b -$a]]
linerel [** [mm 5] [geom.norm -$a -$b]]
m -[mm 5] 0
linerel 0 -[mm 5]
linerel [mm 5] 0