Logo do wzięcia:
|
to kwa :a :n repeat :n [fd :a left 360 / :n] end to kwakwa1 :x :k to kwakwa2 :y :m if :k = 0 [ kwa :x 4 ] if :m = 0 [ kwa :y 4 ] if :k > 0 [ kwa :x 3 if :m > 0 [ fd :y fd :x kwakwa2 :y (:m - 1 ) kwakwa1 :x (:k - 1 ) fd -:y fd -:x kwa :y 3 ] ] end endCo wyczyniają?
TO wiel :a :k :n IF :n > 0 [ FORWARD :a/2 kol :a/2/(TAN (180/:k)) :k :n-1 FORWARD :a/2 LEFT 360/:k REPEAT :k-1 [FORWARD :a LEFT 360/:k ] ] END TO kol :r :k :n IF :n > 0 [ REPEAT 360 [LEFT 360/360 FORWARD 2*:r*(SIN (180/360)) ] LEFT 360/:k/2 wiel 2*:r*(SIN (180/:k)) :k :n LEFT -360/:k/2 ] END
TO cosik1 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a cosik1 :a/2 :k :n-1 FORWARD -:a LEFT 360/:k] ] END |
TO cosik2 :a :k :n IF :n > 0 [ REPEAT :k [LEFT 360/:k FORWARD :a cosik2 :a/2 :k :n-1 FORWARD -:a ] ] END |
TO cosik3 :a :k :n IF :n > 0 [ REPEAT :k [cosik3 :a/2 :k :n-1 FORWARD :a FORWARD -:a LEFT 360/:k] ] END |
TO cosik4 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a cosik4 :a/3 :k :n-1 FORWARD -:a LEFT 360/:k] ] END |
TO cosik5 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a LEFT 360/:k cosik5 :a/2 :k :n-1 FORWARD -:a] ] END |
TO cosik6 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a LEFT 360/:k cosik6 :a/3 :k :n-1 FORWARD -:a] ] END |
TO cosik7 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a LEFT 360/:k FORWARD -:a cosik7 :a/2 :k :n-1 ] ] END |
|
TO pudlo1 :a :n REPEAT :n [FORWARD :a LEFT 90 FORWARD :a RIGHT 90 ] LEFT 180 REPEAT :n [FORWARD :a RIGHT 90 FORWARD :a LEFT 90 ] END |
TO pudlo2 :a :n IF :n>0 [FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo2 :a :n-1 LEFT 90 FORWARD :a LEFT 90 FORWARD :a LEFT 180 ] END |
TO pudlo3 :a :n IF :n>0 [REPEAT 2 [FORWARD :a LEFT 90 FORWARD :a*:n*2 LEFT 90] FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo3 :a :n-1 ] END |
TO pudlo4 :a :n IF :n>0 [REPEAT 2 [FORWARD :a LEFT 90 FORWARD :a*:n*2 LEFT 90] FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo4 :a :n-1 RIGHT -90 FORWARD -:a LEFT -90 FORWARD -:a ] END |
TO pudlo5 :a :n IF :n=1 [LEFT 90] IF :n>1 [FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo5 :a :n-1 FORWARD :a LEFT 90 FORWARD :a RIGHT 90 ] END |