home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GRAFPAK.ARC / GDRIVER.C next >
Encoding:
C/C++ Source or Header  |  2019-04-13  |  2.7 KB  |  134 lines
  1. /* ╟RAPHICS ─RIVER
  2. ** ╞ILENAME: GDRIVER.C
  3. ** ┴UTHOR: ═ARK ╥. ╥INFRET
  4. ** ─ATE:   12/14/85
  5. ** ─ESCRIPTION:
  6. **
  7. ** ╘HIS PACKAGE SERVES AS A DRIVER TO DEMO THE FEATURES IMPLEMENTED IN THE
  8. ** GRAFPAK GRAPHICS ROUTINES PACKAGE.
  9. **
  10. */
  11. #INCLUDE <STDIO.H>
  12. #INCLUDE <STRINGS.H>
  13. #INCLUDE <MATH.H>
  14.  
  15. #DEFINE ╥┴─├╧╬ 57.2957795 /* DEGREES TO RADIANS FACTOR */
  16.  
  17. MAIN()
  18. █
  19.   REGISTER UNSIGNED BASE;
  20.   REGISTER UNSIGNED I,J;
  21.  
  22.   BASE = 40960;    /* BITMAP IN UPPER 8K OF BANK 2 */
  23.   HIGHMEM(32768);
  24.   GINIT();         /* INITIALIZE GRAPHICS PACKAGE */
  25.   GRAPHICS(0,1);
  26.   PUTS("╘HIS IS TEXT MODE - ╥┼╘╒╥╬ TO CONTINUE.\N");
  27.   DELAY();
  28.   TEST1();         /* TEST HI-RES GRAPHICS */
  29.   TEST2();         /* TEST MULTI-COLOR MODE */
  30.   GRAPHICS(0,0);
  31.   PUTS("┬ACK TO TEXT MODE.\N");
  32. ▌
  33.  
  34. /* ╘EST HI-RES GRAPHICS */
  35. TEST1()
  36. █
  37.   REGISTER UNSIGNED A,B,D,I,X,X1,Y,R;
  38.   REGISTER CHAR C,*P;
  39.   FLOAT R2,X2,INCR;
  40.  
  41.   GRAPHICS(1,1);         /* HI-RES W/CLEAR */
  42.  
  43.   SPINTEXT(160,100,"╚I-RES");
  44.  
  45.   GRAPHICS(1,1);
  46.  
  47.   LINE(0,0,319,199,1);   /* UPPER LEFT TO LOWER RIGHT */
  48.   LINE(0,199,319,0,1);   /* LOWER LEFT TO UPPER RIGHT */
  49.   LINE(0,100,319,100,1); /* HORIZONTAL AXIS */
  50.   LINE(160,0,160,199,1); /* VERTICAL AXIS */
  51.   
  52. /* ├IRCLES */
  53.  
  54.   CIRCLE(160,100,80,1);
  55.  
  56. /* ─IAGONAL LINES THROUGH CENTER */
  57.  
  58.   LINE(0,0,319,199,1);
  59.   LINE(319,0,0,199,1);
  60.  
  61. /* ╚ORIZONTAL ELLIPSE */
  62.   ARC(160,100,100,50,0,360,0,1.0,1);
  63.  
  64. /* ╓ERTICAL ELLIPSE */
  65.  
  66.   ARC(160,100,50,100,0,360,0,1.0,1);
  67.  
  68.   DELAY();
  69.  
  70. /* ╨OLYGONS */
  71.  
  72.   GRAPHICS(1,1);
  73.   COLORS(-1,-1,5,-1,-1);
  74.   DRAWTEXT(32,0,"╨OLYGONS USING 'ARC'",0,1);
  75.  
  76.   COLORS(-1,-1,6,-1,-1);
  77.   ARC(48,48,40,40,0,360,0,120.0,1); /* TRIANGLE */
  78.   DRAWTEXT(0,88,"╘RIANGLE",0,1);
  79.  
  80.   COLORS(-1,-1,7,-1,-1);            /* YELLOW */
  81.   ARC(240,48,40,40,0,360,0,90.0,1); /* SQUARE */
  82.   DRAWTEXT(200,88,"╙QUARE",0,1);
  83.  
  84.   COLORS(-1,-1,3,-1,-1);            /* CYAN */
  85.   ARC(80,144,40,40,0,360,0,60.0,1); /* HEXAGON */
  86.   DRAWTEXT(20,192,"╚EXAGON",0,1);  
  87.  
  88.   COLORS(-1,-1,2,-1,-1);            /* RED */
  89.   ARC(240,144,40,40,0,360,0,45.0,1); /* OCTAGON */  
  90.   DRAWTEXT(200,192,"╧CTAGON",0,1);
  91.  
  92.   DELAY();
  93. ▌
  94.  
  95. TEST2()
  96. █
  97.   REGISTER UNSIGNED PEN,X,Y,XX,YY,S;
  98.  
  99.   GRAPHICS(2,1);
  100.   COLORS(0,1,2,5,6);
  101.  
  102.   SPINTEXT(80,100,"═ULTICOLOR");
  103.  
  104.   GRAPHICS(2,1);              /* CLEAR SCREEN */
  105.  
  106.   PEN = 1;
  107.   FOR (S=10;S<=80;S+=10) █    /* BOXES IN BOXES */
  108.     X=80-(S/2);
  109.     Y=100-(S/2);
  110.     LINE(X,Y,X+S,Y,PEN);
  111.     LINE(X+S,Y,X+S,Y+S,PEN);
  112.     LINE(X+S,Y+S,X,Y+S,PEN);
  113.     LINE(X,Y+S,X,Y,PEN);
  114.     IF (++PEN == 4) PEN=1;
  115.   ▌
  116.   CIRCLE(80,100,70,1);  
  117.   DELAY();
  118. ▌
  119.  
  120. DELAY()
  121. █
  122.   FOR (;GETCHAR() != '\N';);
  123. ▌
  124.  
  125. /* ─RAW TEXT ROTATED ABOUT AN X,Y COORDINATE */
  126. SPINTEXT(X,Y,S)
  127. UNSIGNED X,Y; CHAR *S;
  128. █
  129.   FLOAT ANGLE;
  130.  
  131.   FOR (ANGLE=0.0;ANGLE < 360.0; ANGLE += 45.0)
  132.     DRAWTEXT(X,Y,S,ANGLE,1); 
  133. ▌
  134.