Sample11
to sample11 :size
(for "i 0.0 1.05 [
circle * :size i :size
] 0.05)
end
![](../img/s11.gif)
sample11 100 rt 90 sample11
100として実行しました。
球面のように見えますが、楕円を連続で描かせているだけです。
stampoval手続きでも描けますが、cirrcleを使った方が簡単になりますね。
Sample12
to sample12
local "size
make "size 5
window
repeat 18 [
repeat 8 [
penup
forward 3
pendown
stampoval :size :size
make "size (+ :size 4)
]
right 120
]
end
![](../img/s12.jpg)
640 * 480
のグラフィックウインドウ内いっぱいに円を描かせました。
円が、渦を巻いている様な感じですが、三角形の辺をタートルが移動しながら描画しているので、そんな風になります。
移動する図形を、三角形以外の図形に変更したり、円を楕円や多角形に変えてみると面白いかも知れません。
![](../img/bret.gif)
Sample13
to sample13 :ring1 :ring2 [:poly 0] 2
local "step
make "step (/ 360 16)
(local "po.x "po.y)
(for "i 0 360 [
make "po.x (* :ring1 cos :i)
make "po.y (* :ring1 sin :i)
penup
setxy sentence :po.x :po.y
pendown
if :poly <> 0 [
newpoly :ring2 :poly
left :step
] [
stampoval :ring2 :ring2
]
] :step)
end
スピログラフと言う図形だそうです。K-)
円周上を図形を移動して描画しています。引数 ring1
が、移動の為の座標を求めています。
基本的に円だけで描く図形ですが、多角形でも描いてみました。
1)sample13 30 60
2)(sample13 30 60 3)
3)(sample13 30 60 6)
4)sample13 60 30
5)(sample13 60 30 4)
円と多角形では、大きさが違いますが多角形では引数
ring2 を直径としている為です。
2倍すれば、ほぼ円と同じ大きさになりますが、このままの方が面白い図形になります。
Sample14
to sample14_sub :size.x :size.y
repeat 8 [
circle size.x :size.y
right 22.5
]
end
to sample14 :size
local "current.color
make "current.color pencolor
local "reduce
name 0.42 "reduce
setwidth 8
sample14_sub * :size :reduce :size
setwidth 3
setpc "gold
sample14_sub * :size :reduce :size
setpc :current.color
setwidth 2
sample14_sub (product :size :reduce 0.4) (* :size 0.4)
setwidth 1
end
![](../img/s14.gif)
circle
のサンプルと、ほぼ一緒でしたね。:-D
単に、線の太さを変えて描いてみただけだよ。
sample14_sub (product :size :reduce 0.4) (* :size
0.4)
実は、この部分を採上げたかっただけなんです。
product と言う指示(コマンド)があります。
これ、掛算の * 演算子と一緒なんです。
詳しくは、「演算子と優先順位」の方で説明しています。
ここでは、掛算を連続でする関数として使っています。
![](../img/bret.gif)
|