home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / graphic / arteffectdemodisk1.dms / arteffectdemodisk1.adf / Macros / Macros.lzh / paintpic / Spreadsheet < prev   
Text File  |  1995-01-04  |  1KB  |  67 lines
  1. /*
  2.  * Spreadsheat - Diagramm
  3.  */
  4.  
  5. address "ArtEffect"
  6.  
  7. /* blue,yellow,red
  8. r1=128; g1=128; b1=255;
  9. r2=0; g2=0; b2=128;
  10. r3=255; g3=0; b3=0;
  11. r4=255; g4=255; b4=0;
  12. */
  13. /* green, red
  14. r1=255; g1=255; b1=255;
  15. r2=0; g2=255; b2=0;
  16. r3=255; g3=0; b3=0;
  17. r4=255; g4=255; b4=255;
  18. */
  19. /*
  20. r1=0;        g1=0;        b1=0;
  21. r2=255;    g2=255;    b2=255;
  22. */
  23. r1=255;    g1=255;    b1=0;
  24. r2=255;    g2=255;    b2=255;
  25. r3=128;    g3=128;    b3=255;
  26. r4=0;        g4=0;        b4=128;
  27.  
  28. new 320 256 "Spreadsheat"
  29.  
  30. setgraduate roughness 0 colors 256 rgb
  31.  
  32. /* blue spread */
  33. palette reg 255 red r1 green g1 blue b1
  34. palette reg 0 endreg 255 red r2 green g2 blue b2 spread
  35. palette reg 0 endreg 255 range
  36.  
  37. setgraduate linear sx 319 sy 255 ex 0 ey 0
  38. rectangle 0 0 320 256 fill
  39.  
  40. /* red/yellow spread */
  41. palette reg 255 red r3 green g3 blue b3
  42. palette reg 1 endreg 255 red r4 green g4 blue b4 spread
  43. palette reg 1 endreg 255 range
  44.  
  45. paintmode mix
  46. settings mix 50
  47.  
  48. do i=0 to 5
  49.     palette reg 0 red 0 green 0 blue 0
  50.  
  51.     setgraduate off
  52.     h=random(0,224)
  53.     rectangle 16+i*48+8 16+h 32 232-h fill
  54.  
  55.     setgraduate linear sx 0 sy 0 ex 0 ey 255
  56.     /*setgraduate linear sx 0 sy 0 ex 319 ey 255*/
  57.     /*setgraduate linear sx 16+i*48 sy 8+h ex 16+i*48+31 ey 240*/
  58.  
  59.     rectangle 16+i*48 8+h 32 232-h fill
  60. end
  61.  
  62. palette reg 0 red 0 green 0 blue 0
  63. paintmode mix
  64. settings mix 50
  65. setgraduate off
  66. rectangle 16 16 160 64 fill
  67.