home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / radio.dxr / 00005_ROTATEKNOB.ls < prev    next >
Encoding:
Text File  |  1996-12-05  |  1.8 KB  |  37 lines
  1. on ROTATEKNOB
  2.   global knobQuartList, ChangeHere, nextchange, knoblocList
  3.   if (the mouseH > getAt(knoblocList, 1)) and (the mouseH < getAt(knoblocList, 2)) and (the mouseV > getAt(knoblocList, 3)) and (the mouseV < getAt(knoblocList, 4)) then
  4.     repeat while (the mouseH > getAt(knoblocList, 1)) and (the mouseH < getAt(knoblocList, 2)) and (the mouseV > getAt(knoblocList, 3)) and (the mouseV < getAt(knoblocList, 4))
  5.       cursor([33, 34])
  6.       repeat with t = 1 to count(knobQuartList)
  7.         if (the mouseH > getAt(getAt(knobQuartList, t), 1)) and (the mouseH < getAt(getAt(knobQuartList, t), 2)) and (the mouseV > getAt(getAt(knobQuartList, t), 3)) and (the mouseV < getAt(getAt(knobQuartList, t), 4)) then
  8.           set ChangeHere to t
  9.           repeat while (the mouseH > getAt(getAt(knobQuartList, t), 1)) and (the mouseH < getAt(getAt(knobQuartList, t), 2)) and (the mouseV > getAt(getAt(knobQuartList, t), 3)) and (the mouseV < getAt(getAt(knobQuartList, t), 4))
  10.             if ChangeHere <> nextchange then
  11.               if ((ChangeHere = 1) and (nextchange = 4)) or (ChangeHere > nextchange) then
  12.                 if (ChangeHere = 4) and (nextchange = 1) then
  13.                   SelectAntiClockWISE(4)
  14.                 else
  15.                   SelectClockWISE(4)
  16.                 end if
  17.               else
  18.                 if ((ChangeHere = 4) and (nextchange = 1)) or (ChangeHere < nextchange) then
  19.                   if (ChangeHere = 1) and (nextchange = 4) then
  20.                     SelectClockWISE(4)
  21.                   else
  22.                     SelectAntiClockWISE(4)
  23.                   end if
  24.                 end if
  25.               end if
  26.               next repeat
  27.             end if
  28.             set nextchange to ChangeHere
  29.           end repeat
  30.           set nextchange to ChangeHere
  31.         end if
  32.       end repeat
  33.     end repeat
  34.     cursor(-1)
  35.   end if
  36. end
  37.