LiveCode Forums

Code: Select all

import snapshot from grc "hex"
         set the name of the last control to ("r"&tRow&"c"&(tCol))
         set the left of img ("r"&tRow&"c"&(tCol)) to (10 + KOUNT)

Code: Select all

on mouseUp pMouseButton
   local tColOffset, tCols, tHeight, tLeft, tMargin, tMaxX, tMaxY
   local tName, tRowOffset, tRows, tSide, tTop, tTopOffset, tWidth
   
   put 20 into tSide
   put 2 * tSide into tWidth
   put sqrt(3) * tSide into tHeight
   put tWidth - tHeight into tMargin
   put tWidth + tSide + tMargin into tColOffset
   put tHeight + tMargin/2 into tRowOffset
   
   set the width of grc "hex" to tWidth
   set the height of grc "hex" to tWidth
   put the width of grc "border" / (tSide*3/2) into tCols
   put the height of grc "border" / tHeight into tRows
   put the right of grc "border" into tMaxX
   put the bottom of grc "border" into tMaxY
   put round(tMaxY + tHeight) into tTopOffset
   
   set the visible of grc "border" to false
   repeat with tCol = 1 to tCols step 2
      lock screen
      repeat with tRow = 1 to tRows
         put "r" & tRow & "c" & (tCol) into tName
         put (tCol-1)/2 * (tSide*3) into tLeft
         put (tRow-1) * tHeight into tTop
         export snapshot from rect tLeft,tTop,tLeft+tWidth,tTop+tWidth \
               of this card to img "box"
         set the backPattern of grc "hex" to the ID of img "box"
         import snapshot from grc "hex"
         set the name of the last control to tName
         set the left of img tName to (tCol-1)/2 * tColOffset
         set the top of img tName to tTopOffset + (tRow-1) * tRowOffset
         
         put "r" & tRow & "c" & (tCol+1) into tName
         put tLeft + tSide*3/2 into tLeft
         if tLeft > tMaxX then next repeat
         put tTop + tHeight/2 into tTop
         if tTop > tMaxY then next repeat
         export snapshot from rect tLeft,tTop,tLeft+tWidth,tTop+tWidth \
               of this card to img "box"
         set the backPattern of grc "hex" to the ID of img "box"
         import snapshot from grc "hex"
         set the name of the last control to tName
         set the left of img tName to (tCol-1)/2 * tColOffset + tColOffset/2
         set the top of img tName to tTopOffset + (tRow-1) * tRowOffset + tHeight/2
      end repeat
      unlock screen
   end repeat
   set the visible of grc "border" to true
end mouseUp

Code: Select all

 -- remove earlier tiles if any
   repeat with x = the number of images down to 1
      put the short name of img x into adad
      if matchtext(the short name of img x, "r[0-9]+c[0-9]+") then delete img x
   end repeat
   

Code: Select all

 repeat with tCol = 1 to tCols step 2

Code: Select all

  put the short name of img x into adad