home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / MIDNIGHT.LZH / MIDNIGHT / SOURCE / WURM.C < prev   
C/C++ Source or Header  |  1993-03-21  |  5KB  |  177 lines
  1.  
  2. #include <aes.h>
  3. #include <vdi.h>
  4. #include <tos.h>
  5. #include <ext.h>
  6. #include <stdio.h>
  7. #include <time.h>
  8. #include <stdlib.h>
  9. #include <string.h>
  10. #include <portab.h>
  11.  
  12. #include "midnight.h"    /* ACC_str + MOD_str + defines für Module + ACC */
  13.  
  14. extern MOD_str MOD_struct;                /* Aus MOSTART.S importieren.    */
  15. #define Ms MOD_struct                    /* zur Schreiberleichterung...    */
  16.  
  17. Value    Values[6] =
  18.     {    T_POPUP,0,(long)"ziemlich müde\0normal\0nervös\0hektisch\0\0",
  19.             "Bewegungen",
  20.         T_SLIDER,0,200,"Länge des Würmchens",
  21.         T_SLIDER,1,10,"Dicke des Würmchens",
  22.         T_POPUP,0,(long)"langsam\0wurmartig\0frisch\0Flucht\0Turbo!\0\0",
  23.             "Kriechgeschwindigkeit",
  24.         T_SLIDER,(long)"nie\0alle16\0alle 8\0alle 4\0alle 2\0immer\0\0",6,
  25.             "Farbwechsel:",
  26.         T_TITEL|T_END,0,0,"V1.3, HzN 3.93 (krabbel...)"
  27.     };
  28.  
  29. Value    *Value_s = Values;        /* zeigt auf eine Liste von Pointern    */
  30.  
  31.  
  32. /*
  33.     GRUNDLEGENDES !
  34.     Da die Module ab und zu einmal aufgerufen werden und eben nicht 
  35.     kontinuierlich die Kontrolle über die Register haben, kann es bei
  36.     Benutzung einer Variablen über mehrere Programmteile (M_INIT,M_SWITCH...)
  37.     zu Problemen kommen, da ja inzwischen wieder 'Sonstwer' in den Registern
  38.     'rumgespielt hat. Deshalb sind solche Variablen als 'static' zu deklarieren,
  39.     im Notfall (wenn's nicht klappt) auch als Volatile.
  40.     Sicher ist sicher...
  41. */
  42.  
  43.  
  44.  
  45. int        pxy[10];
  46. ACC_str    *As;
  47. volatile static int handle;        /* darf nicht im Register stehn            */
  48.  
  49.                     /* Um die Mathe-Lib zu sparen (ca. 5 KB Ersparnis):    */
  50. static int trigo[72] =            /* Sinus in 5 Grad-Schritten * 256        */
  51.     {
  52.         0,22,44,66,87,108,128,146,164,181,196,209,
  53.         221,232,240,247,252,255,256,255,252,247,240,232,
  54.         221,209,196,181,164,146,128,108,87,66,44,22,
  55.         0,-22,-44,-66,-87,-108,-128,-146,-164,-181,-196,-209,
  56.         -221,-232,-240,-247,-252,-255,-256,-255,-252,-247,-240,-232,
  57.         -221,-209,-196,-181,-164,-146,-128,-108,-87,-66,-44,-22,
  58.     };
  59.  
  60. void wackel( int Hektik,int Tail,int Quick );
  61.  
  62. ULONG MOD_main( int Mode, ACC_str *ACCs )
  63. {
  64.     int x1,x2;
  65.  
  66.     As= ACCs;                    /* 'As' ist jetzt global zu benutzen.    */
  67.     switch( Mode )
  68.     {    case M_INIT:
  69.             MOD_struct.U.b = 0x003f;
  70.             if( As->planes==1 ) Values[4]=Values[5];
  71.                         /* Bei Monochrom verschwindet der 5. Eintrag.    */
  72.  
  73.             v_opnvwk( As->work_in,&handle,As->work_out );
  74.             if( !handle ) return( 0 );
  75.  
  76.             pxy[0]=As->x;                /* Clipbereich = Schonbereich.    */
  77.             pxy[1]=As->y;
  78.             pxy[2]=As->x+As->w;
  79.             pxy[3]=As->y+As->h;
  80.             vs_clip( handle,1,pxy );
  81.             break;
  82.         case M_SWITCH:
  83.             pxy[1]= As->y;            /* Als Umblende senkrechtes Gitter    */
  84.             pxy[3]= pxy[1]+ As->h;
  85.             for( x1=0;(x1<8)&&!EVNT_ask( 50 );x1++ )
  86.             {    for( x2=As->x+ As->w+x1;x2>= As->x;x2-=8 )
  87.                 {    pxy[0]= pxy[2]= x2;
  88.                     v_pline( handle,2,pxy );
  89.                 }
  90.             }
  91.             break;
  92.         case M_DO_IT:
  93.             if( As->planes>1 )                /* Nicht Monochrom ? Dann...*/
  94.             {    pxy[0]=pxy[1]=pxy[2]= 1000;
  95.                 vs_color( handle,2,pxy );    /* Farbe 2 auf wei₧ setzen.    */
  96.             }
  97.  
  98.             vsf_perimeter( handle,0 );
  99.  
  100.             x1= 4-Ms.Werte[3];                /* Parameter holen.            */
  101.             wackel( Ms.Werte[0]*15+2,Ms.Werte[1],x1*x1*5 );
  102.  
  103.             break;
  104.         case M_EXIT:
  105.             if( handle ) v_clsvwk( handle );
  106.             break;
  107.     }
  108.  
  109.     return( 1 );
  110. }
  111.  
  112.  
  113.  
  114. void set_segment( int *xx,int *yy,int *Wink,long *nr,
  115.                   int div,int Hektik,int col )
  116. {
  117.     int x;
  118.                                 /* Zufällige RichtungsWinkelÄnderung    */
  119.     *Wink= (*Wink+360-Hektik+(*nr=rnd24(*nr))%(1+(Hektik<<1))) % 360;
  120.  
  121.     x= *xx-trigo[((*Wink+90)%360)/5]/div;    /* Neuen X-Wert errechnen    */
  122.     if( (x<0)||(x>As->w*div) ) *Wink= (360-*Wink)%360;
  123.                                             /* Abprallen am Rand        */
  124.     *xx-= trigo[*Wink/5]/div;
  125.  
  126.     x= *yy-trigo[((*Wink+90)%360)/5]/div;    /* Nun Y-Wert errechnen.    */
  127.     if( (x<0)||(x>As->h*div) ) *Wink= (540-*Wink)%360;
  128.     *yy-= trigo[((*Wink+90)%360)/5]/div;
  129.  
  130.     pxy[0]= *xx/div+As->x;        /* Umrechnen in Bildschirmkoordinaten.    */
  131.     pxy[1]= *yy/div+As->y;
  132.  
  133.     if( Ms.Werte[2]<2 )            /* bei '1' wird der Polymarker genommen,*/
  134.     {    vsm_color( handle,col );
  135.         v_pmarker( handle,1,pxy );
  136.     }
  137.     else                /* sonst ein Kreis mit entsprechendem Radius.    */
  138.     {    vsf_color( handle,col );
  139.         v_circle( handle,pxy[0],pxy[1],Ms.Werte[2]-1 );
  140.     }
  141. }
  142.  
  143.  
  144.  
  145.  
  146. void wackel( int Hektik,int Tail,int Quick )
  147. {
  148.     int x1,y1,x2,y2, h,i,c,mod,count=0,xm,ym, Wink1,Wink2;
  149.     int div;
  150.     long nr1,nr2;
  151.  
  152.     nr1= nr2= Random()+1;
  153.  
  154.     mod= 1;
  155.     if( (As->planes>1) && Ms.Werte[4] )
  156.         mod= ((1<<As->planes)-2)<<(5-Ms.Werte[4]);
  157.     if( mod>256 ) mod= 256;
  158.  
  159.     div= 16;
  160.     if( Ms.Werte[2]>1 ) div= 8;
  161.     x1=y1=x2=y2= As->y*div+As->h*div/2;
  162.     Wink1=Wink2= 0;
  163.     i=0;
  164.     while( !EVNT_ask( Quick ) )
  165.     {    if( i<=Tail ) i++;
  166.         for(h=0;(h<5);h++)
  167.         {    if( i>=Tail ) set_segment( &x2,&y2,&Wink2,&nr2,div,Hektik,1 );
  168.                                                 /* Schwanz löschen.    */
  169.             ++count %= mod;
  170.             c= As->planes>1?(count>>(5-Ms.Werte[4]))+2:0;
  171.  
  172.             set_segment( &x1,&y1,&Wink1,&nr1,div,Hektik,c );
  173.                                                 /* Kopf setzen.        */
  174.         }
  175.     }
  176. }
  177.