if mmOpen of stage video = null -- Se il video non è caricato
mmOpen clip Video1 -- Caricalo
end
mmShow clip Video1 in stage video -- Mostra il primo fotogramma
end
to handle leavePage -- All’uscita della pagina
mmClose clip "Video1" -- Chiudi il video, libera la memoria
end
mmClose clip Video1 -- Chiude e riapre per azzerare il video
mmOpen clip Video1
mmShow clip Video1 in stage video -- Mostra il primo fotogramma
end
to handle mouseEnter
set fillColor to 0, 90, 0 -- "illumina" il bottone
show angledLine "LS1" -– Mostra effetto 3D
show angledLine "LS2"
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 0, 75, 0 -- "spegni" il bottone
hide angledLine "LS1" -– Nascondi effetto 3D
hide angledLine "LS2"
end
mmPause clip "Video1" -- pausa il video
end
to handle mouseEnter
set fillColor to 0, 90, 0 -- "illumina" il bottone
show angledLine "LP1" -– Mostra effetto 3D
show angledLine "LP2"
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 0, 75, 0 -- "spegni" il bottone
hide angledLine "LP1" -– Nascondi effetto 3D
hide angledLine "LP2"
end
mmPlay clip "Video1" in stage video autoclose -- play del video
end
to handle mouseEnter
set fillColor to 0, 90, 0 -- "illumina" il bottone
show angledLine "LG1" -– Mostra effetto 3D
show angledLine "LG2"
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 0, 75, 0 -- "spegni" il bottone
hide angledLine "LG1" -– Nascondi effetto 3D
hide angledLine "LG2"
end
cName = clip "Video1"
if (mmIsOpen of cName) then -- Se il video è caricato
oldPos = my text -- Guarda se la posizione è cambiata
newPos = mmPosition of cName
if oldPos <> newPos then
my text = newPos -- Aggiorna la posizione
end
else
my text=""
end
end
cName = clip "Video1"
if (mmIsOpen of cName) then -- Se il video è caricato
mmTimeFormat of cName= "milliseconds"
newPos = mmPosition of cName
-- Calcola la posizione fisica in base al tempo del video
my position = 9255+(1185/mmSourceLength of cName)*newpos,6705
mmTimeFormat of cName ="MS"
end
end
to handle buttonDown pos -- Alla pressione del bottone del mouse
if mmStatus of clip Video1 = "playing" -- Se il video non è in visione
else
-- Setta variabili per la conversione pixel/assoluto
set sco to item 1 of my position - item 1 of pos
set pix to item 1 of sysPageUnitsPerPixel
while keystate(1) is down -- Mentre il bottone è schiacciato
set newMouseX to round(item 1 of sysMousePosition/pix)*pix + sco
if newMouseX>10440 -- limite della barra
newMouseX=10440
end
if newMouseX<9255 -- limite della barra
newMouseX=9255
end
-- Mostra la nuova posizione del cursore
my position = newMouseX, 6705
end
-- Aggiorna la posizione del video
mmTimeFormat of clip Video1 = "milliseconds"
mmSeek clip Video1 to ((mmSourceLength of clip Video1)-(item 1 of my position - 9255)*mmSourceLength of clip Video1/1185) from end
mmTimeFormat of clip Video1 ="MS"
end
end