gscreen(600,500)
window(-300,-300)-(300,200)
line(-300,0)-(300,0)
line(0,-300)-(0,200)
input "n=";n
input "色つきは０、色なしは１を押す";w
n=n*10
for i=0 to n step 15
 c=i/15
 if c>15 then c=c mod 16 
 if w=1 then c=0
  line(-i*sqr(3)/2,i/2)-(i*sqr(3)/2,i/2),c
  line(i*sqr(3)/2,i/2)-(0,-i),c
  line(0,-i)-(-i*sqr(3)/2,i/2),c
next i
end