Would like to show a photo through a polygon shape

[Alejandro Tejada]

Hi Roger,

Yes! This script works fine, without glitches.
Test it on the graphic and told us your results:

local lpoints,tClick,tFirstPoint
-- based on Scott Rossi script for masking images

on mouseDown
   put mouseH(),mouseV() into tClick
   put the points of me into lpoints
   put line 1 of lpoints into tFirstPoint
   put "mouseDown" & cr & lpoints & cr & cr into fld 1 
end mouseDown

on mouseMove X,Y
   if tClick = "" then exit mouseMove
   put  (X - item 1 of tClick,Y - item 2 of tClick)
   put  (X - item 1 of tClick) + item 1 of tFirstPoint,(Y - item 2 of
tClick) + item 2 of tFirstPoint into line 1 of lpoints
   set the points of me to lpoints
end mouseMove

on mouseUp
   put "" into tClick
end mouseUp

on mouseRelease
   put "" into tClick
end mouseRelease




--
View this message in context: http://runtime-revolution.278305.n4.nabble.com/Would-like-to-show-a-photo-through-a-polygon-shape-tp4671281p4671379.html
Sent from the Revolution - User mailing list archive at Nabble.com.