home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / f / fractal112 / !Fractal / Scripts / Red_Julia < prev    next >
Encoding:
Text File  |  1993-09-21  |  1.7 KB  |  72 lines
  1. Script
  2. \ This script draws a CPM Julia against a blue background.
  3. \ After plotting you will need to set the screen palette (Palette->Set Screen)
  4. \ assuming you have a colour card. Otherwise save the image and load it into
  5. \ Translator v7.++ which will give a good dithered representation.
  6.  
  7. Select Image,Mode,103            \ CC's Mode 103 if available
  8. if errcnt>0
  9.   Select Image,Mode,21
  10. endif
  11.  
  12. \ Program palette. 192 grey shades for the image & background.
  13. i=0;
  14. c=21;           \ Initial colour
  15. dc=234/192;     \ colour increment
  16. while i<192     \ set colours 0-191
  17.   pal_red i,c;
  18.   pal_green i,c;
  19.   pal_blue i,c;
  20.   i=i+1;
  21.   c=c+dc;
  22. endwhile
  23. \ Colour 192 is for Interior
  24. pal_red 192,255; pal_green 192,31; pal_blue 192,31;
  25. \ Colour of background - 63 blue shades
  26. i=193;
  27. blue=127;   \ initial blue
  28. redgreen=0; \ initial red & green
  29. drg=201/63; \ red/green increment
  30. db=128/63;  \ blue increment
  31. while i<256
  32.   pal_red i,redgreen;
  33.   pal_green i,redgreen;
  34.   pal_blue i,blue;
  35.   i=i+1;
  36.   redgreen=redgreen+drg;
  37.   blue=blue+db;
  38. endwhile
  39.  
  40. \ Draw background
  41. dy=0-y_osunits/126               \ Size of each colour band
  42. c=193
  43. y=y_osunits
  44. while c<256                      \ blue sky
  45.   colour 0,c
  46.   plot 4,0,y
  47.   plot 97,x_osunits,dy
  48.   y=y+dy
  49.   c=c+1
  50. endwhile
  51. c=255
  52. while y>0                        \ blue ground
  53.   colour 0,c
  54.   plot 4,0,y
  55.   plot 97,x_osunits,dy
  56.   y=y+dy
  57.   c=c-1
  58. endwhile
  59.  
  60. \ Draw 3d Julia using CPM
  61. fractal=Julia_Set
  62. Data x0=-1.4,y0=-1.13,width=2.8,height=2.24
  63. Data Max Iter=64,Min Iter=10,c Real=-0.18,c Imaginary=0.7
  64. Data Limit=1000,Slope=1000,Max Colour=191
  65. Select Julia_Set,Interior,Colour,192
  66. Select Julia_Set,Method,Continuous Potential
  67. Off Image,Redraw,Clear
  68. XY_Guessing Off                  \ Allow overlay
  69. Draw
  70. On Image,Redraw,Clear
  71. XY_Guessing On
  72.