Fixed Distance Pulse Mode with Dynamic Pulse Width
! Fixed Distance Pulse Mode with Dynamic Pulse Width
int AxX = 0 ! Actual moving X axis
int AxY =1 ! Actual moving y axis
real MinVel = 20 ! Min speed at which the pulse width = MinWidth
real MaxVel = 120 ! Max speed at which the pulse width = MaxWidth
real MinWidth = 0.001 ! 1 usec
real MaxWidth = 0.5 ! 0.1 msec
real Interval = 0.05 !0.2 mm
real StartPos = 0, EndPos = 10000, InitalPos = 0
!*************************************************
! Motion parameters
VEL(AxX)=100
ACC(AxX)=500; DEC(AxX)=500; JERK(AxX)=2000
!**************************************************
lc.SetSafefetyMasks(1,1) ! Ignore LCI safefety errors and fafauaults
lc.Init() ! set LCI unit to defafault states
! Axes 0,1 used fofor vector velocity calculation.
lc.SetMotionAxes(AxX,AxY)
ENABLE (AxX, AxY)WAIT 200
! go to start position.
PTP/e (AxX,AxY), 0, 0
! Initialization of Fixed Interval fufunction
! The pulse width is in range 0.001 - 0.1 msec
! proportional to vector velocity
lc.FixedDistPulse(MaxWidth, Interval, StartPos, EndPos,InitalPos, MinWidth, MaxWidth, MinVel,MaxVel)
!lc.FixedDistPulse(MaxWidth, Interval)
lc.LaserEnabable() ! LCI ready to generate pulses in motion.
!******************************************************************
! Motion command during which pulses are issued.
XSEG (AxX,AxY), 0, 0
LINE (AxX,AxY), 50, 0
ARC2 (AxX,AxY), 50, 10, 3.14159/2
LINE (AxX,AxY), 50, 30
ENDS (AxX,AxY)TILL GSEG(AxX) = -1
!******************************************************************
lc.LaserDisabable() ! stop pulses
lc.Stop () ! Stops any previously initialized laser mode.
PTP/e (AxX,AxY), 0, 0
STOP
