作業5

程式碼:

Load dbngraphics.dbn//設定畫布大小
size 200 200

//設定背景
paper 10

//利用時間控制線條顏色
repeat x 0 200
{
pen 50 10
line 0 0 x 200
}

repeat x 0 200
{
pen 50 10
line 200 200 x 0
}
//設計一個以中心點為座標的空心方形
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 25 25 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 175 175 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 25 175 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}

repeat v1 0 75
{
rect 175 25 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}
repeat v1 0 40
{
rect 100 100 v1 v1
}
command rect a y w h c
{
pen c 20 30
line (a-w/2) (y-h/2) (a+w/2) (y-h/2)
line (a+w/2) (y-h/2) (a+w/2) (y+h/2)
line (a+w/2) (y+h/2) (a-w/2) (y+h/2)
line (a-w/2) (y+h/2) (a-w/2) (y-h/2)
}
//圓圈圈內repeat A 40 60{circle 100 100 (A/2) 20
}