LiveCode Forums.

Code: Select all

on mouseup
    lock screen
    local tImage, tMetadata
    set the resizeQuality of the templateImage to "best"
    ## put 2400 into tMetadata["density"]
    create image "rotatedText"
    
    ## Use 4 times the original dimensions:
    put the width of fld "captionfield" into tWidth
    put the height of fld "captionfield" into tHeight
    put (tWidth * 4) & "," & (the height of fld "captionfield" * 4) into tSize
    
    export snapshot from field "captionfield" AT SIZE tSize to tImage as png
    ##  export snapshot from field "captionfield" with metadata tMetadata to tImage as png
    set the text of image "rotatedText" to tImage
    
    ## Resize image
    set the width of img "captionfield" to tWidth
    set the height of img "captionfield" to tHeight
    set the lockloc of img "captionfield" to TRUE 

    set the loc of image "rotatedText" to the loc of this card
    set the angle of image "rotatedText" to 45

   ## !!! :-)
   reset the templatimage
   unlock screen
end mouseup

Code: Select all

on mouseUp
   import snapshot from fld "ff"
   set the loc of fld "ff" to -200, -200
   set the name of the last img to "SHOT"
   set the angle of img "SHOT" to 45
   clone img "SHOT"
   set the name of the last img to "SHOT2"
   set the loc of img "SHOT2" to the loc of img "SHOT"
   put the loc of img "SHOT" into WHERE
       delete img "SHOT"
    set the resizeQuality of img "SHOT2" to "best"
   put the width of img "SHOT2" into WIDD
   put the height of img "SHOT2" into HITE
   set the width of img "SHOT2" to (WIDD/4)
   set the height of img "SHOT2" to (HITE/4)
   import snapshot from img "SHOT2"
   set the name of the last img to "SHOT3"
   delete img "SHOT2"
   set the resizeQuality of img "SHOT3" to "best"
   set the width of img "SHOT3" to WIDD
   set the height of img "SHOT3" to HITE
   set the loc of img "SHOT3" to WHERE
    --delete img "SHOT"
   set the name of img "SHOT3" to "SHOT"
end mouseUp

Code: Select all

on mouseup
   lock screen
   local tImage, tMetadata, tWidth, tHeight, tSize, tQuality
   
   put "good" into tQuality
   reset the templateImage
   set the resizeQuality of the templateImage to tQuality -- "good" works well for angles 90,180,270,-90 in print
   set the lockloc of the templateImage to TRUE  
   
   if there is an image "rotatedText" then
      delete image "rotatedText"
   end if
   
   create image "rotatedText"
   
   # Use 4 times the original dimensions:
   put the width of fld "captionfield" into tWidth
   put the height of fld "captionfield" into tHeight
   put (tWidth * 4) & "," & (the height of fld "captionfield" * 4) into tSize
   
   export snapshot from field "captionfield" AT SIZE tSize to tImage as png
   set the text of image "rotatedText" to tImage
   
   ## Resize image
   set the angle of image "rotatedText" to -90
   if the angle of image "rotatedText" is among the items of "90,270,-90" then
      set the width of img "rotatedText" to tHeight
      set the height of img "rotatedText" to tWidth
   else
      set the width of img "rotatedText" to tWidth
      set the height of img "rotatedText" to tHeight
   end if
   set the loc of image "rotatedText" to the loc of this card
   
   reset the templateimage
   unlock screen
end mouseup