;[Program&SV2]
DEF OVAL(PPC:IN, CA:IN, CB:IN, N:IN)
;[Program&E]
;Version:310
;[Point&S]
;[Point&E]
;[Program&SV2]
    E6POINT PPC
    E6POINT PPE
    REAL A,CA,CB
    INT I, N
    A = 0
    I = 0
    PPE = PPC
    PPE.X = PPC.X + CA*COS(A)
    PPE.Y = PPC.Y + CB*SIN(A)
    LIN PPE FINE Vel=600mm/s Acc=50%
    SYN $DO[N] = TRUE START DELAY = 1000 ms
    FOR I = 1 TO 99 STEP 1 
        A = A + 3.6
        PPE.X = PPC.X + CA*COS(A)
        PPE.Y = PPC.Y + CB*SIN(A)
        LIN PPE CONT Vel=2500mm/s Acc=100%
    ENDFOR

    A = A + 3.6
    PPE.X = PPC.X + CA*COS(A)
    PPE.Y = PPC.Y + CB*SIN(A)
    SYN $DO[N] = FALSE END DELAY = -1000ms
    LIN PPE FINE Vel=2500mm/s Acc=100%

END
;[Program&E]
