home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / fractal.c < prev    next >
Text File  |  2019-04-13  |  4KB  |  182 lines
  1. /* ╨OWER ├ (╙PINAKER) OR ├ ╨OWER
  2.    (╨ROLINE) VERSION OF ╞RACTAL
  3.    ╟RAPHICS.  ├ONVERTED FROM ╙UPER-├
  4.    FORMAT SO ALL ├ USERS CAN ENJOY
  5.    THIS GRAPHICS DEMO!
  6.  
  7.    ╔N MY OPINION, NOT TO SHUN THE 
  8.    AUTHOR OF THIS PROGRAM, THE 
  9.    REAL VALUE OF THIS SOURCE LIES
  10.    IN THAT IT PROVIDES ME (AND 
  11.    OTHER ├ USERS) WITH THE START
  12.    OF A GRAPHICS LIBRARY THAT
  13.    WORKS!
  14.  
  15.    ├ONGRATS TO THE AUTHOR ON A GREAT
  16.    JOB.
  17.  */
  18.        
  19. #DEFINE VOID INT
  20. #INCLUDE "STDIO.H"
  21.  
  22.        INT TRIX[200]=█160,20,280▌;
  23.        INT TRIY[200]=█20,160,160▌;
  24.        INT DRARRAY[]=█0,3,1,4,3,5,4,2,5,0▌;
  25.        INT LEVARRAY[]=█0,3,5,3,1,4,5,4,2,3,4,5▌;
  26. VOID DOT(XA,YA)
  27.        UNSIGNED INT XA,YA;
  28. █      STATIC INT TABLE[]=█1,2,4,8,16,32,64,128▌;
  29.        INT I,*BYTE;
  30.        INT BIT,TBIT,TBYTE,ROW,COL;
  31.        ROW=YA&0XF8;
  32.        ROW=(ROW<<5)+(ROW<<3);
  33.        COL=XA>>3;
  34.        BYTE=ROW+(COL<<3)+(YA&7)+0X6000;
  35.        TBIT=7-(XA&7);
  36.        *BYTE=*BYTE▀TABLE[TBIT];
  37. ▌
  38. VOID HIRES()
  39. █      INT *BMPTR,*BMFLG,*BMLOC,*BMSCR;
  40.        BMPTR=53265;
  41.        BMFLG=53272;
  42.        BMLOC=56576;
  43.        BMSCR=648;
  44.        *BMPTR=*BMPTR▀32;
  45.        *BMLOC=150;
  46.        *BMSCR=92;
  47.        *BMFLG=121;
  48. ▌
  49. VOID CLRSCRN()
  50. █      INT *I,J;
  51.        FOR(J=0X6000;J<0X7FFE;J++)
  52.       █I=J;
  53.        *I=0;
  54.       ▌
  55. ▌
  56. VOID SETCLR()
  57. █      INT *I,J;
  58.        FOR(J=23552;J<24552;J++)
  59.       █I=J;
  60.        *I=2;
  61.       ▌
  62. ▌
  63. VOID DELAY(DELCT)
  64.        INT DELCT;
  65. █      WHILE(DELCT>0)
  66.        █DELCT--;
  67.        ▌
  68. ▌
  69. VOID LINE(X1,Y1,X2,Y2)
  70.        INT X1,Y1,X2,Y2;
  71. █      INT DX,DY,E,J,XINC,YINC,LINCT;
  72.        XINC=1;
  73.        YINC=1;
  74.        DX=X2-X1;
  75.        DY=Y2-Y1;
  76.        IF(X1>X2)
  77.         █ XINC=-1;
  78.           DX=X1-X2;
  79.         ▌
  80.        IF(Y1>Y2)
  81.         █ YINC=-1;
  82.           DY=Y1-Y2;
  83.         ▌
  84.        E=DY-DX;
  85.        E+=E;
  86.        IF(DY>DX) GOTO BIGY;
  87. BIGX:  LINCT=DX;
  88.        DO
  89.     █  DOT(X1,Y1);
  90.        LINCT-=1;
  91.        IF(E>0)
  92.      █   Y1+=YINC;
  93.          E+=((DY<<1)-(DX<<1));
  94.          X1+=XINC;
  95.      ▌
  96.        ELSE
  97.      █   E+=(DY<<1);
  98.          X1+=XINC;
  99.      ▌
  100.     ▌
  101.        WHILE (LINCT>0);
  102.        RETURN;
  103. BIGY:  LINCT=DY;
  104.        DO
  105.     █  DOT(X1,Y1);
  106.        LINCT-=1;
  107.        IF(E>0)
  108.      █   Y1=Y1+YINC;
  109.          E+=((DX<<1)-(DY<<1));
  110.          X1+=XINC;
  111.      ▌
  112.        ELSE
  113.      █   E+=(DX<<1);
  114.          Y1+=YINC;
  115.      ▌
  116.     ▌
  117.        WHILE (LINCT>0);
  118. ▌
  119.  
  120. MAIN()
  121. █
  122.        HIRES();
  123.        SETCLR();
  124.        CLRSCRN();
  125.        MIDPTS(0);
  126.        LEVEL2();
  127.        MAIN();
  128.  
  129. ▌
  130. VOID RND()
  131. █      UNSIGNED INT RANDOM;
  132.        INT *P;
  133.        P=56324;
  134.        RANDOM=*P;
  135.        P=162;
  136.        RANDOM+=*P;
  137.        RANDOM&=31;
  138.        RETURN RANDOM+=-15;
  139. ▌
  140. VOID MIDPTS(IN2)
  141.        INT IN2;
  142. █      TRIX[IN2+3]=(TRIX[IN2]+TRIX[IN2+1])/2;
  143.        TRIX[IN2+4]=(TRIX[IN2+1]+TRIX[IN2+2])/2;
  144.        TRIX[IN2+5]=(TRIX[IN2]+TRIX[IN2+2])/2;
  145.        TRIY[IN2+3]=(TRIY[IN2]+TRIY[IN2+1])/2+RND();
  146.        TRIY[IN2+4]=(TRIY[IN2+1]+TRIY[IN2+2])/2+RND();
  147.        TRIY[IN2+5]=(TRIY[IN2]+TRIY[IN2+2])/2+RND();
  148. ▌
  149. VOID ABS(V1)
  150.        INT V1;
  151. █      IF(V1<0)V1=-V1;
  152.        RETURN V1;
  153. ▌
  154. VOID DRAW(DRCT)
  155.        INT DRCT;
  156. █      INT DR1,DR2,DR3,DR4,DR5;
  157.        FOR(DR1=0;DR1<9;DR1+=1)
  158.       █DR2=TRIX[DRARRAY[DR1]+DRCT];DR3=TRIY[DRARRAY[DR1]+DRCT];
  159.        DR4=TRIX[DRARRAY[DR1+1]+DRCT];DR5=TRIY[DRARRAY[DR1+1]+DRCT];
  160.        LINE(DR2,DR3,DR4,DR5);
  161.       ▌
  162. ▌
  163. VOID LEVEL2()
  164. █      INT L1,L2;
  165.        FOR(L2=1;L2<5;L2+=1)
  166.       █FOR(L1=0;L1<3;L1+=1)
  167.        █TRIX[L1+L2*6]=TRIX[LEVARRAY[L1+(L2-1)*3]];
  168.         TRIY[L1+L2*6]=TRIY[LEVARRAY[L1+(L2-1)*3]];
  169.        ▌
  170.       ▌
  171.        FOR(L1=1;L1<4;L1+=1)
  172.        MIDPTS(L1*6);
  173.        TRIX[28]=TRIX[21];
  174.        TRIY[28]=TRIY[21];
  175.        TRIX[29]=TRIX[10];
  176.        TRIY[29]=TRIY[10];
  177.        TRIX[27]=TRIX[17];
  178.        TRIY[27]=TRIY[17];
  179.        FOR(L1=1;L1<5;L1+=1)
  180.        DRAW(L1*6);
  181. ▌
  182.