Type 28

End type : 28

Description:

End type with automatic calculated angle and variable radius, nose height and opening length.

Type macro

LABEL 1

Quest[1] = 'Radius'

Quest[2] = 'Length'

Quest[3] = 'Height'

Calc_Angle = 'Yes'

EXIT

LABEL 3

VarStr = 'R2 ^Ans[1] R3 ^Ans[2] R4 ^Ans[3]'

EXIT

LABEL 4

VarStr = 'R2 65 R3 250 R4 100 R1 0.3'

Quest[4] = 'Angle ratio'

EXIT

In this case the recalculation of the angle is wanted.

There are no defaults, in this case the variation is to often to use these defaults.

label 6

default34='0'

exit

Defines the default 3rd and 4th endshape.

Type file

5 0 0

1 0.8 24 1 H1*R1IV4+V3

L R3*V1 0 R3*V1 R4R2

C R3R2*V1 R4R2 R2*V1

L R3R2*V1 R4 R1*R4 R4

L R1*R4 R4 R1*H1 H1

E R1*H1*V2 H1*V2 R1*H1 0.0

T type ZJ (HD <BNS 15 47 43>)

H T1 ZJ

R TY ZJ R1*H1 P_ IFNEG ZH IFZER Z R2 _3 R3 _2 R4 _ V5 _6DT

N** TY ZJ R1*H1 P_ IFNEG ZH IFZER Z R2 _3 R3 _2 R4 _

D TY "Type ZJ (HD <BNS 15 47 43>)" [

R1*H1 "Distance: " [

R2 "Radius: " [

R2 "Length: " [

R2 "Height: "

To use in the R line the IFNEG and IFZER commands tree types can be defined in the same type file.

In the D an extra line is possible by using the open [.

V variables

Variable name	Function
V1	Variable to define the direction of the circle or to make the y direction negative.
V2	Proportion of the dash line according to the height of the profile