home *** CD-ROM | disk | FTP | other *** search
/ .net 1997 May / net 32 / NET32PC.iso / mac / NET32PC / CYBERTAT / WIN95 / _SETUP.1 / WEB4.POP < prev    next >
Encoding:
Text File  |  1996-09-04  |  1.9 KB  |  77 lines
  1. // web4.pop
  2. // describes a form based on William Latham's "Web Forms"
  3. // extends upon web.pop by adding rotational commands to horn forms
  4. // extends upon web1.pop by adding vector-egg-scaling
  5. // extends upon web2.pop in many ways
  6.  
  7. population 0
  8. dimensions = 1
  9. colour_model RGB
  10. render_quality flat
  11.  
  12. genome 0 {
  13.  
  14.     // top level structure iterates in a circle, creating outward pointing spokes
  15.     setScalarMem( 0, 5 : 3 : 10 ),  // mem[0] = #spokes
  16.     branchFor(
  17.         getScalarMem(0),
  18.         1,        // mem[1] = current spoke [ 0 ... #spokes-1]
  19.  
  20.         // inter-spoke code - rotates in a circle
  21.         *join(
  22.             swivelLeft( div(dtor(360), getScalarMem(0)) ),
  23.             rotate( <0,0,0> : <-.8,-.8,-.8> : <.8,.8,.8> )
  24.         ),
  25.  
  26.         // spoke code - creates a horn form jutting out at right angles to
  27.         // main circle and then branches smaller sub-horns at right angles
  28.         join(
  29.             swivelRight( dtor(90) ),
  30.  
  31.             // major horn form
  32.             *scope(
  33.                 eggScale( 1 : .5 : 1.5 ),
  34.                 repeat(
  35.                     5 : 2 : 20,
  36.                     join(
  37.                         forward( .3 : 0.001 : 0.45 ),
  38.                         moveHue( .01 : -.02 : .02 ),
  39.                         rotate( <0,0,0> : <-.8,-.8,-.8> : <.8,.8,.8> ),
  40.                         eggVectorScale( <1,1,1> : <.9,.9,.9> : <1.1,1.1,1.1> ),
  41.                         lay
  42.                     )
  43.                 )
  44.             ), // end major horn form
  45.  
  46.             // minor branches
  47.             *repeat(
  48.                 10 : 2 : 15,
  49.  
  50.                 join(
  51.                     forward( .5 : 0.1 : 1.5 ),
  52.                     rotate( <0,0,0> : <-.8,-.8,-.8> : <.8,.8,.8> ),
  53.  
  54.                     // minor horn-form
  55.                     *scope(
  56.                         swivelRight( dtor(90) ),
  57.                         scale( .5 : 0.1 : 1.3 ),
  58.                         repeat(
  59.                             20 : 2 : 40,
  60.                             join( 
  61.                                 forward( .5 : 0.05 : 0.6 ),
  62.                                 moveHue( .01 : -.02 : .02 ),
  63.                                 rotate( <0,0,0> : <-.8,-.8,-.8> : <.8,.8,.8> ),
  64.                                 eggVectorScale( <1,1,1> : <.9,.9,.9> : <1.1,1.1,1.1> ),
  65.                                 lay
  66.                             )
  67.                         )
  68.                     ) // end minor horn form
  69.                 )
  70.             ) // end minor branches
  71.     
  72.         )  // end spoke code
  73.     ) // end web 'branchFor'
  74. }
  75.  
  76. // eof : web4.pop
  77.