LiveCode Forums.

Code: Select all

on mouseUp
   put the number of images of this card into nImages
   put specialFolderPath("documents") & "/app data/testing/tempImages" into tTempPath
   
   
   set the itemDelimiter to slash
   put itemOffset("Documents",tTempPath) into tOffset
   
   put item 1 to tOffset of tTempPath into tRootPath
   
   repeat with i = tOffset +1 to the number of items of tTempPath
      if there is not a folder (item 1 to i of tTempPath) then
         create folder (item 1 to i of tTempPath)
         put the result into tResult
         if tResult is not empty then breakpoint
      end if
   end repeat
   
   set the itemDelimiter to comma
   
   repeat with i = 1 to 1  -- nImages ## changed for testing
      put the short name of image i into tImageFileName
      put tTempPath & "/" & the short name of image i & ".png" into tFilePath
      export image tImageFileName to file tFilePath as PNG
      put the result into tResult
   end repeat
end mouseUp

Code: Select all

on mouseUp
   local tMaxColNum, tMaxRowNum, tNumPieces
   local tCollect, tShortImgName, tExpectedNumPieces, tStartTL, tStartLeft, tStartTop
   local tPieceSize = 60, tPuzzleWidth, tPuzzleHeight
   local tImgColumn, tImgRow, tFudge, tTempLeft, tTempTop
   
   repeat with i = 1 to the number of images
      put the short name of image i into tShortImgName
      if tShortImgName begins with "PP" then
         put tShortImgName & return after tCollect
         put max(char 3 to -1 of item 1 of tShortImgName, tMaxColNum) into tMaxColNum
         put max(char 1 to -1 of item 2 of tShortImgName, tMaxRowNum) into tMaxRowNum
      end if
   end repeat
   delete char -1 of tCollect
   
   if tCollect is empty then 
      answer "No Puzzle Pieces found"
      exit mouseUp
   end if
   
   put tMaxColNum * tMaxRowNum into tExpectedNumPieces
   
   ## check for number of Puzzle Pieces and bail out if there are too few or too many
   if the number of lines of tCollect <> tExpectedNumPieces then
      answer "Not all or too many Puzzle Pieces found"
      exit mouseUp
   end if
   
   ## format of name is "PP" & column & comma & row
   ## this sorts the images by column and then by row
   ## PP1,1; PP2,1 etc
   ## PP1,2; PP2,2 etc
   sort tCollect numeric by char 3 to -1 of item 1 of each
   sort tCollect numeric by char 1 to -1 of item 2 of each
   
   put the topLeft of image line 1 of tCollect into tStartTL
   put item 1 of tStartTL into tStartLeft
   put item 2 of tStartTL into tStartTop
   
   ## check for space to arrange Puzzle Pieces; otherwise they could be placed beyond the card boundaries
   if tStartLeft + (tMaxColNum * tPieceSize) > the width of this card or \
         tStartTop + (tMaxRowNum * tPieceSize) > the height of this card then
      answer "Place top-left Puzzle Piece near the top left of the card"
      exit mouseUp
   end if
   
   repeat for each line anImage in tCollect
      put char 3 to -1 of item 1 of anImage into tImgColumn
      put char 1 to -1 of item 2 of anImage into tImgRow
      put the uMarginFudge of image anImage into tFudge
      put tStartLeft + ((tImgColumn - 1) * tPieceSize) into tTempLeft
      put tStartTop + ((tImgRow -1) * tPieceSize) into tTempTop
      put tTempLeft - item 1 of tFudge into tTempLeft
      put tTempTop - item 2 of tFudge into tTempTop
      set the topLeft of image anImage to tTempLeft, tTempTop
   end repeat
   
end mouseUp