# Script file: tdwg.s
#
#    Script file for testing the drawing package.  Boxes and cylinders are
# defined at various angles, with staight tracks generated through them.

# Define universe:
#   col mat xmin xmax ymin ymax zmin zmax
  u 99  00  -8.  +8.  -8.  +8.  -10. +10.

# Define objects:
#   num/name   shp col mat det bty/mg  pos-(x,y,z)   siz-(1,2,3)   ang-(a,b,c)
  o 01 box1    box 01  00  1   0  0.0   -6  1 -1       2  1  1       0  0  0
  o 02 box2    box 02  00  1   0  0.0   -2  1 -1       2  1  1      30  0  0
  o 03 box3    box 03  00  1   0  0.0   +2  1 -1       2  1  1       0 30  0
  o 04 box4    box 04  00  1   0  0.0   +6  1 -1       2  1  1      30 30  0

  o 11 cyl1    cyl 01  00  1   0  0.0   -6 -1 +1      .5  1  2       0 90  0
  o 12 cyl2    cyl 02  00  1   0  0.0   -2 -1 +1      .5  1  2      30 90  0
  o 13 cyl3    cyl 03  00  1   0  0.0   +2 -1 +1      .5  1  2       0 120 0
  o 14 cyl4    cyl 04  00  1   0  0.0   +6 -1 +1      .5  1  2      30 120 0

# Define generator:
#   num prt flg       pos-(x,y,z)        mom-(x,y,z)        delmom
  g 01  10  0      -8.0  +1.0  -1.0   1.00   0.00   0.00     0.00
  g 02  10  0      -8.0  -1.0  +1.0   1.00   0.00   0.00     0.00