cmo/create/3dmesh

surface/box1/reflect /box/-1.0,-1.0,0.0/ 1.0, 1.0, 1.0/

surface/h1/intrface /cylinder/ 0.5, -1.,0.5/ 0.5, 1.0, 0.5/.1/

region/H1/ le box1 and le h1 /

region/Fill/ le box1 and gt h1 /

mregion/Air/ le box1 and lt h1 /

mregion/Solid/Fill

rz/xyz/11,11,1/-1.,-1.,1.1/1.0,1.0,1.1/,1,1,0/

pset/rays/seq/1,0,0/

regnpts/Fill/11/pset,get,rays/xyz/ 0.0,0.0,-0.1/1.0,1.0,-0.1/ &

0.0,1.0,-0.1/0,0/

rz/rtz/1,13,11/5.,0.,-1./5.,360.,1./0,1,1/0,0,0/

pset/ray1/seq/0,0,0/

rotateln/pset,get,ray1/nocopy/-100.,0.,0./100.,0.,0./-90./0.,0.,0./

trans/pset,get,ray1/0.,0.,0./0.5,0.,0.5/

regnpts/H1/3/pset,get,ray1/rtz/0.5,-1.1,0.5/0.5,1.1,0.5/0,0/

filter/1,0,0/

zq/imt/1,0,0/1/

zq/itp/pset,get,rays/21

zq/itp/pset,get,ray1/21

setpts

search

settets

dump/gmv/gmvr.cylrot/3dmesh

finish

 

 

 

 

Return to LaGriT Home Page