home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GRAFPAK.ARC / GRAFPAK2.C < prev   
Encoding:
C/C++ Source or Header  |  2019-04-13  |  1.5 KB  |  59 lines
  1. /* ╟RAPHICS ╨ACKAGE - ╨ART 2
  2. ** ╞ILENAME: GRAFPAK2.C
  3. ** ┴UTHOR: ═ARK ╥. ╥INFRET
  4. ** ─ATE:   12/14/85
  5. ** ─ESCRIPTION:
  6. **
  7. ** ╘HIS IS PART 2 OF A MULTI-PART GRAPHICS PACKAGE, WRITTEN IN ├ (├-╨OWER)
  8. ** FOR THE ├OMMODORE 64.  ╘HE ROUTINES CONTAINED IN THIS SEGMENT ARE:
  9. **
  10. ** ARC     - DRAWS ARCS, LINE SEGMENTS, CIRCLES, ELLIPSES, POLYGONS
  11. ** CIRCLE  - SIMPLIFIED CALL TO ARC
  12. **  
  13. **  
  14. */
  15. #INCLUDE <STDIO.H>
  16. #INCLUDE <STRINGS.H>
  17. #INCLUDE <MATH.H>
  18. #INCLUDE "GRAFPAK.H"
  19.  
  20. /* ╨LOT AN ARC. 
  21. ** ╨ARAMETERS:
  22. ** XORIGIN,YORIGIN - CENTER POINT
  23. ** XRAD,YRAD - X AND Y RADII
  24. ** START,END - STARTING, ENDING POINT FOR ARC, IN DEGREES 
  25. ** ANGL - DEGREES OF ROTATION (NOT USED YET)
  26. ** INCR - DEGREES BETWEEN STEPS (╞╠╧┴╘!); 120.0 YIELDS A TRIANGLE
  27. ** PEN - (0-3) PEN NUMBER TO DRAW WITH
  28. */
  29. ARC(XORIGIN,YORIGIN,XRAD,YRAD,
  30.     START,END,ANGL,INCR,PEN)
  31. UNSIGNED XORIGIN,YORIGIN,XRAD,YRAD,START,END,ANGL; FLOAT INCR; UNSIGNED PEN;
  32. █
  33.   REGISTER UNSIGNED CNT,X,Y,PX,PY;
  34.   FLOAT ARAD,FSTART,FEND,FINCR,FXRAD,FYRAD,XO,YO;
  35.  
  36.   CNT = 0;
  37.   FINCR = INCR;          /* COPY TO LOCAL */
  38.   FYRAD = YRAD;
  39.   FXRAD = XRAD * ASPECT; /* ADJUST TO ASPECT RATIO */
  40.   XO = XORIGIN; YO = YORIGIN;
  41.   FOR (FSTART=START,FEND=END;FSTART<=FEND;FSTART += FINCR) █
  42.     ARAD = FSTART/╥┴─├╧╬;
  43.     X = XO + FXRAD * COS(ARAD);
  44.     Y = YO + FYRAD * SIN(ARAD);
  45.     IF (!CNT) PSET(X,Y,PEN);
  46.     ELSE LINE(PX,PY,X,Y,PEN);
  47.     PX=X; PY=Y;
  48.     CNT++;
  49.   ▌
  50. ▌
  51.  
  52. /* ╨LOT A CIRCLE */
  53. CIRCLE(XORIGIN,YORIGIN,RADIUS,PEN)
  54. UNSIGNED XORIGIN,YORIGIN,RADIUS,PEN;
  55. █
  56.   ARC(XORIGIN,YORIGIN,RADIUS,RADIUS,
  57.       0,360,0,1.0,1);
  58. ▌
  59.