作業三:星紋

load dbngraphics.dbnsize 300 300paper 0 0 0
repeat a 2 20{circle 0 150 (5*a) 0}
repeat a 2 20{circle 300 150 (6*a) 0}
repeat a 2 20{circle 150 300 (7*a) 0}
repeat a 2 20{circle 150 0 (8*a) 0}

repeat c 0 150

{pen 90 10 200

triangle 0 0 (c*2) 300 0 150
}
repeat c 0 150

{pen 100 100 100

triangle 300 300 (c*5) 300 150 0
}