LiveCode Forums.

Code: Select all

Global ArmPOS,HeadPOS,TorsoPOS,PelvisPOS,UpperLegPOS,LowerLegPOS -- These values are all degrees in increments of 10 (0-350°)

 put "Arm,Head,Torso,Pelvis,UpperLeg,LowerLeg"  into BodySegments -- 
   put 1 into ItemNo
   repeat with t=1 to the number of items of BodySegments
      put item itemNo of BodySegments into SegmentVar
      -- CREATE name of image to be displayed----------------------------------
      if segmentVar is "Arm" then
if ArmPOS = 0 then 
               put ArmPOS & "ArmHandClosed.jpg" into Img2Display
            else
               put ArmPOS & "0" & "ArmHandClosed.jpg" into Img2Display
            end if
else
 --these nested IF-THEN-ELSE have been omitted but there are several more for each body part
end if

 --FIND IMAGE OFFSET DATA -------------------------------------------------------------
   find string comma & img2Display in fld "ImageData" 
-------data in fld ImageData looks like...--------------------------
-------Img,190,190UpperLeg.jpg,-6,-37,8,37
-------Img,200,200ArmHandClosed.jpg,-18,-51,16,45
-------Img,200,200ArmHandOpen.jpg,-17,-46,16,49
------------------------------------------------------------------------------
   put the value of the foundLine into ImgData --so a search would find one line of data from fld "imageData"
   answer "ImgData is " & return & ImgData 
-- I was debugging (with the answer line above) and discovered that on the first repeat pass when "Arm" 
-- was SegmentVar LiveCode retrieved data and for item 2 -
-- "Head" it did not - this pattern repeated for every other repeat - successfully getting data for Arm, Torso & UpperLeg
-- and getting zilch for the odd numbered items between
   put item 4 of ImgData & "," & item 5 of ImgData into IntOffsetHV
   put item 6 of ImgData & "," & item 7 of ImgData into ExtOffsetHV
   
   --Position images to be displayed to overlap pivot points (joints)----------------------------------
   if SegmentVar is in "Arm,Torso,Pelvis,UpperLeg,LowerLeg" then
           add Item 1 of IntOffsetHV to item 1 of CurrLoc
      add Item 2 of IntOffsetHV to item 2 of CurrLoc
      Show img Img2display at CurrLoc --"current location" is an X,Y coordinate
    else -- SegmentVar is "head"
      --do stuff for head image (which has only the single neck pivot point)
   end if

   add 1 to ItemNo
end repeat

Code: Select all

...
   put "Arm,Head,Torso,Pelvis,UpperLeg,LowerLeg"  into BodySegments -- 
   put 1 into ItemNo
   repeat with t=1 to the number of items of BodySegments
      put item itemNo of BodySegments into SegmentVar
      -- CREATE name of image to be displayed----------------------------------
      if segmentVar is "Arm" then
         if ArmPOS = 0 then 
            put ArmPOS & "ArmHandClosed.jpg" into Img2Display
         else
            put ArmPOS & "0" & "ArmHandClosed.jpg" into Img2Display
         end if
      else
         --these nested IF-THEN-ELSE have been omitted but there are several more for each body part
      end if
   end if
...

Code: Select all

...
   put "Arm,Head,Torso,Pelvis,UpperLeg,LowerLeg"  into BodySegments -- 
   put 1 into ItemNo
   repeat with t=1 to the number of items of BodySegments
      put item itemNo of BodySegments into SegmentVar
      -- CREATE name of image to be displayed----------------------------------
      switch SegmentVar
         case "Arm"
            if ArmPOS = 0 then 
               put ArmPOS & "ArmHandClosed.jpg" into Img2Display
            else
               put ArmPOS & "0" & "ArmHandClosed.jpg" into Img2Display
            end if
            break
         case "Head"
            if HeadPOS = xxx then
               ##
            else
               ###
            end if
            break
         case "Torso"
            if TorsoPOS = xxx then
               ###
            else
               ##
            end if
            break
            ## More CASEs here...
      end switch
   end repeat
...

Code: Select all

...
put fld "ImageData" into YourVariable
put lineoffset(img2Display,YourVariable) into tLineNumber
if tLineNumber <> 0 then
  put line tLineNumber of YourVariable into ImgData
end if
...

Code: Select all

...
put fld "ImageData" into YourVariable
filter lines of YourVariable with ("*" & img2Display & "*")
## Filter will only keep the lines matching your parameters in the variable or field:
if YourVariable <> EMPTY then
  ## YourVariable now has the SAME content as ImgData in the previous example!
end if
...

Code: Select all

...
## put 1 into ItemNo
 repeat with t = 1 to the number of items of BodySegments
     ## put item itemNo of BodySegments into SegmentVar
     put item t of BodySegments into SegmentVar
     ...
     ## add 1 to tItemNumber
end repeat 
...

Code: Select all

function findLine what, myStrg, myField, theDelim
   -- finds "what" in the items of a CSV-Variable (Char-Delimited-Values) "myStrg",
   --    and returns the line number of the first find, or empty if nothing found.
   -- myField [Int]: the number of the field/ item in whom "what" should
   --    be searched. Default: 1
   -- theDelim [Str]: Anything you can set the itemdel to ;-)
   --    Exp.: ",", comma, numToChar(44) ... Default: Tab
   
   if myField is empty then put 1 into myField 
   if theDelim is empty then put tab into theDelim
   
   set itemdel to theDelim
   put 0 into myVar
   repeat for each line myLine in myStrg
      add 1 to myVar
      if (item myField of myLine) = what then return myVar
   end repeat
   
   return empty
end findLine

Code: Select all

function revFullFind tText,tFind,exactly --RETURNS LINE NUMBER & "," & WORD NUMBER
   put 0 into counter
   switch exactly
      case "true"
         repeat for each line tline in tText
            add 1 to counter
            if tFind = tline then
               put counter & return after tResult
            end if
         end repeat
         break
      case "false"
      case empty
         repeat for each line tline in tText
            add 1 to counter
            if tFind is in tline then
               repeat with y = 1 to the number of words in tLine
                  if word y of tLine = tFind then put y & "," after temp
               end repeat
               delete last char of temp
               put counter & "," & temp & return after tResult
               put "" into temp
            end if
         end repeat
         break
   end switch
   return tResult
end revFullFind

Code: Select all

local iData

on mouseUp
  put fld "ImageData" into tmp
  repeat for each line L in tmp
    put L into iData[item 3 of L]
  end repeat
end mouseUp

Code: Select all

  put iData[ArmPOS & "0ArmHandClosed.jpg"] into ImgData
  -- now ImgData is exactly the line you wish to "find"
  -- that is the variable in your original "find"-code
  put item 4 to 5 of ImgData into IntOffsetHV
  put item 6 to 7 of ImgData into ExtOffsetHV