-- Funzione Test: SC, SC15a
local S = require( "Berny")
S.PosizioniAttuali()

S.Chiudi_Morsa("2")
S.Apri_Morsa("1")
S.Trasla_Morse_Trave("1",250,"2",-250,-7250.0)
if not EgtOutBox( "DeltaY1 =7500.0 DeltaY2=7000.0","Informazioni : SC-SC15a") then 
   return 
end
S.Chiudi_Morsa("1")
S.Apri_Morsa("2")
S.Trasla_Morse_Trave("1",3559.7525,"2",-3559.7525,-3940.2475)
if not EgtOutBox( "DeltaY1 =7500.0 DeltaY2=380.495","Informazioni : SC-SC15a") then 
   return 
end
S.Chiudi_Morsa("2")
S.Apri_Morsa("1")
S.Trasla_Morse_Trave("1",662.0025,"2",-662.0025,-1042.4975)
if not EgtOutBox( "DeltaY1 =1704.5 DeltaY2=380.495","Informazioni : SC-SC15a") then 
   return 
end
S.Chiudi_Morsa("1")
S.Chiudi_Morsa("2")