11/6 期中:數位康丁斯基

程式碼：

Load dbngraphics.dbn

size 400 300

paper 46 139 87

fastset M 50

//三角形

//01

pen 0 0 0

Repeat A 195 265

{ line A 105 230 145}

//02

pen 0 0 0

Repeat A 205 255

{ line A 65 230 105}

//03

pen 0 0 0

Repeat A 210 250{

line A 25 230 65}
//04

pen 0 30 0

Repeat A 40 100

{ line A 150 100 185}/

/05

pen 70 10 10

Repeat A 40 100

{ line A 185 40 150}
//06

repeat A 0 10
{

pen 238 180 34

line 390 (270+A) 335 (270+A)}
//07

repeat A 0 10
{

pen 100 100 100

line 15 (132+A) 100 (132+A)}
//08

Repeat E 105 125

{

pen 238 180 34

triangle (M*2) E (M*2) (M*2+5) (M*1+20) (M*2+25)}

//09

Repeat E 95 105

{pen 139 20 10

triangle (M*2) E (M*2) (M+45) (M*1+30) (M*2+5)}

//10

pen 0 0 0

Repeat A 30 65

{ line A 115 48 85}
//11

Repeat E 95 275

{pen 70 10 10

triangle (M*2) E (M*3+30) (M*1+45) (M*2) (M*5+25)}
//12

pen 30 0 0

Repeat A 270 380

{ line A 250 325 170}

//13

pen 35 0 0

Repeat A 295 355

{ line A 15 325 170}

//14

pen 139 37 0

Repeat A 15 152

{ line A 84 85 20}

//15

pen 60 0 0

Repeat A 235 200

{ line 175 A 210 230}

//16

pen 60 0 0

Repeat A 195 230

{ line 175 200 210 A }

//圓形//外
circle 325 170 60 100

circle 325 170 59 100

circle 325 170 58 100

circle 325 170 57 100

circle 325 170 56 100

circle 325 170 55 100

circle 325 170 54 100
//中

circle 325 170 53 80

circle 325 170 52 80

circle 325 170 51 80

circle 325 170 50 80

circle 325 170 49 80

circle 325 170 48 80

circle 325 170 47 80

//白中

pen 100 100 100

Repeat A 46 26

{ circle 325 170 A 60}

//小

pen 0 0 30

Repeat A 25 0

{ circle 325 170 A 40}