作業五：Time

程式碼：

Load dbngraphics.dbn
size 200 200
paper 50

command rect x y w h c
{

pen c

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

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

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

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

repeat v1 0 200
{

rect 100 100 v1 v1

}

repeat x 0 5
{
Circle 175 60 x 5
}
repeat x 0 5
{
Circle 25 150 x 50
}
repeat x 0 5
{
Circle 175 150 x 20
}
repeat x 0 5
{
Circle 100 175 x 15
}
repeat x 0 5
{
Circle 125 25 x 5
}
repeat x 0 5
{
Circle 20 75 x 10
}
repeat x 0 5
{
Circle 25 150 x 5
}