10/08 三原型-設計應用 飛向宇宙浩瀚無敵~!!

飛向宇宙浩瀚無敵~!!




概念:
剛看完PIXAR沒多久
想到玩具總動員巴斯常說的那句名言
於是有此創作

程式碼
// enter program

size 200 200
load dbngraphics.dbn

fast
Repeat A 30 45
{
circle 60 60 (A/2+5) 80
}


Repeat A 25 50
{
pen 80 30 0
rectangle A 25 A 50
}


Repeat A 0 200
{
pen 100
Line 0 (A*6) (A*6) 200
pen 60 20 0
Line 0 (A*6) (A*6) 160
}

Repeat A 0 200
{
pen 60 20 0
Line 160 (A*6) (A*6) 0
}


Repeat A 0 100
{
pen 100
Line 200 (A*6) (A*6) 0
}

Repeat A 35 40
{
pen 90 70 0
rectangle A 2 A 40
}

Repeat A 40 35
{
pen 90 70 0
rectangle 40 A 2 A
}

Repeat A 75 125
{
pen 20 30 60
triangle A 100 100 A 125 125
}

Repeat A 85 115
{
pen 80 30 40
triangle A 90 90 A 115 115
}