Mirko Borsche Marc Comes Daniel Mayer Joseph Grima ... - Knobling

paGe 8
FonT ChoReoGRaphy DeveLopMenT
ouTRaCe
&ACCESS RVP
&PARAM TPVW_VERSION = 5.4.13
DEFDAT UP3
; FOLD ;%{H} %MKUKATPVW
; ENDFOLD
; interface to basic routines
EXT BAS (BAS_COMMAND :IN,REAL :IN )
; interface to VW-standard routines
EXT VW (VW_COMMAND:IN, BOOL: IN, REAL:IN, REAL:IN, REAL:IN, REAL:IN,
BOOL :IN, E6POS :IN )
; interface to VW_USER - Call
EXT VW_USER (VW_USER_CMD :IN,INT :IN,REAL :IN,REAL :IN,REAL :IN,REAL
:IN,REAL :IN,REAL :IN,BOOL :IN )
EXT VW_USR_R (VW_USER_CMD :IN,INT :IN,REAL :IN,REAL :IN,REAL :IN,REAL
:IN,REAL :IN,REAL :IN,BOOL :IN )
EXT IBGN (IBGN_COMMAND :IN,BOOL :IN,REAL :IN,REAL :IN,BOOL :IN,E6POS
:OUT )
; interface select routine
EXTFCT INT SELECT (SUBTYPE :IN,INT :IN,BOOL :IN,ARI_TYP :IN,INT :IN,BOOL_
TYP :IN,INT :IN,BOOL :IN)
INT VW_NEXT_FREE = 48
INT VW_NFREE_SPS = 48
INT VW_MAX_SPS = 148
DECL VW_MPARA_TYP P1_D = {TOOL_NO 1,BASE_NO 0,VB 100,VE 0,ACC
100,TRG_TIME 0,MOVE_TYPE #PTP_MOTION}
DECL E6POS P1 = {X 1350.0, Y -20.0, Z 1550.0, A 0.0, B 90.0, C 0.0, S 2, T 35 , E1
0.0, E2 0.0, E3 0.0, E4 0.0, E5 0.0, E6 0.0}
DECL VW_MPARA_TYP P2_D = {TOOL_NO 1,BASE_NO 0,VB 2000,VE 100,ACC
100,TRG_TIME 0,MOVE_TYPE #GLUE_MOTION}
DECL E6POS P2 = {X 1350.0, Y -20.0, Z 1550.0, A 0.0, B 90.0, C 0.0, S 2, T 2 , E1 0.0,
E2 0.0, E3 0.0, E4 0.0, E5 0.0, E6 0.0}
DECL VW_MPARA_TYP P3_D = {TOOL_NO 1,BASE_NO 0,VB 2000,VE 100,ACC
100,TRG_TIME 0,MOVE_TYPE #GLUE_MOTION}
DECL E6POS P3 = {X 1389.0, Y -85.2, Z 1662.6, A -90.0, B 85.6, C -88.3, S 2, T 2 , E1
0.0, E2 0.0, E3 0.0, E4 0.0, E5 0.0, E6 0.0}
DECL VW_MPARA_TYP P4_D = {TOOL_NO 1,BASE_NO 0,VB 2000,VE 100,ACC
100,TRG_TIME 0,MOVE_TYPE #GLUE_MOTION}
DECL E6POS P4 = {X 1429.3, Y -151.2, Z 1774.4, A -90.0, B 80.8, C -86.5, S 2, T 2 ,
E1 0.0, E2 0.0, E3 0.0, E4 0.0, E5 0.0, E6 0.0}
DECL VW_MPARA_TYP P5_D = {TOOL_NO 1,BASE_NO 0,VB 2000,VE 100,ACC
ouTRaCe
2
1
0
4
FonT ChoReoGRaphy DeveLopMenT
paGe 9
3