Lug type 701

LABEL 1

EXIT

LABEL 3

VarStr = 'l1 701'

exit

LABEL 4

Quest[1] = 'Quest 1'

Quest[2] = 'Quest 2'

Quest[3] = 'Quest 3'

Quest[4] = 'Quest 4'

Quest[5] = 'Quest 5'

Quest[6] = 'Quest 6'

VarStr = 'R9 35.5 RA 40 RB 71 RC 3 RD 9.5 RE 28'

EXIT

LABEL 5

varlug=' '

if prof_type[1\2]='hp' then

{

if prof_height>79:varlug ='RF 9000 R9 24.5 RA 40 RB 49 RC 3 RD 5.5 RE 14'

if prof_height>99:varlug ='RF 9000 R9 26 RA 40 RB 52 RC 3 RD 6.0 RE 15.5'

if prof_height>119:varlug='RF 9000 R9 28 RA 40 RB 56 RC 3 RD 6.5 RE 17'

if prof_height>139:varlug='RF 9000 R9 30 RA 40 RB 60 RC 3 RD 7.0 RE 19'

if prof_height>159:varlug='RF 9000 R9 32 RA 40 RB 64 RC 3 RD 7.5 RE 22'

if prof_height>179:varlug='RF 9000 R9 33.5 RA 40 RB 67 RC 3 RD 8.5 RE 25'

if prof_height>199:varlug='RF 9000 R9 35.5 RA 40 RB 71 RC 3 RD 9.5 RE 28'

if prof_height>219:varlug='RF 9000 R9 37.5 RA 40 RB 75 RC 3 RD 10.5 RE 31'

if prof_height>239:varlug='RF 9000 R9 39.5 RA 40 RB 79 RC 3 RD 11.5 RE 34'

if prof_height>259:varlug='RF 9000 R9 41 RA 40 RB 82 RC 3 RD 12.5 RE 37'

if prof_height>279:varlug='RF 9000 R9 43 RA 40 RB 86 RC 3 RD 13.5 RE 40'

if prof_height>299:varlug='RF 9000 R9 45 RA 40 RB 90 RC 3 RD 14.5 RE 43'

if prof_height>319:varlug='RF 9000 R9 47 RA 40 RB 94 RC 3 RD 15.5 RE 46'

}

else

{

Hint = '^prof_type not a proper profile for the cutout'

do -gui/noterr

if prof_height>79:varlug ='RF 0 R9 24.5 RA 40 RB 49 RC 3 RD 5.5 RE 14'

if prof_height>99:varlug ='RF 0 R9 26 RA 40 RB 52 RC 3 RD 6.0 RE 15.5'

if prof_height>119:varlug='RF 0 R9 28 RA 40 RB 56 RC 3 RD 6.5 RE 17'

if prof_height>139:varlug='RF 0 R9 30 RA 40 RB 60 RC 3 RD 7.0 RE 19'

if prof_height>159:varlug='RF 0 R9 32 RA 40 RB 64 RC 3 RD 7.5 RE 22'

if prof_height>179:varlug='RF 0 R9 33.5 RA 40 RB 67 RC 3 RD 8.5 RE 25'

if prof_height>199:varlug='RF 0 R9 35.5 RA 40 RB 71 RC 3 RD 9.5 RE 28'

if prof_height>219:varlug='RF 0 R9 37.5 RA 40 RB 75 RC 3 RD 10.5 RE 31'

if prof_height>239:varlug='RF 0 R9 39.5 RA 40 RB 79 RC 3 RD 11.5 RE 34'

if prof_height>259:varlug='RF 0 R9 41 RA 40 RB 82 RC 3 RD 12.5 RE 37'

if prof_height>279:varlug='RF 0 R9 43 RA 40 RB 86 RC 3 RD 13.5 RE 40'

if prof_height>299:varlug='RF 0 R9 45 RA 40 RB 90 RC 3 RD 14.5 RE 43'

if prof_height>319:varlug='RF 0 R9 47 RA 40 RB 94 RC 3 RD 15.5 RE 46'

}

EXIT

LABEL 6

EnableCutout[1]='106'

EnableCutout[2]='116'

DefaultType='106'

EXIT

1 0

0

LET V1=-1

LET V2=2

LET V3=10

LET V4=15

LET V5=0.5

LET V6=R9+RA-V4

LET V7=V4*V4

LET V8=V6*V6-V7^V5

LET V9=RF+RG

IF TB-B1<-0.01 : V9=0

IF RG-H1<-1 : V9=0

L RB+RATA3 RB+RA H1+V2 RB+RA

C H1+V2 RB/V2 R9+RA*V1

C H1+V4+V2 RB/V2-V8 V4*V1

L H1+V2 RB/V2-R9-RA H1+V2 RE

C H1+V2-RD B1+RE+V2-RD RD

L H1-RD-RD RE H1-RE-V2 B1-V1

C ? ? RD-V2*V1

L H1-RE B1-V1 V3 B1-V1

L V3 B1-V1 B1+V3TA3 B1+V3

LCOLL1 RB+RATA3 RB+RA H1+V2 RB+RA

CCOLL1 H1+V2 RB/V2 R9+RA*V1

CCOLL1 H1+V4+V2 RB/V2-V8 V4*V1

LCOLL1 H1+V2 RB/V2-R9-RA H1+V2 RE LGPR F0.5

CCOLL1 H1+V2-RD B1+RE+V2-RD RD LGPR

LCOLL1 H1-RD-RD RE H1-RE-V2 B1-V1 LGPR

CCOLL1 ? ? RD-V2*V1 LGPR

LCOLL1 H1-RE B1-V1 V3 B1-V1 LGPR

LCOLL1 V3 B1-V1 B1+V3TA3 B1+V3

LCOLL1 B1+V3TA3 B1+V3 RB+RATA3 RB+RA LGBS

E 0 V1*V3 H1+RC+R9 RB

W PL 0 COLLAR701

D TY "TYPE 701" RG "Profile height: " V9 "Part number: "

P TH GR-A V9

P TH AH36 V9

P TH 316LN V9

P TH ST42 V9

P TH ALM V9

P TH AL10 V9