MacPeople 2001 June 15/MACPEOPLE-2001-06-15.ISO.7z/MACPEOPLE-2001-06-15.ISO/オンラインウエア/新着！オンラインウエア16/KHyX.sit/KHyX/Modules/HMConversions/stack.txt

Text File | 2001-03-08 | 8KB | 184 lines

-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=416 h=240
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2728
-- card count: 1
-- first card id: 3676
-- list block id: 2215
-- print block id: 0
-- font table block id: 3529
-- style table block id: 3151
-- free block count: 4
-- free size: 5216 bytes
-- total size: 16384 bytes
-- stack block size: 7168 bytes
-- created by hypercard version: 0x02418000
-- compacted by hypercard version: 0x02418000
-- modified by hypercard version: 0x02418000
-- opened by hypercard version: 0x02418000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xE153BE1D
----- HyperTalk script -----
function angleconvert n,s,d
if the first char of s = "d" then put 360 into s -- degrees
if the first char of s = "r" then put 2*pi into s -- radians
if the first char of s = "g" then put 400 into s -- gradians
if the first char of s = "u" then put 1 into s -- units
if the first char of s = "b" then put 256 into s -- binary
if the first char of s = "a" then put 64 into s -- applesoft basic
if the first char of d = "d" then put 360 into d
if the first char of d = "r" then put 2*pi into d
if the first char of d = "g" then put 400 into d
if the first char of d = "u" then put 1 into d
if the first char of d = "b" then put 256 into d
if the first char of d = "a" then put 64 into d
if d is empty then put 2*pi into d
if s is empty then put 360 into s
if n is empty then put 0 into n
return n*(d/s)
end angleconvert

function tempconvert n,s,d
put the first char of s into e
if the first char of s = "r" then put the second char of s after e
put the first char of d after e
if the first char of d = "r" then put the second char of d after e
if e = "fc" then return (n-32)/1.8
if e = "cf" then return (n*1.8)+32
if e = "fk" then return (n+459.67)/1.8
if e = "ck" then return n+273.16
if e = "kf" then return (n*1.8)-459.67
if e = "kc" then return n-273.16
if e = "rek" then return (n*1.25)+273.16
if e = "rak" then return n/1.8
if e = "kra" then return n*1.8
if e = "kre" then return (n-273.16)/1.25
if e = "ref" then return (((n*1.25)+273.16)*1.8)-459.67
if e = "fre" then return (((n+459.67)/1.8)-273.16)/*1.25
if e = "rec" then return n*1.25
if e = "cre" then return n/1.25
if e = "fra" then return n+459.67
if e = "cra" then return (n+273.16)*1.8
if e = "raf" then return n-459.67
if e = "rac" then return (n/1.8)-273.16
if e = "rare" then return ((n/1.8)-273.16)/1.25
if e = "rera" then return ((n*1.25)+273.16)*1.8
if e is in "/rara/rere/ff/cc/kk/" then return n
end tempconvert

function lengthconvert n,s,d
if s = "meters" or s = "m" then put 39.13 into s
if s = "millimeters" or s = "mm" then put 0.3125 into s
if s = "centimeters" or s = "cm" then put 0.3937008 into s
if s = "rods" or s = "r" then put 198 into s
if s = "feet" or s = "ft" or s = "'" then put 12 into s
if s = "miles" or s = "mi" then put 63360 into s
if s = "inches" or s = "in" or s = "''" or s = quote then put 1 into s
if s = "yards" or s = "yd" or s = "y" then put 36 into s
if d = "meters" or d = "m" then put 39.13 into d
if d = "millimeters" or d = "mm" then put 0.3125 into d
if d = "centimeters" or d = "cm" then put 0.3937008 into d
if d = "rods" or d = "r" then put 198 into d
if d = "feet" or d = "ft" or d = "'" then put 12 into d
if d = "miles" or d = "mi" then put 63360 into d
if d = "inches" or d = "in" or d = "''" or d = quote then put 1 into d
if d = "yards" or d = "yd" or d = "y" then put 36 into d
return n*(d/s)
end lengthconvert

function areaconvert n,s,d
if char 1 of s = "f" or char 1 of word 2 of s = "f" then put 144 into s
if char 1 of s = "i" or char 1 of word 2 of s = "i" then put 1 into s
if char 1 of s = "a" or char 1 of word 2 of s = "a" then put 6324480 into s
if char 1 of s = "m" or char 1 of word 2 of s = "m" then put 4047667200 into s
if char 1 of s = "y" or char 1 of word 2 of s = "y" then put 1296 into s
if char 1 of s = "r" or char 1 of word 2 of s = "r" then put 39528 into s
if char 1 of d = "f" or char 1 of word 2 of d = "f" then put 144 into d
if char 1 of d = "i" or char 1 of word 2 of d = "i" then put 1 into d
if char 1 of d = "a" or char 1 of word 2 of d = "a" then put 6324480 into d
if char 1 of d = "m" or char 1 of word 2 of d = "m" then put 4047667200 into d
if char 1 of d = "y" or char 1 of word 2 of d = "y" then put 1296 into d
if char 1 of d = "r" or char 1 of word 2 of d = "r" then put 39528 into d
return n*(d/s)
end areaconvert

function volumeconvert n,s,d
if char 1 of s = "f" or char 1 of word 2 of s = "f" then put 1728 into s
if char 1 of s = "i" or char 1 of word 2 of s = "i" then put 1 into s
if char 1 of s = "y" or char 1 of word 2 of s = "y" then put 46656 into s
if char 1 of s = "c" or char 1 of word 2 of s = "c" then put 221184 into s
if char 1 of d = "f" or char 1 of word 2 of d = "f" then put 1728 into d
if char 1 of d = "i" or char 1 of word 2 of d = "i" then put 1 into d
if char 1 of d = "y" or char 1 of word 2 of d = "y" then put 46656 into d
if char 1 of d = "c" or char 1 of word 2 of d = "c" then put 221184 into d
return n*(d/s)
end volumeconvert

function bytesizeconvert n,s,d
if char 1 of s = "b" and char 2 of s = "i" then put 0.125 into s -- bits
if char 1 of s = "n" then put 0.5 into s -- nybbles
if char 1 of s = "b" and char 2 of s = "y" then put 1 into s -- bytes
if char 1 of s = "b" then put 1 into s -- bytes
if char 1 of s = "w" then put 2 into s -- words
if char 1 of s = "l" then put 4 into s -- longs
if char 1 of s = "k" then put 1024 into s -- kilobytes
if char 1 of s = "m" then put 1048576 into s -- megabytes
if char 1 of s = "g" then put 1073741824 into s -- gigabytes
if char 1 of d = "b" and char 2 of d = "i" then put 0.125 into d
if char 1 of d = "n" then put 0.5 into d
if char 1 of d = "b" and char 2 of d = "y" then put 1 into d
if char 1 of d = "b" then put 1 into d
if char 1 of d = "w" then put 2 into d
if char 1 of d = "l" then put 4 into d
if char 1 of d = "k" then put 1024 into d
if char 1 of d = "m" then put 1048576 into d
if char 1 of d = "g" then put 1073741824 into d
return n*(d/s)
end bytesizeconvert