home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00040_Script_40 < prev    next >
Text File  |  2001-09-17  |  619b  |  28 lines
  1. --∂ï
  2. on pupPal who,loading
  3.   
  4.   EXIT ----PETEmack 06.26.01
  5.   
  6.   global gWhere
  7.   if loading then set whichPal = goNext(gWhere)
  8.   else set whichPal = goNext(the moviename)
  9.   --put whichpal&"p"
  10.   tell who to set PalNum = the number of cast (whichPal&"p")
  11.   tell who to puppetPalette PalNum, 60, 1
  12.   tell who to updatestage
  13.   
  14. end
  15.  
  16. on getWidthDiff l,r,lS,rS
  17.   return lS+((rS-lS)-(r-l))/2
  18. end 
  19.  
  20. on getHeightDiff t,b,tS,bS
  21.   return tS+((bS-tS)-(b-t))/2
  22. end 
  23.  
  24. on patchpal
  25.   global fixpal
  26.   EXIT ----PETEMACK 06.20.01
  27.   --PETEMACK 07.22.01 if the machinetype <> 256 then fixpal(mPatchIt)
  28. end patchpal