
load dbnletters.dbn
size 300 300
fastpaper 100
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same?
{
set keyvalue a
}
}
value (keyvalue
)
}
set k 0forever
{
pen
letter k
((
}


size 400 400
paper 100
fast
command rects x y w h r g b
{
pen r g b
repeat w1 (-w)(w-5){pen r g b
line (x-(w1/3)/2)(y*5-h/2)(x+(w1/2))((y-1)-h/2)}
{
pen 60 70
line (x-w/3) (y-h/3) (x+w/3) (y-h/3)
line (x+w/2) (y-h/2) (x+w/2) (y+h/2)
line (x+w/2) (y+h/2) (x-w/2) (y+h/2)
line (x-w/2) (y+h/2) (x-w/2) (y-h/2)
}
}
forever{rects 50 20
}