home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p068 / 4.img / GERR.CDL < prev    next >
Encoding:
Text File  |  1989-01-04  |  3.1 KB  |  171 lines
  1. REM  @(#)CADKEY SOLIDS    gerr.cdl    2.1    10/18/88
  2. REM  
  3. REM "This program processes a graphical error file from           "
  4. REM "SSHLR and allows the user to interactivly display bad points "
  5. REM "and lines and good points and lines. This is accomplished    "
  6. REM "by selecting the various levels the data appears on.         "
  7.  
  8.  LEVELS 1,1,6
  9.  AUTO
  10.  REDRAW
  11.  
  12. array active[7] = {1,1,1,1,1,1,1}
  13.  
  14. REM "Display Menu "
  15.  
  16. :mainmenu
  17.     getmenu "GERR:  Choose option",\
  18.         "DSP ALL",     \
  19.         "SER ERR",     \
  20.         "BD EDGES",     \
  21.         "GD EDGES",     \
  22.         "POLYGON",     \
  23.         "BD PTS1",      \
  24.         "BD PTS2",      \
  25.         "CLEAR  ",      \
  26.         "DONE"
  27.  
  28. REM "Process user input "
  29.  
  30.     on (@key + 3) goto getout,getout,mainmenu,,\
  31.         display_all,     \
  32.         serious_errors , \
  33.         bad_edges ,      \
  34.         good_edges,      \
  35.         fixed_plates,    \
  36.         one_edges_only,  \
  37.         two_edges_only , \
  38.         clear_levels,    \
  39.         getout
  40.     goto mainmenu
  41.  
  42. :display_all
  43.  LEVELS 1,1,6
  44.  REDRAW
  45.  prompt "All data displayed"
  46.  wait 2
  47.  active[1] = 1
  48.  active[2] = 1
  49.  active[3] = 1
  50.  active[4] = 1
  51.  active[5] = 1
  52.  active[6] = 1
  53.  goto mainmenu
  54.  
  55. :serious_errors
  56.  if ( active[1] == 1 ) 
  57.   goto offser
  58.  LEVELS 1,1
  59.  REDRAW
  60.  prompt "Serious geometry errors turned on"
  61.  wait 2
  62.  active[1] = 1
  63.  goto mainmenu
  64. :offser
  65.  LEVELS 0,1
  66.  REDRAW
  67.  prompt "Serious geometry errors turned off"
  68.  active[1] = 0
  69.  wait 2
  70.  goto mainmenu
  71.  
  72. :bad_edges
  73.  if ( active[2] == 1 ) 
  74.   goto offbedge
  75.  LEVELS 1,2
  76.  REDRAW
  77.  prompt "Edges not incorporated into design turned on"
  78.  wait 2
  79.  active[2] = 1
  80.  goto mainmenu
  81. :offbedge 
  82.  LEVELS 0,2
  83.  REDRAW
  84.  prompt "Edges not incorporated into design turned off"
  85.  wait 2
  86.  active[2] = 0
  87.  goto mainmenu
  88.  
  89.  
  90. :good_edges
  91.  if ( active[3] == 1)
  92.  goto offgedge
  93.  LEVELS 1,3
  94.  REDRAW
  95.  prompt "Edges incorporated into design turned on "
  96.  wait 2
  97.  active[3] = 1
  98.  goto mainmenu
  99. :offgedge
  100.  LEVELS 0,3
  101.  REDRAW
  102.  prompt "Edges incorporated into design plates turned off "
  103.  wait 2
  104.  active[3] = 0
  105.  goto mainmenu
  106.  
  107. :fixed_plates
  108.  if ( active[4] == 1 ) 
  109.  goto offfixed
  110.  LEVELS 1,4
  111.  REDRAW
  112.  prompt "Edges of user defined polygons turned on"
  113.  wait 2
  114.  active[4] = 1
  115.  goto mainmenu
  116. :offfixed
  117.  LEVELS 0,4
  118.  REDRAW
  119.  prompt "Edges of user defined polygons turned off"
  120.  active[4] = 0
  121.  wait 2
  122.  goto mainmenu
  123.  
  124. :one_edges_only
  125.  if ( active[5] == 1 )
  126.  goto offone
  127.  LEVELS 1,5
  128.  REDRAW
  129.  prompt "Points assigned to one edge only turned on" 
  130.  wait 2
  131.  active[5] = 1
  132.  goto mainmenu
  133. :offone
  134.  LEVELS 0,5
  135.  REDRAW
  136.  prompt "Points assigned to one edge only turned off"
  137.  wait 2 
  138.  active[5] = 0
  139.  goto mainmenu
  140.  
  141. :two_edges_only
  142.  if ( active[6] == 1 ) 
  143.  goto offtwo
  144.  LEVELS 1,6
  145.  REDRAW
  146.  prompt "Points assigned to two edges only turned on"
  147.  wait 2
  148.  active[6] = 1
  149.  goto mainmenu
  150. :offtwo
  151.  LEVELS 0,6
  152.  REDRAW
  153.  prompt "Points assigned to two edges only turned off"
  154.  wait 2
  155.  active[6] = 0
  156.  goto mainmenu
  157. :clear_levels
  158.  LEVELS 0,1,256
  159.  REDRAW
  160.  prompt "All selections cleared "
  161.  wait 2
  162.  active[1] = 0
  163.  active[2] = 0
  164.  active[3] = 0
  165.  active[4] = 0
  166.  active[5] = 0
  167.  active[6] = 0
  168.  goto mainmenu
  169.  
  170. :getout
  171.