home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / COMAL3-1.DMS / in.adf / Demos / Polygon2 < prev    next >
Encoding:
Text File  |  1993-03-30  |  449 b   |  28 lines
  1. USE GRAPHICS
  2.  
  3. n:=17
  4. DIM x(n), y(n)
  5.  
  6. graphicscreen(0)
  7. clear
  8. interiorcolor(3)
  9. outlinecolor(1)
  10. make_circle(n,x(),y(),320,100,95)
  11. polygon(n,x(),y())
  12. s$:=INKEY$(5)
  13. textscreen
  14.  
  15. // ****  end of main program  ****
  16.  
  17. PROC make_circle(n,REF x(),REF y(),x0,y0,r) CLOSED
  18.   FOR i:=1 TO n DO
  19.     rad:=(i-1)/(n-1)*PI*2
  20.     IF i MOD 2 THEN
  21.       r':=r
  22.     ELSE
  23.       r':=-r/2
  24.     ENDIF
  25.     x(i):=x0+r'*COS(rad)*2; y(i):=y0+r'*SIN(rad)
  26.   ENDFOR i
  27. ENDPROC make_circle
  28.