WoRk 5-動態意象設計-轉盤

有圖有真相
_____________________________________________________________________________________
程式碼

###### TIME不給打呢 都變空白#######

size 200 200
PAPER 20
forever
{
REPEAT A 0 100
{
PEN 0 0
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REPEAT A 0 100
{
PEN (-20)
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN (-20) 0 0
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REPEAT A 0 100
{
PEN (-40) 0 0
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN (-40)
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REPEAT A 0 100
{
PEN (-60)
LINE 100 100 0 (100-A)
LINE 100 100 (100+A) 0
LINE 100 100 200 (100+A)
LINE 100 100 (100-A) 200
PEN (-60) 0 0
LINE 100 100 (200-A) 200
LINE 100 100 0 (200-A)
LINE 100 100 A 0
LINE 100 100 200 A
refresh
}
REFRESH
}_____________________________________________________________________________________
結果

_____________________________________________________________________________________
另一種效果