PHOTON USE
    x
    x1


    msg(  PLANT generated grid
    rot y ang 100
    rot z ang 30
    *gr z 1
    gr z m
    gr y m
    ENDUSE

  DISPLAY
                
    PLANT is used to create body-fittted-coordinate grids
    defined by formulae.
    

    Example: 3D grid of star-shaped cross section
  ENDDIS

TEXT( 3D grid of star-shaped cross section

    GROUP 6. Body-fitted coordinates or grid distortion
nx=28;ny=10;nz=20
bfc=t
CSG1=PHI;CSG2=XYZ;lsweep=1;IDISPA=1
store(mark)
NAMSAT=MOSG

  PLANTBEGIN  
real(twopi,littler)
littler=1.0;twopi=2.0*3.14157
RG(1)=TWOPI
      XC=:LITTLER:*FLOAT(J-1)/FLOAT(NY)*$
              COS(RG(1)*FLOAT(I-1)/FLOAT(NX))**3
      YC=:LITTLER:*FLOAT(J-1)/FLOAT(NY)*$
              SIN(RG(1)*FLOAT(I-1)/FLOAT(NX))**3
      ZC=5*FLOAT(K-1)/FLOAT(NZ)
  PLANTEND   

tstswp=-1
dmpstk=t
DISTIL=T
EX(MARK)=1.000E-10
 LIBREF=500
STOP