期中:數位康丁斯基

程式碼:

load dbngraphics.dbn
size 400 325

paper 30 100 90

//加快fast//

右上黃槓pen 100 100 20

repeat a 0 9

{

line 325 (325-a) 370(325-a)

}

//左中白槓pen 0repeat a 0 9

{

line 25 (150+a) 125(150+a)

}

//白槓下倒三角repeat s 0 25

{

pen 100triangle 50 138 65 (138-s) 75 138

}

//白槓右紅三角repeat s 200 0

{

pen 50 (s-100) 0triangle 180 125 125 (125+s) 125 125

}

//右橘三角下橘三角repeat s 70 0

{

pen 70 s 0triangle 25 113 90 (113-s) 150 113

}

//橘下小三角repeat s 0 10

{

pen 60 0 0triangle 125 135 110 135 125 (135-s)

}

//白槓下黃色小三角repeat s 0 10

{

pen 100 100 0triangle 125 145 100 145 125 (145-s)

}

//左上紅三角形repeat c 0 20

{

pen 100 20 10triangle 50 200 50 (200-c) 125 200

}

//左下綠三角形repeat c 0 20

{

pen 10 50 10triangle 50 180 125 (180+c) 125 180

}

//排列三角下repeat s 0 50

{

pen 100triangle 215 35 230 (35+s) 245 35

}

//排列三角中repeat s 0 50

{

pen 100triangle 210 85 230 (85+s) 250 85

}

//排列三角上repeat s 0 50

{

pen 100triangle 205 135 230 (135+s) 255 135

}
//深紅色矩形repeat a 0 30

{

pen 60 00 0line 160 (250+a) 180 (270+a)

}
pen 60 0 0

//小圓repeat c 0 25

{

circle 325 180 c 100

}

//中圓

repeat c 0 50

{

circle 325 180 (c+25) c

}

//大圓repeat c 0 8

{

circle 325 180 (c+75) 100

}

//橘紅色正三角repeat c 0 150

{

pen 100(c-35) 15triangle 300 25 325 (175-c) 350 25

}
//橘紅色倒三角repeat c 0 100

{

pen 90 (c-10) 10triangle 275 275 325 (175+c) 375 275

}