作業六 自畫像_香菇頭

因為我的頭髮很像香菇頭
所以用Q板的樣子來呈現

先來一張沒有香菇的樣子


變香菇了




程式
// enter program
size 400 400
paper 0
fast

command rpect x y w h c
{
pen 100
line (x-w/x) (y-h/y) (x+w/x) (y-h/y)
line (x+w/x) (y-h/y) (x+w/x) (y+h/y)
line (x+w/x) (y+h/y) (x-w/x) (y+h/y)
line (x-w/x) (y+h/y) (x-w/x) (y-h/y)
}
forever
{
set [＜mouse 1>＜ mouse 2>] ＜mouse 3>
}