* Define parameter to be used later.
*
define/NX/50
define/NY/50
define/MIN/0.0                                                                  
define/MAX/1.0
*
* Create the quad surfaces
*
cmo/create/CMO_OBJ///quad                                                         
quadxy NX NY/MIN MIN 0./MAX MIN 0./MAX MAX 0./MIN MAX 0.
rzbrick/xyz/NX,NY,1/1,0,0/connect
*
cmo / setatt / -def- / itetclr / 1 0 0 / 1
cmo / setatt / -def- / imt     / 1 0 0 / 1
cmo / printatt / -def- / -xyz- / minmax
*
* Use the math command to set the z coordinates to:
*
* z(i)=sin(y(i))
*
* First make x and y coordinates to 0-10 so the sin(y) goes through
* complete 2pi cycles.
*
scale / 1 0 0 / relative / xyz / 10. 10. 1.
cmo / printatt / -def- / -xyz- / minmax
math/sin/CMO_OBJ/zic/1,0,0/CMO_OBJ/yic
cmo / printatt / -def- / -xyz- / minmax
scale / 1 0 0 / relative / xyz / 0.1 0.1 0.1
cmo / printatt / -def- / -xyz- / minmax
trans / 1 0 0 / 0. 0. 0. / 0. 0. 0.5
cmo / printatt / -def- / -xyz- / minmax
*
finish