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