Hole type 6

Door hole. This hole is defined by giving a height, breath, and small radius. The default is taken from the last use within the ship.

Variable	Default	Question
DR	1800 / last user	Height
DR	800 / last user	Width
DR	100 / last user	Radius

Hole types dialog in the Create Holes and Modify Holes functions:

Type macro

LABEL 1

  numeric r1,r2,r3

  iffile -ncgnorms/uitsp/type6.var : retrieve ncgnorms/uitsp/type6,r1,r2,r3

  else r1=1800; r2=800; r3=100

  Ans[1]=<r1>

  Ans[2]=<r2>

  Ans[3]=<r3>

  if viewtype='D' : Quest[1]='Height'; Quest[2]='Width'

  if viewtype='Z' : Quest[1]='Height'; Quest[2]='Length'

  if viewtype='B' : Quest[1]='Width' ; Quest[2]='Length'

  Quest[3]='Radius'

EXIT

LABEL 3

  numeric r1,r2,r3

  r1 = ^Ans[1]

  r2 = ^Ans[2]

  r3 = ^Ans[3]

  VarStr='dr^Ans[1]x^Ans[2]x^Ans[3]'

  variable -ncgnorms/uitsp/type6,r1,r2,r3

EXIT

LABEL 4

VarStr = 'DR200X500X30'

EXIT

label 13

  numerics allnum,error

  label13ok=1

  do @cmdhole/checkans(quest,ans,@allnum,@error)

  if error=1 then

    label13ok=-1

    exit

if allnum=1:jump 3

varstr='dr^Ans[1]x^Ans[2]x^Ans[3]'

exit

label 31

  label31ok=1

  if tm[1]='??':Ans[1]='?'

  else Ans[1]=<vm[1]>

  if tm[2]='??':Ans[2]='?'

  else Ans[2]=<vm[2]>

  if tm[3]='??':Ans[3]='?'

  else Ans[3]=<vm[3]>

exit

Variable viewtype is used to define the questions shown in the Hole types dialog. This variable has a value for each of the orthogonal view:

D is frame view
Z is side view
B is top view

With the retrieve and variable commands, the user-given values for variables r1, r2, and r3 become defined as the new defaults.

In this case, the r1, r2, and r3 variables are stored in the type6.var file which is located in the ncgnorms/uitsp directory. The file is created once the user defines the values for the first time.The default values 1800, 800, and 100 are used if the file is not present.

The latest defaults are used throughout the project. In case two users in the same project want to use different defaults, they must change the values each time after the other has changed the values.