home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / graphics / fractal_1 / !Fractal / Scripts / test < prev   
Text File  |  1993-09-21  |  1KB  |  55 lines
  1. Script
  2. Select Image,Mode,103            \ CC's Mode 103 if available
  3. if errcnt>0
  4.   Select Image,Mode,21
  5. endif
  6. \Load "<Frac$PDir>.Plate27"
  7.  
  8. \ Program palette. First a grey shade for the image.
  9. i=0;
  10. c=21;           \ Initial colour
  11. dc=234/192;     \ colour increment
  12. while i<192     \ set colours 0-191
  13.   pal_red i,c;
  14.   pal_green i,c;
  15.   pal_blue i,c;
  16.   i=i+1;
  17.   c=c+dc;
  18. endwhile
  19. \ Colour 192 is for Interior
  20. pal_red 192,255; pal_green 192,31; pal_blue 192,31;
  21. \ Colour of background - 63 blue shades
  22. i=193;
  23. blue=127;   \ initial blue
  24. redgreen=0; \ initial red & green
  25. drg=201/63; \ red/green increment
  26. db=128/63;  \ blue increment
  27. while i<256
  28.   pal_red i,redgreen;
  29.   pal_green i,redgreen;
  30.   pal_blue i,blue;
  31.   i=i+1;
  32.   redgreen=redgreen+drg;
  33.   blue=blue+db;
  34. endwhile
  35.   
  36. \ Draw background
  37. dy=0-y_osunits/128               \ Size of each colour band
  38. c=193
  39. y=y_osunits
  40. while c<256                      \ blue sky
  41.   colour 0,c
  42.   plot 4,0,y
  43.   plot 97,x_osunits,dy
  44.   y=y+dy
  45.   c=c+1
  46. endwhile
  47. c=64
  48. while y>0                        \ grey ground
  49.   colour 0,c
  50.   plot 4,0,y
  51.   plot 97,x_osunits,dy
  52.   y=y+dy
  53.   c=c-1
  54. endwhile
  55.