- deynonicus

- stegosauro

- baobab

- vulcano

- diplodocus 1 e 2

- triceratopo (1, 2 e 3)

- palme (1, 2 e 3)

- scena di caccia

- iguanodonte

- tirannosauro (1, 2 e 3)

- pino

- scene di lotta

- anchilosauro 1 e 2

- tirannosauro (4 e 5)

- sequoia

- incontro

- pterosauro

- velociraptor

- monte

- demo

to bao1 :s

setpensize [2 2] lt 45 med.tri.lt :s pu fd 5

lt 45 fd 5 setfloodcolor [180 130 120] fill bk 5 rt 45 bk 5 rt 45 pd triangle.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s lt 45 pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 90 fd :s/sqrt 2 rt 135 pd

small.tri.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 fd :s/2 pd small.tri.rt :s pu fd 5

rt 45 fd 5 setfloodcolor [50 150 100] fill bk 5 lt 45 bk 5 lt 45 pd triangle.rt :s pu fd 5 rt 30 fd 5 setfloodcolor [50 150 50] fill bk 5 lt 30 bk 5 rt 135 fd :s lt 135 pd pargram.lt :s pu fd 5 lt 30 fd 5 setfloodcolor [0 150 50] fill

bk 5 rt 30 bk 5 home pd

end

to caccia

setx -200 setx 200 pu setx -150 pd diplo2 150 pu setxy 120 25 pd tyra1b 100

end >

to dey :s

setpensize [2 2] rt 45 triangle.rt :s pu fd 5

rt 45 fd 5 setfloodcolor [50 60 70] fill bk 5

lt 45 bk 5 fd :s/8 lt 45 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 rt 45

fd :s/2 lt 45 pd triangle.rt :s pu fd 5 rt 30

fd 5 fill bk 5 lt 30 bk 5 fd :s/3 lt 70 pd small.tri.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 rt 70 fd :s*2/3 lt 45 bk :s/5 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 fd :s/5 bk :s/sqrt 2 rt 45 bk :s/2 rt 45 pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 pd pargram.rt :s pu fd 5 rt 30 fd 5 fill

bk 5 lt 30 bk 5 home pd

end >

to diplo :s

setpensize [2 2] rt 70 triangle.lt :s pu fd 5

lt 45 fd 5 setfloodcolor [150 120 140] fill bk 5 rt 45 bk 5 fd :s rt 45 bk (:s/sqrt 2)-:s/2 pd

triangle.lt :s pu fd 5 lt 30 fd 5 fill bk 5

rt 30 bk 5 rt 180 pd small.tri.rt :s pu fd 5

rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45

fd :s/sqrt 8 pd square.lt :s pu fd 5 lt 45 fd 5

fill bk 5 rt 45 bk 5 fd (:s/2)-(:s/sqrt 8) rt 135 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill

bk 5 lt 45 bk 5 lt 135 fd (:s/sqrt 2)-(:s/2)

lt 90 pd pargram.rt :s pu fd 5 rt 30 fd 5

fill bk 5 lt 30 bk 5 rt 45 fd :s/2 lt 45 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 home pd

end

to diplo2 :s

setpensize [2 2] rt 55 triangle.lt :s pu fd 5

lt 45 fd 5 setfloodcolor [150 160 140] fill bk 5 rt 45 bk 5 fd :s-(:s/sqrt 2) rt 45 pd triangle.lt :s pu fd 5 lt 30 fd 5 fill bk 5

rt 30 bk 5 lt 45 fd :s/sqrt 2 rt 45 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 bk :s/sqrt 2 pd small.tri.lt :s pu fd 5

lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45 pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 45 fd :s/2 lt 135 pd pargram.rt :s pu

fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45

fd :s/2 lt 45 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end >

to igua :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [150 150 130] fill bk 5 lt 45 bk 5 fd :s lt 90 pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2) rt 90 fd (:s-(:s/sqrt 2))/4 lt 135 pd med.tri.lt :s

pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 rt 135

bk (:s-(:s/sqrt 2))/4 rt 90 fd :s/sqrt 8 rt 45 pd triangle.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 fd :s/sqrt 2 rt 45 pd mall.tri.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45

bk :s/sqrt 2 lt 45 fd :s/sqrt 2 rt 90 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45 fd :s/2 pd small.tri.rt :s pu fd 5

rt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end >

to lito :s

setpensize [2 2] small.tri.rt :s pu fd 5 rt 30 fd 5 setfloodcolor [200 150 130] fill bk 5 lt 30 bk 5 fd :s/2 lt 45 pd triangle.lt :s pu fd 5

lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2) pd square.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 rt 90 pdmed.tri.rt :s pu fd 5 rt 45

fd 5 fill bk 5 lt 45 bk 5 rt 45 pd

triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 bk ((:s*sqrt 8)-:s)/4 rt 135 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 lt 45 fd :s/4 lt 90

fd (:s+:s*sqrt 2)/4 rt 180 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 home pd

end

to lito2 :s

setpensize [2 2] lt 45 small.tri.lt :s pu fd 5 lt 30 fd 5 setfloodcolor [150 150 130] fill bk 5 rt 30 bk 5 fd :s/2 pd triangle.lt :s pu fd 5

lt 45 fd fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2)

pd square.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 rt 90 Pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 rt 45 pd

triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 bk ((:s*sqrt 8)-:s)/4 rt 135 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 lt 45 fd :s/4 lt 90

fd (:s+:s*sqrt 2)/5 rt 180 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 home pd

end >

to lotta

pu sety -25 pd setx 300 setx -300 pu

style='font-family:Courier'>setxy -100 -10 pd trice3 150 pu setx 50 pd tyra1b 100

end >

TO MED.TRI.LT :SIDE

FD 2*(:SIDE/(2*SQRT 2)) LT 135

FD :SIDE/2 LT 90 FD :SIDE/2 LT 135

END

TO MED.TRI.RT :SIDE

FD 2*(:SIDE/(2*SQRT 2)) RT 135

FD :SIDE/2 RT 90 FD :SIDE/2 RT 135

END

TO PARGRAM.LT :SIDE

REPEAT 2 [FD :SIDE/(2*SQRT 2) LT 45 FD :SIDE/2 LT 135]

END

TO PARGRAM.RT :SIDE

REPEAT 2 [FD :SIDE/(2*SQRT 2) RT 45 FD :SIDE/2 RT 135]

END

TO SMALL.TRI.LT :SIDE

FD :SIDE/2 LT 135 FD (:SIDE/SQRT 2)/2 LT 90

FD (:SIDE/ SQRT 2)/2 LT 135

END

TO SMALL.TRI.RT :SIDE

FD :SIDE/2 RT 135 FD (:SIDE/SQRT 2)/2 RT 90

FD (:SIDE/ SQRT 2)/2 RT 135

END

TO SQUARE.LT :SIDE

MAKE "SIDE1 :SIDE/(2*SQRT 2)

REPEAT 4[FD :SIDE1 LT 90]

END

TO SQUARE.RT :SIDE

MAKE "SIDE1 :SIDE/(2*SQRT 2)

REPEAT 4[FD :SIDE1 RT 90]

END

TO TANGRAM2 :SIDE

SETH 270 SMALL.TRI.LT :SIDE pu fd :side/2

lt 45 pd MED.TRI.RT :SIDE SQUARE.LT :SIDE

FD :SIDE1 pu fd :side lt 45 pd PARGRAM.rT :SIDE

SMALL.TRI.LT :SIDE pu lt 45 fd :side*2 rt 135 pd

TRIANGLE.rT :SIDE SETH 0 TRIANGLE.LT :SIDE

END

TO TRIANGLE.LT :SIDE

FD :SIDE LT 135 FD :SIDE/SQRT 2

LT 90 FD :SIDE/SQRT 2 LT 135

END

TO TRIANGLE.rT :SIDE

FD :SIDE rT 135 FD :SIDE/SQRT 2

RT 90 FD :SIDE/SQRT 2 rT 135

END >

to meet

setx 400 setx -300 pu setx 100 pd

lang=IT diplo2 150 pu setx -50 pd steg 100

end >

to monte :s

setpensize [1 1] triangle.rt :s

pu fd 5 rt 45 fd 5 setfloodcolor [150 130 120]

fill bk 5 lt 45 bk 5 rt 90 pd triangle.lt :s pu

fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 bk :s/2

lt 45 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 rt 45 bk :s/2 lt 45 pd pargram.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 fd :s/(2*sqrt 2) rt 45 pd small.tri.lt :s

pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 45

fd :s/(2*sqrt 2) pd square.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 fd :s/sqrt 2 rt 135 pd small.tri.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 home pd

end >

to demo

setpensize [1 1] pu sety -100 pd setx -500

setx 500 pu home bk 125

setfloodcolor [100 200 100] fill fd 5

setxy -200 -100 pd monte 180 pu setxy 75 -100 pd vulcano 200 pu setxy -398 -100 seth 0 pd

palm1 30 seth 0 pd pu setxy -320 -110 seth 0 pd

palm2 50 pu setxy -435 -100 seth 0 pd palm3 40

setpensize [1 1] repeat 150 [fd 2 lt 360/150] pu

setxy -400 -250 seth 0 pd diplo2 95 pu

setxy -270 -250 seth 0 pd diplo 75 pu

setxy -200 -340 seth 0 pd tyra4 60 pu

setxy 400 -100 seth 0 pd pino 50 pu

setxy 340 -100 seth 0 pd pino 40 pu

setxy 250 -110 seth 0 pd seq 50 pu

setxy 300 -100 seth 0 pd pino 30 pu

setxy 450 -120 seth 0 pino 45 pu

setxy 300 -250 seth 0 pd steg 80 pu

setxy 200 -200 seth 0 pd lito2 40 pu

setxy 400 -200 seth 0 pd vel 30 pu

setxy 350 -150 seth 0 pd vel 30 pu

setxy 360 -300 seth 0 pd vel 30 pu

setxy 300 -170 seth 0 pd vel 40 pu lt 90 fd 5

setfloodcolor [220 150 0] fill bk 5 rt 90 fd 25

setfloodcolor [100 150 220] fill home pd

end >

to palm1 :s

setpensize [2 2] lt 45 small.tri.lt :s pu fd 5 lt 30 fd 5 setfloodcolor [200 180 160] fill bk 5 rt 30 bk 5 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 fd :s/(2*sqrt 2) lt 45 pd small.tri.rt :s pu fd 5 rt 45 fd fill bk 5

lt 45 bk 5 rt 45 fd :s/(2*sqrt 2) pd

square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2)rt 90 bk :s/5 pd triangle.lt :s pu fd 5 lt 45 fd 5

setfloodcolor [50 150 100] fill bk 5 rt 45 bk 5 lt 120 pd triangle.rt :s pu fd 5 rt 30 fd 5 setfloodcolor [50 150 80] fill bk 5 lt 30 bk 5 lt 60 pd med.tri.rt :s pu fd 5 rt 45 fd 5

setfloodcolor [0 170 100] fill bk 5 lt 45 bk 5 home pd

end

to palm2 :s

setpensize [2 2] lt 45 small.tri.lt :s pu fd 5 lt 30 fd 5 setfloodcolor [150 130 100] fill bk 5 rt 30 bk 5 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 fd :s/(2*sqrt 2) lt 45 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 rt 45 fd :s/(2*sqrt 2) pd

square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2) rt 90 bk :s/5 pd triangle.lt :s pu fd 5 lt 45 fd 5

setfloodcolor [50 200 100] fill bk 5 rt 45 bk 5 lt 120 pd med.tri.rt :s pu fd 5 rt 45 fd 5 setfloodcolor [50 150 100] fill bk 5 lt 45 bk 5 lt 60 pd triangle.rt :s pu fd 5 rt 30 fd 5 setfloodcolor [50 150 50] fill bk 5 lt 30 bk 5 home pd

end

to palm3 :s

setpensize [2 2] lt 45 small.tri.lt :s pu fd 5 lt 30 fd 5 setfloodcolor [200 150 100] fill bk 5 rt 30 bk 5 pd small.tri.rt :s pu fd 5 rt 45 fd 5

fill bk 5 lt 45 bk 5 rt 45 fd :s/(2*sqrt 2) pd

square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2)lt 90 pd pargram.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45

fd :s/2 rt 135 bk :s/9 pd med.tri.lt :s pu fd 5 lt 45 fd 5 setfloodcolor [50 220 100] fill bk 5 rt 45 bk 5 pd lt 60 triangle.lt :s pu fd 5 lt 45 fd 5 setfloodcolor [50 200 0] fill bk 5 rt 45

bk 5 lt 120 pd triangle.rt :s pu fd 5 rt 30 fd 5

setfloodcolor [50 150 50] fill bk 5 lt 30 bk 5 home pd

end >

to pino :s

setpensize [2 2] square.lt :s pu fd 5 lt 45 fd 5 setfloodcolor [150 110 80] fill bk 5 rt 45 bk 5 fd :s/(2*sqrt 2) lt 90 fd :s/(4*sqrt 2) pd med.tri.rt :s pu fd 5 rt 45 fd 5 setfloodcolor [50 150 100] fill bk 5 lt 45 bk 5

bk :s/(2*sqrt 2) pd pargram.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45 pd

small.tri.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 lt 45 bk :s/(2*sqrt 2) rt 45 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 fd :s/2 lt 45 bk(:s-(:s/sqrt 2))/2 pd triangle.rt :s pu fd 5 rt 30 fd 5

setfloodcolor [50 150 0] fill bk 5 lt 30 bk 5

rt 45 fd :s/sqrt 2 lt 45 bk :s/2 pd

triangle.rt :s pu fd 5 rt 45 fd 5

setfloodcolor [50 200 100] fill bk 5 lt 45 bk 5 home pd

end >

to pter :s

setpensize [2 2] rt 90 triangle.lt :s pu fd 5

lt 45 fd 5 setfloodcolor [200 180 170] fill

bk 5 rt 45 bk 5 rt 45 bk :s/5 pd square.rt :s

pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 lt 90

bk :s/8 pd med.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 bk :s/8 lt 120 pd triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 120

bk ((:s*sqrt 2)-:s)/4 lt 90 bk :s/(2*sqrt 2) pd

pargram.lt :s pu fd 5 lt 30 fd 5fill bk 5 rt 30 bk 5 lt 135 pd small.tri.rt :s pu fd 5 rt 30

fd 5 fill bk 5 lt 30 bk 5 lt 30 pd

small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 home pd

end >

to seq :s

setpensize [2 2] square.lt :s pu fd 5 lt 45 fd 5

setfloodcolor [150 100 80] fill bk 5 rt 45 bk 5

fd s/(2*sqrt 2) rt 90 bk :s/sqrt 2 pd

pargram.lt :s pu fd 5 lt 30 fd 5

setfloodcolor [0 200 150] fill bk 5 rt 30 bk 5 fd :s/(2*sqrt 2) lt 45 pd small.tri.rt :s pu

fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45

fd :s/sqrt 2 lt 135 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/2 lt 45

bk :s/(2*sqrt 2) pd triangle.rt :s pu fd 5 rt 30 fd 5 setfloodcolor [50 150 130] fill bk 5 lt 30 bk 5 rt 45 fd :s/sqrt 2 rt 135 bk :s/2 pd triangle.lt :s pu fd 5 lt 45 fd 5

setfloodcolor [50 150 100] fill bk 5 rt 45 bk 5 lt 45 fd :s/sqrt 2 rt 45 bk :s/(2*sqrt 2) pd med.tri.lt :s pu fd 5 lt 45 fd 5

setfloodcolor [50 200 100] fill bk 5 rt 45 bk 5 home pd

end >

to steg :s

setpensize [2 2] triangle.lt :s pu fd 5 lt 45

fd 5 setfloodcolor [150 100 70] fill bk 5 rt 45 bk 5 fd :s*3/4 rt 135 pd med.tri.rt :s pu fd 5 rt 45 fd 5 setfloodcolor [150 120 100] fill bk 5 lt 45 bk 5 rt 135 fd :s/4 rt 45 pd square.lt :s

pu fd 5 lt 45 fd 5 setfloodcolor [150 100 70] fill bk 5 rt 45 bk 5 lt 135 fd :s/2 rt 90 pd

small.tri.rt :s pu fd 5 rt 30 fd 5

setfloodcolor [150 120 100] fill bk 5 lt 30 bk 5

fd (:s/2)+(:s/4) rt 90 bk :s/4 pd triangle.rt :s

pu fd 5 rt 30 fd 5 setfloodcolor [150 100 70]

fill bk 5 lt 30 bk 5 fd :s*3/4 lt 180 pd

pargram.rt :s pu fd 5 rt 30 fd 5

setfloodcolor [150 120 100] fill bk 5 lt 30 bk 5

fd :s/(2*sqrt 2) rt 45 fd :s/2 rt 135 pd

small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 home pd

end >

to trice1 :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45 fd 5 setfloodcolor [120 100 80] fill bk 5 lt 45 bk 5 rt 45 bk :s/sqrt 45 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45

fd :s/2 rt 45 pd small.tri.lt :s pu fd 5 lt 30

fd 5 fill bk 5 rt 30 bk 5 fd :s/2 lt 135

fd :s/(4*sqrt 2) pd square.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 bk :s/sqrt 2 rt 45 pd triangle.lt :s pu fd 5 lt 30 fd 5 fill bk 5

rt 30 bk 5 lt 45 fd 9*:s/sqrt 32 lt 135 fd :s/2

rt 45 pd med.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/sqrt 32 rt 45 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 home pd

end

to trice2 :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [190 180 190] fill bk 5 lt 45 bk 5 rt 45 bk :s/sqrt 45 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45

fd :s/2 rt 45 pd triangle.lt :s pu fd 5 lt 30

fd 5 fill bk 5 rt 30 bk 5 fd :s rt 90 pd

square.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 rt 135 fd :s/sqrt 2 lt 45 pd small.tri.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45

fd :s*3/sqrt 8 lt 45 bk :s/2 rt 45 pd med.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 fd :s/sqrt 32 rt 45 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end

to trice3 :s

setpensize [2 2] triangle.lt :s pu fd 5 lt 45

fd 5 setfloodcolor [150 140 120] fill bk 5 rt 45 bk 5 lt 45 bk :s/sqrt 45 lt 45 pd pargram.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45

fd :s/2 lt 45 pd triangle.rt :s pu fd 5 rt 30

fd 5 fill bk 5 lt 30 bk 5 fd :s lt 90 pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 135 fd :s/sqrt 2 rt 45 pd

small.tri.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 rt 45 fd :s*3/sqrt 8 rt 45 bk :s/2 lt 45 pd med.tri.rt :s pu fd 5 rt 45 fd 5

fill bk 5 lt 45 bk 5 fd :s/sqrt 32 lt 45 pd

small.tri.rt :s pu fd 5 rt 45 fd 5

fill bk 5 lt 45 bk 5 home pd

end

to tyra1 :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [200 160 150] fill bk 5 lt 45 bk 5 rt 45 bk :s/3 rt 45 pd pargram.lt :s pu

fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45

fd :s/2 pd triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5+:s/6 lt 45

fd (:s-:s/(2*sqrt 2)) pd square.lt :s pu fd 5

lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 135 pd small.tri.lt :s pu fd 5 lt 30 fd 5 fill bk 5

rt 30 bk 5 rt 45 fd :s/sqrt 2 rt 135 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 fd :s/2 lt 135 bk :s/8*sqrt 2 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end

to tyra1b :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [150 140 150] fill bk 5 lt 45 bk 5 rt 45 bk :s/3 rt 45 pd pargram.lt :s pu

fd 5 lt 30 fd 5 bk 5 rt 30 bk 5 lt 45 fd :s/2 pd triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5+:s/6 lt 45 fd (:s-:s/(2*sqrt 2)) pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 135 pd small.tri.lt :s pu fd 5 lt 30

fd 5 fill bk 5 rt 30 bk 5 rt 90 fd :s/2 lt 60 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5

rt 45 bk 5 rt 15 bk :s/8*sqrt 2 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end

to tyra2 :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [150 150 150] fill bk 5 lt 45 bk 5 rt 45 bk :s/3 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 bk 5 rt 30 bk 5 lt 45 fd :s/2 pd

triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5+:s/6 lt 45 fd (:s-:s/(2*sqrt 2)) pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 90 fd :s/(2*sqrt 2) lt 135 pd small.tri.lt :s pu fd 5 lt 30 fd 5 fill bk 5

rt 30 bk 5 rt 135 fd :s/(2*sqrt 2) rt 135 pd

small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 fd :s/2 lt 135 bk :s/8*sqrt 2 pd

med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end

to tyra3 :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [220 200 180] fill bk 5 lt 45 bk 5 rt 45 bk :s/3 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45 fd :s/2 pd triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5+:s/6 lt 45 fd (:s-:s/(2*sqrt 2)) pd

square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45

bk 5 lt 135 pd small.tri.rt :s pu fd 5 rt 30

fd 5 fill bk 5 lt 30 bk 5 rt 45 fd :s/sqrt 2

rt 135 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 fd :s/2 lt 135

bk :s/8*sqrt 2 pd med.tri.rt :s pu fd 5 rt 45

fd 5 fill bk 5 lt 45 bk 5 home pd

end

to tyra4 :s

setpensize [2 2] triangle.rt :s pu fd 5 rt 45

fd 5 setfloodcolor [140 120 120] fill bk 5 lt 45 bk 5 rt 45 bk :s/3 rt 45 pd pargram.lt :s pu fd 5 lt 30 fd 5 fill bk 5 rt 30 bk 5 lt 45 fd :s/2 pd triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5+:s/6 lt 45 fd (:s-:s/(2*sqrt 2)) pd square.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 lt 135 pd small.tri.rt :s pu fd 5 rt 30

fd 5 fill bk 5 lt 30 bk 5 rt 90 fd :s/2 lt 60

pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 rt 15 bk :s/8*sqrt 2 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 home pd

end

to tyr

pu sety -25 pd setx -450 setx 450 pu home pd tyra1 100 pu setx -200 pd tyra2 100 pu setx -400 pd tyra3 100 pu setx 200 pd tyra4 100 pu

setx 400 pd tyra1b 100

end

to vel :s

setpensize [2 2] rt 45 triangle.rt :s pu fd 5

rt 45 fd 5 setfloodcolor [80 120 90] fill bk 5

lt 45 bk 5 fd :s/2 pd triangle.lt :s pu fd 5

lt 30 fd 5 fill bk 5 rt 30 bk 5

fd :s-(:s/(2*sqrt 2)) pd pargram.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5

bk :s-(:s/(2*sqrt 2)) lt 45

fd ((:s*sqrt 2)-:s)/2 lt 45 pd med.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 pd fd :s/6 lt 45 pd small.tri.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 rt 45 bk :s/6 fd :s/sqrt 2 rt 45 pd square.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 fd :s/(2*sqrt 2) lt 90 bk :s/6 pd small.tri.rt :s pu fd 5 rt 45 fd 5 fill bk 5

lt 45 bk 5 home pd

end

to vulcano :s

setpensize [1 1] rt 45 triangle.rt :s pu fd 5

rt 45 fd 5 setfloodcolor [150 120 90] fill bk 5

lt 45 bk 5 rt 45 fd :s/sqrt 2 lt 90 pd

square.rt :s pu fd 5 rt 45 fd 5 fill bk 5 lt 45 bk 5 fd :s/sqrt 2 rt 90 pd med.tri.rt :s pu fd 5

rt 45 fd 5 setfloodcolor [180 120 100] fill bk 5

lt 45 bk 5 rt 45 pd small.tri.rt :s pu fd 5

rt 30 fd 5 setfloodcolor [150 120 90] fill bk 5 lt 30 bk 5 lt 45 fd :s/sqrt 2 rt 45 pd triangle.rt :s pu fd 5 rt 30 fd 5 fill bk 5

lt 30 bk 5 rt 45 pd pargram.rt :s pu fd 5 rt 30 fd 5 fill bk 5 lt 30 bk 5 fd :s/(2*sqrt 2) rt 45 pd small.tri.lt :s pu fd 5 lt 45 fd 5 fill bk 5 rt 45 bk 5 home pd

end