Пентаграмма

Post by **Mr. Kibernetik** » Thu Aug 17, 2017 9:53 am

Эта программа рисует звезду с цветной заливкой и обводкой:

mx,my = #.scrsize()
xc = mx/2
yc = my/2
mr = #.min(mx,my)/3
#.angle(#.degrees)
#.drawcolor(1,0,0)
#.drawsize(10)
> r, mr..0,-1
  #.drawline(xc,yc-r,xc,yc-r)
  > a, 54..630,144
    #.drawline(r*#.cos(a)+xc,r*#.sin(a)+yc)
  <
  #.drawcolor(1,1,0)
  #.drawsize(1)
<

: star.PNG (18.4 KiB) Viewed 3126 times