•  

    $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
    -- ----------------------------------------------------------------