rem Written by Brian Ott & Hans Winkler
rem ** This is a cadl program to set views to View 7 and 7 other sides of a cube **

rem ** array decleration for view coordinates **
ARRAY vwmx[9]


:start

GETMENU "Hit Enter or Esc to stay at current View",\
        "View7", "Right7", "Back7", "Left7", "Bottom7", "R_Bottom", "B_Bottom",\
        "L_Bottom", "Prog Info"
     if (@key == -3)
     goto exit
     if (@key == -2)
     goto exit
     if (@key == -1)
     goto exit
  if (@key == 9)
      reg_code = 1
    if (@key == 9)
        goto reg_screen
  if (@key == 8)
     goto leftbottom7
  if (@key == 7)
     goto backbottom7
  if (@key == 6)
     goto rightbottom7
  if (@key == 5)
     goto bottom7
  if (@key == 4)
     goto left7
  if (@key == 3)
     goto back7
  if (@key == 2)
     goto right7 
  if (@key == 1)
     
SET VIEW, 7
AUTO 1
REDRAW -1
   goto start

rem ** coordinates for the view to the left of view 7 **
:left7
vwmx[0] = 0.707106781187
vwmx[1] = 0.40824829046
vwmx[2] = -0.577350269190
vwmx[3] = -0.707106781187
vwmx[4] = 0.40824829046
vwmx[5] = -0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = .81649658092
vwmx[8] = 0.577350269190

VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview,

AUTO 1
REDRAW -1
   goto start


rem ** coordinates for the view to the right of view 7 **
:right7
vwmx[0] = -0.707106781187
vwmx[1] = -0.40824829046
vwmx[2] = 0.577350269190
vwmx[3] = 0.707106781187
vwmx[4] = -0.40824829046
vwmx[5] = 0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = .81649658092
vwmx[8] = 0.577350269190

VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview,

AUTO 1
REDRAW -1
   goto start


rem ** coordinates for the view to the back of view 7 **
:back7
vwmx[0] = -0.707106781187
vwmx[1] = 0.40824829046
vwmx[2] = -0.577350269190
vwmx[3] = -0.707106781187
vwmx[4] = -0.40824829046
vwmx[5] = 0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = .81649658092
vwmx[8] = 0.577350269190

VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview,

AUTO 1
REDRAW -1
   goto start


rem ** coordinates for the view to the back bottom of view 7 **
:backbottom7
vwmx[0] = 0.707106781187
vwmx[1] = -0.40824829046
vwmx[2] = 0.577350269190
vwmx[3] = -0.707106781187
vwmx[4] = -0.40824829046
vwmx[5] = 0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = -.81649658092
vwmx[8] = -0.577350269190


VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview,

AUTO 1
REDRAW -1
   goto start


rem ** coordinates for the view to the left bottom of view 7 **
:leftbottom7
vwmx[0] = -0.707106781187
vwmx[1] = -0.40824829046
vwmx[2] = 0.577350269190
vwmx[3] = -0.707106781187
vwmx[4] = 0.40824829046
vwmx[5] = -0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = -.81649658092
vwmx[8] = -0.577350269190


VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview,

AUTO 1
REDRAW -1
   goto start


rem ** coordinates for the view to the right bottom of view 7 **
:rightbottom7
vwmx[0] = 0.707106781187
vwmx[1] = 0.40824829046
vwmx[2] = -0.577350269190
vwmx[3] = 0.707106781187
vwmx[4] = -0.40824829046
vwmx[5] = 0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = -.81649658092
vwmx[8] = -0.577350269190


VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview,

AUTO 1
REDRAW -1
   goto start


rem ** coordinates for the view to the bottom of view 7 **
:bottom7
vwmx[0] = -0.707106781187
vwmx[1] = 0.40824829046
vwmx[2] = -0.577350269190
vwmx[3] = 0.707106781187
vwmx[4] = 0.40824829046
vwmx[5] = -0.577350269190
vwmx[6] = 0.000000000000
vwmx[7] = -.81649658092
vwmx[8] = -0.577350269190


VIEW 1, vwmx[0], vwmx[1], vwmx[2], vwmx[3], vwmx[4], vwmx[5], vwmx[6], vwmx[7], vwmx[8],

CALL CDLV2SYSV, 1, sysview
SET VIEW, sysview

AUTO 1
REDRAW -1
   goto start

:exit

:sec_exit

clear vwmx, sysview

exit