小考-格格不入

size 400 400

paper 100

fast

command rects x y w h r g b

{

pen r g brepeat w1 (-w) (w)

{

pen r g bline (x-(w1*2)) (y+h*2) (x-(w1*2)) (y-h*2)

}

}

forever

{

rects 25 25

}

一山還有一山

size 200 200

paper 10

fast

command rects x y w h r g b

{

pen r g brepeat w1 (-w) (w)

{

pen r g bline (x+(w1*2)) (y-h/2) (x+(w1/2)) (y+h*2)

}

}

forever

{

rects 10 14

}

符號

size 200 200


paper 10


fast


command rect x y w h c


{


pen c


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


line (x+w/2) (y-h/2) (x+w/2) (y+h/2)


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


line (x-w/2) (y+h/2) (x-w/2) (y-h/2)


}


forever


{


rect 40 40


}

千層派

size 200 200

repeat y 0 9

{

repeat x 0 200

{

pen (x/2) (y*10)

line (500-x) (y/20) x ((y+1)*20)

}

}

遠近

size 200 200

paper 10

repeat x 0 200

{

pen

line x 0 x 200

}

repeat x 0 200

{

pen

line 100 100 x 0

}

元素分析