$S-  -- Synonym translation OFF
-- ----------------------------------------------------------------
-- Data Listing    Date : 20 Apr 2021 15:28

ONERROR GOLABEL /ERROR3

INPUT BEGIN
NEW CATEGORY /VICT-90-BASE-ELBOW-NO_100F-GXF
DESC '90° REDU. BASE ELBOW No.R-100F'
PURP COMP
GTYP ELBO
CSTA 'VICTAULIC GROOVED END FITTING 90° REDU. BASE ELBOW No. 100F 07.13'

NEW PTSET /P-VPE100F-MA

NEW PTAXIS
NUMB 1
PCON PARAM 3
PBOR PARAM 1
PDIS PARAM 5
PAXI -Y
PSKE CP

END
NEW PTAXIS
NUMB 5
PCON PARAM 12
PBOR PARAM 13
PDIS ( ATTRIB PARA[6 ] - ATTRIB PARA[15 ] )
PSKE SC

END
NEW PTCAR
NUMB 6
PCON PARAM 18
PBOR PARAM 19
PX PARAM 16
PY ( ATTRIB PARA[7 ] - ATTRIB PARA[20 ] )
PZ 0
PSKE SC
PTCDI Y

END
NEW PTAXIS
NUMB 3
PCON CLOS
PBOR 0
PDIS PARAM 21
PAXI X

END
NEW PTAXIS
NUMB 4
PCON CLOS
PBOR 0
PDIS PARAM 21
PAXI -Y

END
NEW PTAXIS
NUMB 2
PCON PARAM 4
PBOR PARAM 2
PDIS PARAM 5
PAXI X
PSKE FL

END
END
NEW GMSET /G-VPE100F-MA

NEW LCYLINDER
TUFL true
PTDI PARAM 11
PBDI 0
PDIA PARAM 10
PAXI -P2

END
NEW LCYLINDER
LEVE 9 10
CLFL true
TUFL true
PTDI ( ATTRIB PARA[5 ] - ATTRIB PARA[21 ] )
PBDI 0
PDIA ( ATTRIB PARA[10 ] )
PAXI -P2

END
NEW LCYLINDER
TUFL true
PTDI ( ATTRIB PARA[6 ] )
PBDI - PARAM 21
PDIA PARAM 14

NEW NLCYLINDER
TUFL true
PTDI ( ATTRIB PARA[6 ] )
PBDI ( ATTRIB PARA[6 ] - ATTRIB PARA[15 ] )
PDIA PARAM 13

END
END
NEW LCYLINDER
TUFL true
PTDI ( ( ATTRIB PARA[7 ] - ATTRIB PARA[20 ] ) * -1 )
PBDI PARAM 20
PDIA PARAM 17
PAXI P6

END
NEW SCTORUS
TUFL true
PAAX P3
PBAX P4
PDIA PARAM 8

END
NEW SCTORUS
LEVE 9 10
CLFL true
TUFL true
PAAX P3
PBAX P4
PDIA ( ATTRIB PARA[10 ] )

END
NEW LCYLINDER
TUFL true
PTDI ( ATTRIB PARA[5 ] - ATTRIB PARA[21 ] )
PBDI 0
PDIA PARAM 8
PAXI -P1

END
NEW LCYLINDER
TUFL true
PTDI ( ATTRIB PARA[5 ] - ATTRIB PARA[21 ] - ATTRIB PARA[11 ] )
PBDI 0
PDIA PARAM 8
PAXI P3

END
NEW LCYLINDER
LEVE 9 10
CLFL true
TUFL true
PTDI ( ATTRIB PARA[5 ] - ATTRIB PARA[21 ] )
PBDI 0
PDIA ( ATTRIB PARA[10 ] )
PAXI -P1

END
NEW LINE
OBST 0
CLFL true
SETP P3 T0 P4

END
NEW LINE
OBST 0
CLFL true
SETP P3 P2

END
NEW LINE
OBST 0
CLFL true
SETP P4 P1

END
END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA1
STEX 'NOMINAL BORE ARRIVE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA2
STEX 'NOMINAL BORE LEAVE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA3
STEX 'CONN TYPE ARRIVE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA4
STEX 'CONN TYPE LEAVE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA5
STEX 'C TO E DIMENSION'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA6
STEX 'H1 DIMENSION'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA7
STEX 'H2 DIMENSION'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA8
STEX 'OD ARRIVE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA9
STEX 'OD LEAVE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA10
STEX 'FLANGE OD'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA11
STEX 'FLANGE THICKNESS'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA12
PURP PARA
STEX 'CONN TYPE BASE'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA13
PURP PARA
STEX 'NOM BORE BASE SUPPORT'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA14
PURP PARA
STEX 'OD BASE SUPPORT'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA15
PURP PARA
STEX 'THREAD DEPTH BASE SUPPORT'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA16
PURP PARA
STEX 'DIST TO DRAIN FROM Y-AXIS'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA17
PURP PARA
STEX 'OD DRAIN'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA18
PURP PARA
STEX 'CONN TYPE DRAIN'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA19
PURP PARA
STEX 'NOM BORE DRAIN'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA20
PURP PARA
STEX 'THREAD ENGAGEMENT DRAIN'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PA21
PURP PARA
STEX 'RADIUS'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-PTSE
STEX 'P-VPEFR-MA'

END
NEW TEXT /VICT-90-BASE-ELBOW-NO_100F-GXF-GMSE
STEX 'G-VPEFR-MA'

END
NEW SCOMPONENT /VPE100F-MAH
GTYP ELBO
PARA 80 80 VIGM FAB 146.1 $
44.5 55.9 88.9 88.9 190.5 $
(24.4) SCF 40 69.9 19.05 $
69.9 (44.5) SCF 20 14.1 $
114.3

END
NEW SCOMPONENT /VPE100F-MAJ
GTYP ELBO
PARA 100 100 VIGM FAB 184.2 $
44.5 68.8 114.3 114.3 228.6 $
(24.4) SCF 40 69.9 19.05 $
108 (44.5) SCF 20 14.1 $
152.4

END
NEW SCOMPONENT /VPE100F-MAM
GTYP ELBO
PARA 150 150 VIGM FAB 260.4 $
38.1 96.3 168.3 168.3 279.4 $
(25.9) SCF 40 69.9 19.05 $
184.2 (44.5) SCF 20 14.1 $
228.6

END
NEW SCOMPONENT /VPE100F-MAN
GTYP ELBO
PARA 200 200 VIGM FAB 342.9 $
34.9 122.4 219.1 219.1 342.9 $
(29) SCF 40 69.9 19.05 $
266.7 (44.5) SCF 20 14.1 $
304.8

END
NEW SCOMPONENT /VPE100F-MAO
GTYP ELBO
PARA 250 250 VIGM FAB 419.1 $
31.8 149.4 273 273 406.4 $
(30.5) SCF 40 69.9 19.05 $
342.9 (44.5) SCF 20 14.1 $
381

END
NEW SCOMPONENT /VPE100F-MAP
GTYP ELBO
PARA 300 300 VIGM FAB 495.3 $
25.4 174.8 323.9 323.9 482.6 $
(32.3) SCF 40 69.9 19.05 $
419.1 (44.5) SCF 20 14.1 $
457.2

END
END
OLD CATEGORY /VICT-90-BASE-ELBOW-NO_100F-GXF
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

OLD SCOMPONENT /VPE100F-MAH
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

OLD SCOMPONENT /VPE100F-MAJ
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

OLD SCOMPONENT /VPE100F-MAM
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

OLD SCOMPONENT /VPE100F-MAN
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

OLD SCOMPONENT /VPE100F-MAO
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

OLD SCOMPONENT /VPE100F-MAP
PTRE PTSET /P-VPE100F-MA
GMRE GMSET /G-VPE100F-MA

INPUT END  CATEGORY /VICT-90-BASE-ELBOW-NO_100F-GXF
INPUT FINISH
-- Switch synonyms back on if an error occurs.
LABEL /ERROR3
handle ANY
$S+
RETURN ERROR
endhandle

-- End Data Listing    Date : 20 Apr 2021 15:28
$S+  -- Synonym translation ON
-- ----------------------------------------------------------------