home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 260.lha / Plasma / EHBPlasma.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-06  |  15.1 KB  |  579 lines
  1. #include <stdio.h>
  2. #include <stdlib.h>
  3. #include <string.h>
  4. #include <math.h>
  5. #include <proto/exec.h>
  6. #ifdef CPU020
  7. #include <exec/execbase.h>
  8. #endif
  9. #include <proto/intuition.h>
  10. #include <proto/graphics.h>
  11. #include <time.h>
  12. #include <proto/dos.h>
  13. #define HEIGHT 400L
  14.  
  15. #define MODULUS (0x20000L)
  16. #define C 13849L
  17. #define A 25173L
  18. #define randu2(x) (((seed = seed*A+C))%(x))
  19. #define unmap(x) (randu2(6L)+rev_array[(x)])
  20. #ifdef LATTICE
  21. #define PROTOTYPES 1
  22. #endif
  23.  
  24. #ifndef LATTICE
  25. #define __regargs
  26. #endif
  27.  
  28. #ifdef DEBUG
  29. int temparray[64];
  30. #endif
  31.  
  32. /*************************************************
  33. /*
  34. /* This code © 1989 by W. Roger uzun
  35. /* This code is for Lattice 5.0X
  36. /* compile using - lc -v -cf -L -O EHBPlasma (for 68000 version)
  37. /* or lc -v -cf -L -m2 -O -dCPU020 EHBPlasma (for 68020 version)
  38. /*
  39. /*************************************************/
  40.  
  41. #define WINDOWSIGNAL (1L<<(wG->UserPort->mp_SigBit))
  42.  
  43. #define PaletteColorCount 32
  44.  
  45. struct TextFont *myTextFont;
  46.  
  47. struct RastPort *rpG;
  48.  
  49. struct TextAttr TOPAZ80 = {
  50.     (STRPTR)"topaz.font",
  51.     TOPAZ_EIGHTY,0,0
  52. };
  53. struct NewScreen NewScreenStructure = {
  54.     0,0,    /* screen XY origin relative to View */
  55.     320,HEIGHT,    /* screen width and height */
  56.     6,    /* screen depth (number of bitplanes) */
  57.     0,1,    /* detail and block pens */
  58.     LACE+EXTRA_HALFBRITE,    /* display modes for this screen */
  59.     CUSTOMSCREEN,    /* screen type */
  60.     &TOPAZ80,    /* pointer to default screen font */
  61.     "Plasma",    /* screen title */
  62.     NULL,    /* first in list of custom screen gadgets */
  63.     NULL    /* pointer to custom BitMap structure */
  64. };
  65.  
  66. #define NEWSCREENSTRUCTURE NewScreenStructure
  67.  
  68. USHORT Palette[] = {
  69.     0x000,    /* color #0 */
  70.     0x01f,    /* color #1 */
  71.     0x03d,    /* color #2 */
  72.     0x05b,    /* color #3 */
  73.     0x079,    /* color #4 */
  74.     0x097,    /* color #5 */
  75.     0x0a5,  /* color #6 */
  76.     0x0b4,  /* color #7 */
  77.     0x0c3,  /* color #8 */
  78.     0x0e1,  /* color #9 */
  79.     0x0f0,  /* color #10 */
  80.  
  81.     0x01f0,    /* color #11 */
  82.     0x03d0,    /* color #12 */
  83.     0x05b0,    /* color #13 */
  84.     0x0790,    /* color #14 */
  85.     0x0970,    /* color #15 */
  86.     0x0a50,    /* color #16 */
  87.     0x0B40,    /* color #17 */
  88.     0x0c30,    /* color #18 */
  89.     0x0e10,    /* color #19 */
  90.     0x0f00,    /* color #20 */
  91.  
  92.     0x0f01,    /* color #21 */
  93.     0x0d03,    /* color #22 */
  94.     0x0b05,    /* color #23 */
  95.     0x0907,    /* color #24 */
  96.     0x0709,    /* color #25 */
  97.     0x050a,    /* color #26 */
  98.     0x040b,    /* color #27 */
  99.     0x030c,    /* color #28 */
  100.     0x020d,    /* color #29 */
  101.     0x010e,    /* color #30 */
  102.     0x000f  /* color #31 */
  103. };
  104.  
  105. #define PALETTE Palette
  106.  
  107. struct IntuiText IText1 = {
  108.     3,1,JAM1,    /* front and back text pens, drawmode and fill byte */
  109.     0,0,    /* XY origin relative to container TopLeft */
  110.     &TOPAZ80,    /* font pointer or NULL for default */
  111.     "Quit",    /* pointer to text */
  112.     NULL    /* next IntuiText structure */
  113. };
  114.  
  115. struct MenuItem MenuItem2 = {
  116.     NULL,    /* next MenuItem structure */
  117.     0,8,    /* XY of Item hitbox relative to TopLeft of parent hitbox */
  118.     80,8,    /* hit box width and height */
  119.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,    /* Item flags */
  120.     0,    /* each bit mutually-excludes a same-level Item */
  121.     (APTR)&IText1,    /* Item render  (IntuiText or Image or NULL) */
  122.     NULL,    /* Select render */
  123.     'Q',    /* alternate command-key */
  124.     NULL,    /* SubItem list */
  125.     MENUNULL    /* filled in by Intuition for drag selections */
  126. };
  127.  
  128. struct IntuiText IText2 = {
  129.     3,1,JAM1,    /* front and back text pens, drawmode and fill byte */
  130.     0,0,    /* XY origin relative to container TopLeft */
  131.     &TOPAZ80,    /* font pointer or NULL for default */
  132.     "About",    /* pointer to text */
  133.     NULL    /* next IntuiText structure */
  134. };
  135.  
  136. struct MenuItem MenuItem1 = {
  137.     &MenuItem2,    /* next MenuItem structure */
  138.     0,0,    /* XY of Item hitbox relative to TopLeft of parent hitbox */
  139.     80,8,    /* hit box width and height */
  140.     ITEMTEXT+COMMSEQ+ITEMENABLED+HIGHCOMP,    /* Item flags */
  141.     0,    /* each bit mutually-excludes a same-level Item */
  142.     (APTR)&IText2,    /* Item render  (IntuiText or Image or NULL) */
  143.     NULL,    /* Select render */
  144.     'A',    /* alternate command-key */
  145.     NULL,    /* SubItem list */
  146.     MENUNULL    /* filled in by Intuition for drag selections */
  147. };
  148.  
  149. struct Menu Menu1 = {
  150.     NULL,    /* next Menu structure */
  151.     0,0,    /* XY origin of Menu hit box relative to screen TopLeft */
  152.     63,0,    /* Menu hit box width and height */
  153.     MENUENABLED,    /* Menu flags */
  154.     "Project",    /* text of Menu name */
  155.     &MenuItem1    /* MenuItem linked list pointer */
  156. };
  157.  
  158. #define MenuList1 Menu1
  159.  
  160. struct NewWindow NewWindowStructure1 = {
  161.     0,0,    /* window XY origin relative to TopLeft of screen */
  162.     320,HEIGHT,    /* window width and height */
  163.     4,8,    /* detail and block pens */
  164.     VANILLAKEY|MENUPICK,    /* IDCMP flags */
  165.     SMART_REFRESH+BACKDROP+BORDERLESS+ACTIVATE,    /* other window flags */
  166.     NULL,    /* first gadget in gadget list */
  167.     NULL,    /* custom CHECKMARK imagery */
  168.     " ",    /* window title */
  169.     NULL,    /* custom screen pointer */
  170.     NULL,    /* custom bitmap */
  171.     5,5,    /* minimum width and height */
  172.     -1,-1,    /* maximum width and height */
  173.     CUSTOMSCREEN    /* destination screen type */
  174. };
  175.  
  176. SHORT BorderVectors1[] = {
  177.     0,0,
  178.     51,0,
  179.     51,41,
  180.     0,41,
  181.     0,0
  182. };
  183. struct Border Border1 = {
  184.     -1,-1,    /* XY origin relative to container TopLeft */
  185.     3,0,JAM1,    /* front pen, back pen and drawmode */
  186.     5,    /* number of XY vectors */
  187.     BorderVectors1,    /* pointer to XY vectors */
  188.     NULL    /* next border in list */
  189. };
  190.  
  191. struct IntuiText IText3 = {
  192.     3,0,JAM2,    /* front and back text pens, drawmode and fill byte */
  193.     15,17,    /* XY origin relative to container TopLeft */
  194.     NULL,    /* font pointer or NULL for default */
  195.     "OK",    /* pointer to text */
  196.     NULL    /* next IntuiText structure */
  197. };
  198.  
  199. struct Gadget Gadget1 = {
  200.     NULL,    /* next gadget */
  201.     65,217,    /* origin XY of hit box relative to window TopLeft */
  202.     50,40,    /* hit box width and height */
  203.     NULL,    /* gadget flags */
  204.     RELVERIFY,    /* activation flags */
  205.     BOOLGADGET,    /* gadget type flags */
  206.     (APTR)&Border1,    /* gadget border or image to be rendered */
  207.     NULL,    /* alternate imagery for selection */
  208.     &IText3,    /* first IntuiText structure */
  209.     NULL,    /* gadget mutual-exclude long word */
  210.     NULL,    /* SpecialInfo structure */
  211.     NULL,    /* user-definable data */
  212.     NULL    /* pointer to user-definable data */
  213. };
  214.  
  215. #define GadgetList2 Gadget1
  216.  
  217. struct IntuiText IText5 = {
  218.     3,0,JAM2,    /* front and back text pens, drawmode and fill byte */
  219.     40,114,    /* XY origin relative to container TopLeft */
  220.     NULL,    /* font pointer or NULL for default */
  221.     "By Roger Uzun",    /* pointer to text */
  222.     NULL    /* next IntuiText structure */
  223. };
  224.  
  225. struct IntuiText IText4a = {
  226.     3,0,JAM2,    /* front and back text pens, drawmode and fill byte */
  227.     16,61,    /* XY origin relative to container TopLeft */
  228.     NULL,    /* font pointer or NULL for default */
  229.     "Press 'C' to Cycle",    /* pointer to text */
  230.     &IText5    /* next IntuiText structure */
  231. };
  232.  
  233. struct IntuiText IText4 = {
  234.     3,0,JAM2,    /* front and back text pens, drawmode and fill byte */
  235.     6,21,    /* XY origin relative to container TopLeft */
  236.     NULL,    /* font pointer or NULL for default */
  237.     "EHBPlasma Version 1.0",    /* pointer to text */
  238.     &IText4a    /* next IntuiText structure */
  239. };
  240.  
  241.  
  242. struct NewWindow NewWindowStructure3 = {
  243.     70,30,    /* window XY origin relative to TopLeft of screen */
  244.     180,280,    /* window width and height */
  245.     0,1,    /* detail and block pens */
  246.     GADGETUP,    /* IDCMP flags */
  247.     SIMPLE_REFRESH+ACTIVATE+NOCAREREFRESH,    /* other window flags */
  248.     &Gadget1,    /* first gadget in gadget list */
  249.     NULL,    /* custom CHECKMARK imagery */
  250.     " ",    /* window title */
  251.     NULL,    /* custom screen pointer */
  252.     NULL,    /* custom bitmap */
  253.     5,5,    /* minimum width and height */
  254.     -1,-1,    /* maximum width and height */
  255.     CUSTOMSCREEN    /* destination screen type */
  256. };
  257.  
  258.  
  259. struct Screen *sC;
  260. struct Window *wG;
  261. UWORD done=0;
  262.  
  263. long maparray[256]={5,1,1,1,1,1,2,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5,6,6,6,6,/* 26 */
  264.             7,7,7,7,7,8,8,8,8,9,9,9,9,10,10,10,10,/* 43 */
  265.                     33,33,33,33,33,34,34,34,34,34,35,35,35,35,/* 57 */
  266.             36,36,36,36,37,37,37,37,38,38,38,38,39,39,39,39,/* 73 */
  267.             40,40,40,40,41,41,41,41,42,42,42,42, /* 85 */
  268.  
  269.             11,11,11,11,11,12,12,12,12,12,13,13,13,13,14,14,14,14,15,15,15,15,16,16,16,16,/* 26 */
  270.             17,17,17,17,17,18,18,18,18,19,19,19,19,20,20,20,20,/* 43 */
  271.                     43,43,43,43,43,44,44,44,44,44,45,45,45,45,/* 57 */
  272.             46,46,46,46,47,47,47,47,48,48,48,48,49,49,49,49,/* 73 */
  273.             50,50,50,50,51,51,51,51,52,52,52,52, /* 85 */
  274.  
  275.             21,21,21,21,21,22,22,22,22,22,23,23,23,23,24,24,24,24,25,25,25,25,26,26,26,26,/* 26 */
  276.             27,27,27,27,27,28,28,28,28,29,29,29,30,30,30,31,31,/* 43 */
  277.                     53,53,53,53,53,54,54,54,54,54,55,55,55,55,/* 57 */
  278.             56,56,56,56,57,57,57,57,58,58,58,58,59,59,59,59,/* 73 */
  279.             60,60,60,61,61,61,62,62,62,63,63,63 /* 85 */};
  280. long rev_array[64]={    0,
  281.             1,5,9,13,17,21,25,29,33,38,
  282.             86,90,94,98,102,106,110,114,118,123,
  283.             171,175,179,183,187,191,195,199,203,206,
  284.             208,32,
  285.             44,48,52,56,60,64,68,72,76,83,
  286.             129,133,137,141,145,149,153,157,161,165,
  287.             214,218,222,226,230,234,238,242,246,250,
  288.             250};
  289.     
  290. long seed = 7L;
  291.  
  292. #ifdef PROTOTYPES
  293.  
  294. void CycleColors(void);
  295. void __regargs HandleEvent(APTR);
  296. void DoAbout(void);
  297. void DoQuit(void);
  298. void __regargs SubDivide(long,long,long,long);
  299. void __regargs adjust(long,long,long,long,long,long);
  300.  
  301. #endif
  302.  
  303.  
  304. void CycleColors()
  305. {
  306.  ULONG class;
  307.  UWORD d=0,i,temp;
  308.  USHORT tpal[PaletteColorCount];
  309.  struct IntuiMessage *message;
  310.  
  311.  for(i=0;i<PaletteColorCount;i++)
  312.   tpal[i] = Palette[i];
  313.  while (!d)
  314.   {
  315.    temp = tpal[1];
  316.    for(i=2;i<PaletteColorCount;i++)
  317.     {
  318.      tpal[i-1] = tpal[i];
  319.     }
  320.    tpal[(PaletteColorCount-1)] = temp;
  321.    LoadRGB4(&(sC->ViewPort),tpal,PaletteColorCount);
  322.    Delay(6L);
  323.    if ( (message = (struct IntuiMessage *)
  324.     GetMsg(wG->UserPort) ))
  325.     {
  326.     class = message->Class;
  327.     ReplyMsg((struct Message *)message);
  328.     if (class = VANILLAKEY)
  329.      d = 1;
  330.     }
  331.   } 
  332.  LoadRGB4(&(sC->ViewPort),Palette,PaletteColorCount);
  333. }
  334.  
  335. void __regargs adjust(xa,ya,x,y,xb,yb)
  336. long xa,ya,x,y,xb,yb;
  337. {
  338.  long t1,t2;
  339.  register long globalcolor;
  340.  
  341.  if (ReadPixel(rpG,x,y))
  342.   return;
  343.  globalcolor = randu2(3L) * (abs(xa-xb)+abs(ya-yb));
  344.  t1 = unmap(ReadPixel(rpG,xa,ya));
  345.  t2 = unmap(ReadPixel(rpG,xb,yb));
  346.  if (!randu2(2L))
  347.   {
  348.    globalcolor = -globalcolor;
  349.   }
  350.  globalcolor = ((t1+t2)>>1)+globalcolor;
  351.  globalcolor &= 0xffL;
  352.  globalcolor = maparray[globalcolor];
  353.  SetAPen(rpG,globalcolor);
  354.  WritePixel(rpG,x,y);
  355. #ifdef DEBUG
  356. temparray[globalcolor]++;
  357. #endif
  358. }
  359.  
  360. void __regargs SubDivide(x1,y1,x2,y2)
  361. long x1,y1,x2,y2;
  362. {
  363.  long t1,t2,t3,t4;
  364.  ULONG signals,v;
  365.  struct IntuiMessage *message;
  366.  long x,y,class,code;
  367.  APTR object;
  368.  UWORD d;
  369.  
  370.  if (((x2-x1)<2L) && ((y2-y1)<2L))
  371.   return;
  372.  if ( (message = (struct IntuiMessage *)
  373.     GetMsg(wG->UserPort) ))
  374.   {
  375.     class = message->Class;
  376.     code = message->Code;
  377.     object = message->IAddress;  /* Gadget */
  378.     ReplyMsg((struct Message *)message);
  379.     if ( class == MENUPICK )    /* MenuItems */
  380.      HandleEvent((APTR)ItemAddress(&MenuList1,code));
  381.     else if (class = VANILLAKEY)
  382.      {
  383.           if ((code == 'c')||(code == 'C'))
  384.        {
  385.         CycleColors();
  386.        }
  387.           else
  388.            {
  389.         d = 0;
  390.         while(!d)
  391.          {
  392.           signals = Wait(WINDOWSIGNAL);
  393.           if (signals & WINDOWSIGNAL)
  394.            while ((message = (struct IntuiMessage *)
  395.                   GetMsg(wG->UserPort)))
  396.             {
  397.              class = message->Class;
  398.              ReplyMsg((struct Message *)message);
  399.              if (class == VANILLAKEY)
  400.               d = 1;
  401.             }
  402.          }
  403.            }
  404.      }
  405.   }
  406.  if (done)
  407.   return;
  408.  x = (x1+x2)>>1;
  409.  y = (y1+y2)>>1;
  410.  if (!ReadPixel(rpG,x,y))
  411.   {
  412.    t1 = unmap(ReadPixel(rpG,x1,y1));
  413.    t2 = unmap(ReadPixel(rpG,x2,y1));
  414.    t3 = unmap(ReadPixel(rpG,x2,y2));
  415.    t4 = unmap(ReadPixel(rpG,x1,y2));
  416.    v = ((t1+t2+t3+t4)>>2);
  417.    v = maparray[v];
  418.    SetAPen(rpG,v);
  419.    WritePixel(rpG,x,y);
  420.   }
  421.  adjust(x1,y1,x,y1,x2,y1);
  422.  adjust(x2,y1,x2,y,x2,y2);
  423.  adjust(x1,y2,x,y2,x2,y2);
  424.  adjust(x1,y1,x1,y,x1,y2);
  425.  SubDivide(x1,y1,x,y);
  426.  SubDivide(x,y1,x2,y);
  427.  SubDivide(x,y,x2,y2);
  428.  SubDivide(x1,y,x,y2);
  429. }
  430.  
  431. void DoAbout()
  432. {
  433.  struct IntuiMessage *message;
  434.  struct Window *wG3;
  435.  
  436.  if (!(wG3 = OpenWindow(&NewWindowStructure3)))
  437.  {
  438.   DisplayBeep(0L);
  439.   return;
  440.  }
  441.  PrintIText(wG3->RPort,&IText4,0L,0L);
  442.  WaitPort(wG3->UserPort);
  443.  while(message = (struct IntuiMessage *)GetMsg(wG3->UserPort))
  444.   ReplyMsg((struct Message *)message);
  445.  CloseWindow(wG3);
  446. }
  447.  
  448. void __regargs HandleEvent(object)
  449. APTR object;
  450. {
  451.   if (object == (APTR)&MenuItem1) { DoAbout(); return; }
  452.   if (object == (APTR)&MenuItem2) { DoQuit(); return; }
  453. }
  454. #define HANDLEEVENT HandleEvent
  455.  
  456. /* end of PowerWindows source generation */
  457.  
  458.  
  459.  
  460. void DoQuit()
  461. {
  462.  done = TRUE;
  463. }
  464.  
  465. /* end of PowerWindows source generation */
  466.  
  467.  
  468. void main(void);
  469. void main()
  470. {
  471. #ifdef DEBUG
  472. int d;
  473. #endif
  474.     UWORD code;
  475.     ULONG class;
  476.     APTR object;
  477.     ULONG signals;
  478.     struct IntuiMessage *message;    /* the message the IDCMP sends us */
  479.  
  480. #ifdef CPU020
  481.  
  482.  struct ExecBase **execbaseptr=(struct ExecBase **)4L;
  483.  UWORD cpuid;
  484.  struct ExecBase *execbase;
  485.  
  486.  execbase = *execbaseptr;
  487.  cpuid = execbase->AttnFlags;
  488.  if (!(cpuid & AFF_68020))
  489.   {
  490.    exit(0);
  491.   }
  492. #endif
  493.  
  494. #ifdef DEBUG
  495. for(d=0;d<64;d++)temparray[d] = 0;
  496. #endif
  497.     if(!(IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 33L)))
  498.          {
  499.            exit(0);
  500.          }
  501.     if(!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 33L)))
  502.          {
  503.            CloseLibrary((struct Library *)IntuitionBase);
  504.            exit(0);
  505.          }
  506.         if (!(myTextFont = OpenFont(&TOPAZ80)))
  507.          {
  508.           CloseLibrary((struct Library *)GfxBase);
  509.           CloseLibrary((struct Library *)IntuitionBase);
  510.           exit(0);
  511.          }
  512.     if (!(sC = OpenScreen(&NewScreenStructure)))
  513.          {
  514.           CloseFont(myTextFont);
  515.           CloseLibrary((struct Library *)GfxBase);
  516.           CloseLibrary((struct Library *)IntuitionBase);
  517.           exit(0);
  518.          }
  519.     LoadRGB4(&(sC->ViewPort),Palette,PaletteColorCount);
  520.     NewWindowStructure3.Screen = NewWindowStructure1.Screen = sC;
  521.     wG = OpenWindow(&NewWindowStructure1);    /* open the window */
  522.     if ( wG == NULL )
  523.     {
  524.       CloseScreen(sC);
  525.           CloseFont(myTextFont);
  526.           CloseLibrary((struct Library *)GfxBase);
  527.           CloseLibrary((struct Library *)IntuitionBase);
  528.           exit(0);
  529.     }
  530.     rpG = wG->RPort;    /* get a rastport pointer for the window */
  531.     SetFont(rpG,myTextFont);
  532.     SetMenuStrip(wG,&MenuList1);    /* attach any Menu */
  533.         SetDrMd(rpG,JAM1);
  534.         seed = time(0L);
  535.         signals = (randu2(63L)) + 1L;
  536.         SetAPen(rpG,signals);
  537.         WritePixel(rpG,0L,11L);
  538.         signals = (randu2(63L)) + 1L;
  539.         SetAPen(rpG,signals);
  540.         WritePixel(rpG,319L,11L);
  541.         signals = (randu2(63L)) + 1L;
  542.         SetAPen(rpG,signals);
  543.         WritePixel(rpG,319L,HEIGHT-1L);
  544.         signals = (randu2(63L)) + 1L;
  545.         SetAPen(rpG,signals);
  546.         WritePixel(rpG,0L,HEIGHT-1L);
  547.         SubDivide(0L,11L,319L,HEIGHT-1L);
  548.     while(!done)
  549.     {
  550.         signals = Wait(WINDOWSIGNAL);
  551.         if (signals & WINDOWSIGNAL)
  552.             while( (message = (struct IntuiMessage *)
  553.                 GetMsg(wG->UserPort) ) != NULL)
  554.             {
  555.                 class = message->Class;
  556.                 code = message->Code;
  557.                 object = message->IAddress;  /* Gadget */
  558.                 ReplyMsg((struct Message *)message);
  559.                 if ( class == MENUPICK )    /* MenuItems */
  560.                  HandleEvent((APTR)ItemAddress(&MenuList1,code));
  561.                 else if (class = VANILLAKEY)
  562.                  {
  563.                       if ((code == 'c')||(code == 'C'))
  564.                    {
  565.                     CycleColors();
  566.                    }
  567.                  }
  568.             }
  569.     }
  570.         CloseWindow(wG);
  571.         CloseFont(myTextFont);
  572.         CloseScreen(sC);
  573.         CloseLibrary((struct Library *)GfxBase);
  574.         CloseLibrary((struct Library *)IntuitionBase);
  575. #ifdef DEBUG
  576. for(d=0;d<64;d++)printf("temp[%d] = %d\n",d,temparray[d]);
  577. #endif
  578. }
  579.