PHOTON USE
    x
    x1


    msg(  PLANT generated grid
    up z
    gr z m
    gr ou z 1
    gr y m
    ENDUSE

  DISPLAY

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

    Example: 3D igloo-like domain
  ENDDIS


TEXT( 3D igloo

    GROUP 6. Body-fitted coordinates or grid distortion
nx=18;ny=16;nz=10
bfc=t;store(mark)
dumpc(grid);readco(grid)
CSG1=PHI;CSG2=XYZ;lsweep=1;idispa=1
NAMSAT=MOSG

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

dmpstk=t
DISTIL=T
EX(MARK)=1.000E-10
 LIBREF=509
STOP