Here's my RotateImage function, hope it helps.
This assumes you've got an image on your card called "Current Image".
In my version of this function, I first scale the image down to a thumbnail size so the user can see what image I'm working on, then I call lock screen, then I do the rotation code here. After the rotation is complete I create a new thumbnail of the rotated image and then call unlock screen. This way the user only sees the two thumbnails, never the intermediate larger images.
on RotateImage theFileName, direction put "binfile:" & theFileName into urlCmd put URL urlCmd into image "Current Image"
put the formattedHeight of image "Current Image" into fh put the formattedWidth of image "Current Image" into fw
if direction = "left" then rotate image "Current Image" by 90 else if direction = "right" then rotate image "Current Image" by -90 end if choose browse tool
put the rect of image "Current Image" into imageRect set the itemDelimiter to "," if fw > fh then put fw - fh into delta put delta div 2 into theLeftMargin put delta - theleftMargin into theRightMargin add theLeftMargin to item 1 of imageRect subtract theRightMargin from item 3 of imageRect else if fw < fh then put fh - fw into delta put delta div 2 into theTopMargin put delta - theTopMargin into theBottomMargin add theTopMargin to item 2 of imageRect subtract theBottomMargin from item 4 of imageRect end if crop image "Current Image" to imageRect
-- Put whatever jpeg quality level you want here,
-- but it probably makes sense to use a qualityLevel of 100 for rotation
put 100 into qualityLevel
set the jpegQuality to qualityLevel
set the paintCompression to "jpeg"
export image "Current Image" to URL ("binfile:" & theFileName) as JPEG
put the result into theResult -- you could check this if you wanted to
set the fileName of image "Current Image" to empty
end RotateImage
-- Frank Leahy
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution