作業7

油畫

size 400 400

paper 0

fast

command rect x y w h c

{

pen c h c

line (x+1) (y+h*2) (x+h*2) (y-h*2)

line (x-1) (y+h*2) (x+h*2) (y+h*2)

line (x-1) (y-h*2) (x-h*2) (y+h*2)

line (x+1) (y-h*2) (x-h*2) (y-h*2)

}

forever

{

rect 20 10 ()

}

作業6-自畫像、血跡

自畫像

size 400 400

forever

{

set [ ]

set [(+1) ()]

set [(-1) ()]

set [() (+1)]

set [() (-1)]

set [(+1) (+1)]

set [(-1) (-1)]

set [(-1) (+1)]

set [(+1) (-1)]

}

血跡

size 400 400

forever

{

set [ ]

set [(+1) ()]

set [(-1) ()]

set [() (+1)]

set [() (-1)]

set [(+1) (+1)]

set [(-1) (-1)]

set [(-1) (+1)]

set [(+1) (-1)]

}