作業三: 三原型-菱

由三角形組成的菱形

Load dbngraphics.dbn
size 300 300
paper 0

set M 0

//300到0三角

Repeat A 300 0
{
pen 100 20 35

triangle 0 0 (M) (M) 300 A

}

//250到0三角

Repeat A 250 25
{
pen 90 20 35

triangle 0 0 (M) (M) 250 A

}

//200到0三角

Repeat A 200 50
{
pen 80 20 35

triangle 0 0 (M) (M) 200 A

}

//150到0三角

Repeat A 150 75
{
pen 70 20 35

triangle 0 0 (M) (M) 150 A

}

//100到0三角

Repeat A 100 50
{
pen 60 20 35

triangle 0 0 (M) (M) 100 A

}

//50到0三角

Repeat A 50 25
{
pen 50 20 35

triangle 0 0 (M) (M) 50 A

}

//0到300三角

Repeat A 0 300
{
pen 50 100 50

triangle 300 300 (M) (M+300) 0 A

}

//50到300三角

Repeat A 50 275
{
pen 50 91 50

triangle 300 300 (50) (M+275) 50 A

}

//100到300三角

Repeat A 100 250
{
pen 50 82 50

triangle 300 300 (100) (M+250) 100 A

}

//150到300三角

Repeat A 150 225
{
pen 50 73 50

triangle 300 300 (150) (M+225) 150 A

}

//200到300三角

Repeat A 200 250
{
pen 50 64 50

triangle 300 300 (200) (M+250) 200 A

}

//250到300三角

Repeat A 250 275
{
pen 50 55 50

triangle 300 300 (250) (M+275) 250 A

}