* Script to generate vertices with proper coordinates * Maxim Potekhin, potekhin@bnl.gov * macro phase_gen input geometry ntrack pid ptlow pthigh ylow yhigh philow phihigh phase_file detp geom [geometry] gcalor_on make geometry gclose all gfile o [phase_file] ve/read x,y,z [input] gkine [ntrack] [pid] [ptlow] [pthigh] [ylow] [yhigh] [philow] [phihigh] * glo/cre length $vdim(z) * * Main loop: do i=1,[length] gvertex x([i]) y([i]) z([i]) trig enddo quit