Vianoce s robotnackou

Obrazky robene imaginom

VLOCKA

to vlocka :r :d :u
 if :u >=1 
 [repeat :r [fd :d
             vlocka :r :d/3 :u-1
             pu
             bk :d
             pd
 if :u=1 [fd :d*2/3 
          lt 45 
          fd :d/3
          pu
          bk :d/3
          pd
          rt 90
          fd :d/3
          pu
          bk :d/3
          lt 45
          bk :d*2/3
          pd 
          ]            
             lt 360/:r
          ]
 ]

r - koľko "cípa je vločka"
d - základná dĺžka vločky
u - hustota vločky
Odporúčam zadať: vlocka 8 150 2

STROM

to strom :d :n
 fd :d
 repeat :n[lt 90 fd :d rt 135 fd sqrt(:d*:d*2) lt 45]
 lt 180
 repeat :n[lt 45 fd sqrt(:d*:d*2) rt 135 fd :d lt 90]
end

strom 50 3