#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" RZPotter's Friend1on shutdownRequest answer "Save changes to HyperGlaze before quitting?" with "Don't Save" or "Cancel" or "Save" if it is "Don't Save" then pass shutDownRequest exit shutdownRequest end if if it is "Cancel" then exit shutdownRequest if it is "Save" then send SaveHyperGlaze to stack "HyperGlaze" pass shutDownRequest end if end shutdownRequest on openstack if the platform is "MacOS" then put 345 into myMinHeight else -- if the platform is Win32 -- Windows with menus in window put 370 into myMinHeight end if revChangeWindowSize 512,myMinHeight end openstack on menupick myItem switch case "Quit" quit break case "Cut" cut break case "Copy" if the selection is not empty then copy the selection break case "Paste" if the clipboard is "text" then paste break case "Clear" delete break end switch end menupick -- put "About HyperGlaze,-,Help Index,-,Main Index,Glaze Index,Clay Index,-,Materials Index,-,Glaze Calculator,Glaze Limits,"\ -- & "-,Unity Explained,Bibliography,-,Find,Find by Cone,Find by Name,Find by Color,Find by Surface,Find by Firing,Find by Tested" into HyperGlazeMenu -- -- put "go " & quote & "HyperGlaze IIx Help" & quote & ",,go to cd mainIndex of stack " & quote & "HyperGlaze IIx" & quote & ",,,,,,,,,,,,,,,,,," into HGMenuMessages -- put "About Potter's Friend,-,Clay Shrinkage,Glaze Blender,Molecular Weight,Plaster Calculator,-,Time: Days to go,Time: Hourly costs,"\ -- & "-,Line Blend,Triaxial Blend 1,Triaxial Blend 2,-,Temperature Conversion,Size Conversion,Volume Conversion,Weight Conversion" into PottersFriendMenu f m revstackfalsemm( U helvetica Utimes U helveticaU helveticaW helvetica U helvetica W helvetica W helveticaW helvetica W helvetica UChicago WChicago U Charcoal UChicago U Helvetica W Helvetica U Helvetica U HelveticaW helveticaW helvetica UBerkeley BookItalic W HelveticaU Helvetica ULucida Grande WArial UArial UArial UTimes New Roman UTimes New Roman UTimes New Roman WArialUArial UArial WArialWArialUArialWArialWArial UArialWArialPottersFriend cREVGeneralPindex P#on opencard push card end opencardm cREVGeneral . PPPPPPPPPPPPPPRERM ` temperature @o cREVGeneral .PPPPPP+size @o cREVGeneral .,PPPQQQRARB'weight P o cREVGeneral . QQQQQQQ Q Q Q R?R@"postage @o cREVGeneral .#Q QQQQQQQQQQQR9R:R;$UVolume @o cREVGeneral .%%QQQQQQR7R8! shrinkage @o cREVGeneral .QQ Q!Q"Q#Q$Q%Q&Q'Q(Q)Q*Q+Q,Q-Plaster Pon opencard set the loc of card graphic "Blender Pointer" to 390,227 put 70 into cd fld "WaterRatio" send mouseup to button calculate pass opencard end opencard o cREVGeneral .Q.Q/Q0Q1Q2Q3Q4Q5Q6Q7Q8Q9Q:Q;Q<RDOMolWts @o cREVGeneral .aQ>Q?Q@QAQBQCQDQEQFQGQHtime1 Pfon opencard put "Today is " & the long date into card field "Today's Date" pass opencard end opencardo .QIQJQKQLQMQNQOQPQQQRQSQTR/time2 Pfon opencard put "Today is " & the long date into card field "Today's Date" pass opencard end opencardo .sQUQVQWQXQYQZQ[Q\Q]Q^Q_Q`Qa lineBlends @o cREVGeneral .QbQcQdQeQfQgQh Triaxial1 P~on DoBlend global A,B,C set the numberFormat to 0.0 put A/100*card field "IngredA" && "%" && card field "ingredientA"\ into line 1 of card field "percentage" put B/100*card field "IngredB" && "%" && card field "ingredientB"\ into line 2 of card field "percentage" put C/100*card field "IngredC" && "%" && card field "ingredientC"\ into line 3 of card field "percentage" end DoBlendo . QiQjQkQlQmQnQoQpQqQrQsQtQuQvQwQxQyQzQ{Q|Q}Q~QQQQQQQ Triaxial2 P~on DoBlend global A,B,C set the numberFormat to 0.0 put A/100*card field "IngredA" && "%" && card field "ingredientA"\ into line 1 of card field "percentage" put B/100*card field "IngredB" && "%" && card field "ingredientB"\ into line 2 of card field "percentage" put C/100*card field "IngredC" && "%" && card field "ingredientC"\ into line 3 of card field "percentage" end DoBlendo .jQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ GlazeBlender P on hideNewGlaze lock screen hide cd fld "NewIngreds" hide cd fld "NewAmounts" hide cd fld "IngredTitle" hide btn "Done" hide btn "Save Blend" unlock screen end hideNewGlaze on saveBlend put empty into myComments answer "Save blend to a Glaze Card or text file?" with "Cancel" or\ "Text File" or "Glaze Card" if it is "cancel" then exit saveBlend if it is "Text File" then put char 1 to 11 of cd fld "name1" & "+" & char 1 to 11 of cd fld "name2" && "Blend.txt" into myfileName ask file "Save Glaze Blend text file as:" with myfileName if the result is not empty then exit saveBlend put it into myfileName put cd fld "NewIngreds" into allIngreds repeat with i=1 to the number of lines of allIngreds put tab & word 1 of line i of cd fld "NewAmounts" after\ line i of allIngreds end repeat open file myfileName for text write write "Blend of " & cd fld "Pct1" & "%" && cd fld "name1" &&\ "and" && cd fld "pct2" & "%" && cd fld "name2" & return & return\ to file myfileName write "Ingredient" & tab & "Amount" & return to file myfileName write AllIngreds to file myfileName close file myfileName else if it is "Glaze Card" then put "copper oxide, copper carbonate, red iron oxide, black iron oxide, rutile, cobalt carbonate, cobalt oxide, bentonite, zircopax, ultrox, superpax, tin oxide,"\ & " chrome oxide, chromium oxide, chromic oxide, titanium dioxide, manganese carbonate, manganese dioxide, red copper oxide, black copper oxide" \ & " mason stain, commercial stain, nickel oxide, nickel carbonate, vanadium pentoxide, iron chromate, water, copper oxide red, copper oxide black, "\ & " cmc gum arabic, macaloid, epsom salts, methocel, black copper ox, red copper ox, copper ox, iron oxide red, iron oxide black," \ & " zirconium oxide, praseodymium oxide, yellow ochre, yellow ocher" into colorantList put cd fld "newIngreds" into myIngreds put cd fld "newAmounts" into myAmounts if the last line of myingreds is empty then delete last line of myIngreds if the last line of myingreds is empty then delete last line of myIngreds if the number of lines of myIngreds>14 then answer "There are more than 14 ingredients. The additional ingredients will be placed in the comments."\ & return & "Try making a simpler glaze recipe." with "Cancel" or "Continue" if it is "Cancel" then exit SaveBlend repeat with i= 15 to the number of lines of myIngreds put line i of myIngreds && line i of myAmounts & return after myComments end repeat end if put char 1 to 11 of cd fld "name1" & "+" & char 1 to 11 of cd fld "name2" && "Blend" into glazeName put "Blend of " & cd fld "Pct1" & "%" && cd fld "name1" &&\ "and" && cd fld "pct2" & "%" && cd fld "name2" & return before myComments go to stack "Glazes" if the result is not empty then exit saveBlend show stack "Glazes" doMenu "New Card" if the result is not empty then exit saveBlend put glazeName into fld "Name" put 1 into ingredFld put 11 into ColorFld repeat with i=1 to 14 put line i of myIngreds into TempIngred put line i of myAmounts into TempAmt if TempIngred is empty then exit repeat if TempIngred is in colorantList then set numberformat to 0 put "Ingredient" & ColorFld into whichIngred put "Amount" & ColorFld into whichAmt add 1 to ColorFld set numberFormat to 0.0 if ColorFld>14 then put tempIngred && TempAmt & return after myComments else put TempIngred into fld whichIngred put TempAmt into fld whichAmt end if else set numberformat to 0 put "Ingredient" & ingredFld into whichIngred put "Amount" & ingredFld into whichAmt add 1 to ingredFld set numberFormat to 0.0 if IngredFld>10 then put tempIngred && TempAmt & return after myComments else put TempIngred into fld whichIngred put TempAmt into fld whichAmt end if end if end repeat put myComments into fld "Comments" end if end saveBlend o cREVGeneralQQQQQQQQQRZ QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQRRRRRRRRRR R R R R RRRRRCRRRRURVRRRRRRPRQRSRT Xabout Potter's Friend Pon mouseup go back end mouseupo cREVGeneral .!RRRRR<RNPTemperature ConversionEMon mouseUp -- --visual effect dissolve go to card "Temperature" end mouseUp f PWeight ConversionE,on mouseUp go to card "Weight" end mouseUp  cREVGeneral PMolecular WeightsE.on mouseUp go to card "MolWts" end mouseUp  cREVGeneral PTime Calculations 1 & 2EGon mouseUp -- --visual effect dissolve go to card "Time1" end mouseUp  PPlaster & Volume CalculatorEIon mouseUp -- --visual effect dissolve go to card "plaster" end mouseUp  P Line BlendsE2on mouseUp go to card "LineBlends" end mouseUp  cREVGeneral PTriaxial Blends 1 & 2E1on mouseUp go to card "Triaxial1" end mouseUp  cREVGeneral PClay ShrinkageEKon mouseUp -- --visual effect dissolve go to card "Shrinkage" end mouseUp   Pabout%=on mouseup go to card "about Potter's Friend" end mouseup 2 About the Potter's Friend cREVGeneral P New Button@A_Gon mouseUp -- --visual effect dissolve go to card "index" end mouseUp m.#& PVolume ConversionEHon mouseUp -- --visual effect dissolve go to card "Volume" end mouseUp  PGlaze BlenderENon mouseUp -- --visual effect dissolve go to card "GlazeBlender" end mouseUp ! PPostage CalculatorE/on mouseUp go to card "postage" end mouseUp  cREVGeneral PSize ConversionEFon mouseUp -- --visual effect dissolve go to card "size" end mouseUp w PMyTemperaturekon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield7y_ ` 1016 PTempConversionKx"on mouseUp set cursor to watch put the short name of the target into myField set the numberFormat to 0 get card field myField if it is "Temperature in C" then put ((card field "MyTemperature")*(9/5))+32 into card field "MyTemperature" put "Temperature in F" into card field myField else put ((card field "MyTemperature")-32)*(5/9) into card field "MyTemperature" put "Temperature in C" into card field myField end if send mouseup to card field "coneConversion" end mouseUpX ` Temperature in C PConeConversionKx"/on mouseUp set cursor to watch set numberformat to 0 get card field "TempConversion" put empty into card field "OrtonCone" put empty into card field "SegerCone" put empty into card field "KilnColor" if it is "Temperature in F" then put ((card field "MyTemperature")-32)*(5/9) into myTemp else put card field "MyTemperature" into myTemp end if put round(myTemp) into MyTemp if MyTemp <=590 then put "Too low for cones" into card field "OrtonCone" put "Too low for cones" into card field "SegerCone" if myTemp>537 then put "Very dark red" into cd fld "KilnColor" else put "Black" into card field "KilnColor" end if if MyTemp>590 and MyTemp <=610 then put "022" && "(605C @ 150C/hr)" into card field "OrtonCone" put "022" && "(600C @ 150C/hr)" into card field "SegerCone" put "Very dark red" into card field "KilnColor" end if if MyTemp>610 and MyTemp <=625 then put "021" && "(615C @ 150C/hr)" into card field "OrtonCone" put "022" && "(600C @ 150C/hr)" into card field "SegerCone" put "Dark red" into card field "KilnColor" end if if MyTemp>625 and MyTemp <=660 then put "020" && "(635C @ 150C/hr)" into card field "OrtonCone" put "021" && "(650C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>660 and MyTemp <=692 then put "019" && "(683C @ 150C/hr)" into card field "OrtonCone" put "019" && "(685C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>692 and MyTemp <=711 then put "019" && "(683C @ 150C/hr)" into card field "OrtonCone" put "018" && "(705C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>711 and MyTemp <=724 then put "018" && "(717C @ 150C/hr)" into card field "OrtonCone" put "018" && "(705C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>724 and MyTemp <=738 then put "018" && "(717C @ 150C/hr)" into card field "OrtonCone" put "017" && "(730C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>738 and MyTemp <=751 then put "017" && "(747C @ 150C/hr)" into card field "OrtonCone" put "017" && "(730C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>751 and MyTemp <=767 then put "017" && "(747C @ 150C/hr)" into card field "OrtonCone" put "016" && "(755C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>767 and MyTemp <=786 then put "017" && "(747C @ 150C/hr)" into card field "OrtonCone" put "015a" && "(780C @ 150C/hr)" into card field "SegerCone" put "Dull red orange" into card field "KilnColor" end if if MyTemp>786 and MyTemp <=798 then put "016" && "(792C @ 150C/hr)" into card field "OrtonCone" put "015a" && "(780C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>798 and MyTemp <=808 then put "015" && "(804C @ 150C/hr)" into card field "OrtonCone" put "015a" && "(780C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>808 and MyTemp <=826 then put "015" && "(780C @ 150C/hr)" into card field "OrtonCone" put "014a" && "(815C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>826 and MyTemp <=845 then put "014" && "(838C @ 150C/hr)" into card field "OrtonCone" put "014a" && "(815C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>845 and MyTemp <=868 then put "013" && "(852C @ 150C/hr)" into card field "OrtonCone" put "012a" && "(855C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>868 and MyTemp <=889 then put "012" && "(884C @ 150C/hr)" into card field "OrtonCone" put "012a" && "(855C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>889 and MyTemp <=897 then put "011" && "(894C @ 150C/hr)" into card field "OrtonCone" put "012a" && "(855C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>897 and MyTemp <=902 then put "011" && "(894C @ 150C/hr)" into card field "OrtonCone" put "010a" && "(900C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>902 and MyTemp <=914 then put "010" && "(905C @ 150C/hr)" into card field "OrtonCone" put "010a" && "(900C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>914 and MyTemp <=929 then put "09" && "(923C @ 150C/hr)" into card field "OrtonCone" put "010a" && "(900C @ 150C/hr)" into card field "SegerCone" put "Red orange" into card field "KilnColor" end if if MyTemp>929 and MyTemp <=945 then put "09" && "(923C @ 150C/hr)" into card field "OrtonCone" put "09a" && "(935C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>945 and MyTemp <=963 then put "08" && "(955C @ 150C/hr)" into card field "OrtonCone" put "08a" && "(955C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>963 and MyTemp <=977 then put "08" && "(955C @ 150C/hr)" into card field "OrtonCone" put "07a" && "(970C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>977 and MyTemp <=987 then put "07" && "(984C @ 150C/hr)" into card field "OrtonCone" put "07a" && "(970C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>987 and MyTemp <=994 then put "07" && "(984C @ 150C/hr)" into card field "OrtonCone" put "06a" && "(990C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>994 and MyTemp <=1012 then put "06" && "(999C @ 150C/hr)" into card field "OrtonCone" put "05a" && "(1000C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>1012 and MyTemp <=1035 then put "06" && "(999C @ 150C/hr)" into card field "OrtonCone" put "04a" && "(1025C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>1035 and MyTemp <=1050 then put "05" && "(1046C @ 150C/hr)" into card field "OrtonCone" put "04a" && "(1025C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>1050 and MyTemp <=1057 then put "05" && "(1046C @ 150C/hr)" into card field "OrtonCone" put "03a" && "(1055C @ 150C/hr)" into card field "SegerCone" put "Orange" into card field "KilnColor" end if if MyTemp>1057 and MyTemp <=1071 then put "04" && "(1060C @ 150C/hr)" into card field "OrtonCone" put "03a" && "(1055C @ 150C/hr)" into card field "SegerCone" put "Orange yellow" into card field "KilnColor" end if if MyTemp>1071 and MyTemp <=1093 then put "04" && "(1060C @ 150C/hr)" into card field "OrtonCone" put "02a" && "(1085C @ 150C/hr)" into card field "SegerCone" put "Orange yellow" into card field "KilnColor" end if if MyTemp>1093 and MyTemp <=1103 then put "03" && "(1101C @ 150C/hr)" into card field "OrtonCone" put "02a" && "(1085C @ 150C/hr)" into card field "SegerCone" put "Orange yellow" into card field "KilnColor" end if if MyTemp>1103 and MyTemp <=1112 then put "03" && "(1101C @ 150C/hr)" into card field "OrtonCone" put "01a" && "(1105C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1112 and MyTemp <=1122 then put "02" && "(1120C @ 150C/hr)" into card field "OrtonCone" put "01a" && "(1105C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1122 and MyTemp <=1131 then put "02" && "(1120C @ 150C/hr)" into card field "OrtonCone" put "1a" && "(1125C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1131 and MyTemp <=1143 then put "01" && "(1137C @ 150C/hr)" into card field "OrtonCone" put "1a" && "(1125C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1143 and MyTemp <=1152 then put "01" && "(1137C @ 150C/hr)" into card field "OrtonCone" put "2a" && "(1150C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1152 and MyTemp <=1158 then put "1" && "(1154C @ 150C/hr)" into card field "OrtonCone" put "2a" && "(1150C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1158 and MyTemp <=1165 then put 2 && "(1162C @ 150C/hr)" into card field "OrtonCone" put "2a" && "(1150C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1165 and MyTemp <=1176 then put 3 && "(1168C @ 150C/hr)" into card field "OrtonCone" put "3a" && "(1170C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1176 and MyTemp <=1190 then put 4 && "(1186C @ 150C/hr)" into card field "OrtonCone" put "3a" && "(1170C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1190 and MyTemp <=1205 then put 5 && "(1196C @ 150C/hr)" into card field "OrtonCone" put "4a" && "(1195C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1205 and MyTemp <=1219 then put 5 && "(1196C @ 150C/hr)" into card field "OrtonCone" put "5a" && "(1215C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1219 and MyTemp <=1231 then put 6 && "(1222C @ 150C/hr)" into card field "OrtonCone" put "5a" && "(1215C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1231 and MyTemp <=1250 then put 7 && "(1240C @ 150C/hr)" into card field "OrtonCone" put "6a" && "(1240C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1250 and MyTemp <=1271 then put 8 && "(1260C @ 150C/hr)" into card field "OrtonCone" put 7 && "(1000C @ 150C/hr)" into card field "SegerCone" put "Yellow" into card field "KilnColor" end if if MyTemp>1271 and MyTemp <=1290 then put 9 && "(1280C @ 150C/hr)" into card field "OrtonCone" put 8 && "(1280C @ 150C/hr)" into card field "SegerCone" put "Bright yellow" into card field "KilnColor" end if if MyTemp>1290 and MyTemp <=1302 then put 9 && "(1280C @ 150C/hr)" into card field "OrtonCone" put 9 && "(1300C @ 150C/hr)" into card field "SegerCone" put "Bright yellow" into card field "KilnColor" end if if MyTemp>1302 and MyTemp <=1310 then put 10 && "(1305C @ 150C/hr)" into card field "OrtonCone" put 9 && "(1300C @ 150C/hr)" into card field "SegerCone" put "Yellow-white" into card field "KilnColor" end if if MyTemp>1310 and MyTemp <=1317 then put 11 && "(1315C @ 150C/hr)" into card field "OrtonCone" put 9 && "(1320C @ 150C/hr)" into card field "SegerCone" put "White" into card field "KilnColor" end if if MyTemp>1317 and MyTemp <=1323 then put 11 && "(1315C @ 150C/hr)" into card field "OrtonCone" put 10 && "(1320C @ 150C/hr)" into card field "SegerCone" put "White" into card field "KilnColor" end if if MyTemp>1323 and MyTemp <=1333 then put 12 && "(1326C @ 150C/hr)" into card field "OrtonCone" put 10 && "(1320C @ 150C/hr)" into card field "SegerCone" put "White" into card field "KilnColor" end if if MyTemp>1333 and MyTemp <=1343 then put 12 && "(1326C @ 150C/hr)" into card field "OrtonCone" put 11 && "(1340C @ 150C/hr)" into card field "SegerCone" put "White" into card field "KilnColor" end if if MyTemp>1343 and MyTemp <=1352 then put 13 && "(1346C @ 150C/hr)" into card field "OrtonCone" put 11 && "(1340C @ 150C/hr)" into card field "SegerCone" put "White" into card field "KilnColor" end if if MyTemp>1352 then put "greater than C13" into card field "OrtonCone" put "greater than C11" into card field "SegerCone" put "White" into card field "KilnColor" end if end mouseUp ` Closest Approximate Cone P OrtonConeIP  ` 06 (999C @ 150C/hr) P SegerConeIR  ` 04a (1025C @ 150C/hr) P KilnColorIR  ` Orange PmyUnitKh"8 cREVGeneral + in Psize1mx" on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit closefield end if end repeat send mouseup to btn "convert" end closefield0 + 3.54 Psize2mx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield0 + 89.92QConvertMx" on mouseup set the numberFormat to 0.00 put 0 into myFactor get card field "size1" if "," is in it then repeat put offset(",",it) into darnComma if darnComma>0 then delete char darnComma of it else exit repeat end repeat put it into myAmount if myAmount<1 then set the numberFormat to 0.000 else if myAmount>100 then set numberFormat to 0.0 put cd fld "MyUnit" into Unit1 put cd fld "myUnit2" into Unit2 if unit1 is unit2 then put 1 into myFactor if Unit1 is "in" and Unit2 is "mm" then put 25.4 into myFactor if Unit1 is "in" and Unit2 is "cm" then put 2.54 into myFactor if Unit1 is "in" and Unit2 is "m" then put 0.0254 into myFactor if Unit1 is "in" and Unit2 is "ft" then put .083333 into myFactor if Unit1 is "in" and Unit2 is "yd" then put .0277778 into myFactor if Unit1 is "ft" and Unit2 is "mm" then put 304.8 into myFactor if Unit1 is "ft" and Unit2 is "cm" then put 30.48 into myFactor if Unit1 is "ft" and Unit2 is "m" then put 0.03048 into myFactor if Unit1 is "ft" and Unit2 is "in" then put 12 into myFactor if Unit1 is "ft" and Unit2 is "yd" then put 0.333333 into myFactor if Unit1 is "yd" and Unit2 is "mm" then put 914.4 into myFactor if Unit1 is "yd" and Unit2 is "cm" then put 91.44 into myFactor if Unit1 is "yd" and Unit2 is "m" then put .9144 into myFactor if Unit1 is "yd" and Unit2 is "in" then put 36 into myFactor if Unit1 is "yd" and Unit2 is "ft" then put 3 into myFactor if Unit1 is "mm" and Unit2 is "in" then put 0.039370079 into myFactor if Unit1 is "mm" and Unit2 is "ft" then put 0.0032808399 into myFactor if Unit1 is "mm" and Unit2 is "yd" then put 0.0010936133 into myFactor if Unit1 is "mm" and Unit2 is "cm" then put 0.1 into myFactor if Unit1 is "mm" and Unit2 is "m" then put 0.001 into myFactor if Unit1 is "cm" and Unit2 is "in" then put 0.39370079 into myFactor if Unit1 is "cm" and Unit2 is "ft" then put 0.032808399 into myFactor if Unit1 is "cm" and Unit2 is "yd" then put 0.010936133 into myFactor if Unit1 is "cm" and Unit2 is "mm" then put 10 into myFactor if Unit1 is "cm" and Unit2 is "m" then put 0.01 into myFactor if Unit1 is "m" and Unit2 is "in" then put 39.370079 into myFactor if Unit1 is "m" and Unit2 is "ft" then put 3.2808399 into myFactor if Unit1 is "m" and Unit2 is "yd" then put 1.0936133 into myFactor if Unit1 is "m" and Unit2 is "mm" then put 1000 into myFactor if Unit1 is "m" and Unit2 is "cm" then put 100 into myFactor put myAmount*myFactor into cd fld "size2" end mouseup Z$ QCLEARExUon mouseUp put empty into cd fld "size1" put empty into cd fld "size2" end mouseUp 8\ QmyUnit2Kh"9  cREVGeneral + mm QmyUnitKx"on mousedown select line 1 of me put item 2 of the bottomRight of me into myTop put item 1 of the topleft of me into myLeft put "lb;oz;gm" into myList if the mouse is not Down then answer "Hold the mouse down longer to pop-up menu." put popUpHGMenu(myTop,myLeft,myList,A)into myChoice if myChoice is empty then exit mousedown put myChoice into me if card field "totBatch" is not empty then send mouseup to button "convert" end mousedownq8 ' gm Q totBatchmx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldq ' 56 QBatchmx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield ' 0.1235QConvertmx" on mouseup if card field "totBatch" is empty then get card field MyUnit if it is "gm" then put "grams" into units else if it is "oz" then put "ounces" into units else put "pounds" into units ask "Please enter the amount in " & units & ":" if it is empty then exit mouseup else put it into card field "totBatch" end if get card field "TotBatch" if "," is in it then repeat put offset(",",it) into darnComma if darnComma>0 then delete char darnComma of it else exit repeat end repeat put it into myAmount get card field "MyUnit" if it is "lb" then set numberformat to 0.000 put myAmount*453.592 into BatchSize end if if it is "oz" then set numberformat to 0.000 put myAmount*28.3495 into BatchSize end if if it is "gm" then set numberformat to 0.000 put myAmount into BatchSize -- end if if batchsize<=0 then exit mouseup get cd fld "myUnit2" if it is "oz" --convert to ounces then put batchsize/28.3495 into batchSize if batchsize <1000 then set numberformat to 0.000 put Batchsize into card field "Batch" else set numberformat to 000 put Batchsize into card field "Batch" end if else if it is "gm" then if batchsize <10000 then set numberformat to 0.00 put Batchsize into card field "Batch" else if batchsize>100000 then set numberformat to 0 else set numberformat to 0.000 put (Batchsize)/1000\ & " Kilograms" into card field "Batch" end if else if it is "lb & oz" then set numberformat to 0.00 put batchsize/453.592 into batchSize if Batchsize >=100 then set numberformat to 0 put batchsize into card field "Batch" else if batchsize<=10 then set numberformat to 0.0 else set numberformat to 0 if trunc(batchsize)>0 then set numberFormat to 0 put trunc(batchsize) & " Lb " into Pounds else put empty into Pounds set numberformat to 0.0 put (Pounds &\ (batchsize-(trunc(batchsize)))*16 & " oz") into\ card field "Batch" end if else -- it contains 'Lb' convert to pounds if batchsize>500 then set numberformat to 0.000 else set numberformat to 0.0000 put batchsize/453.592 into batchSize put batchSize into cd fld "Batch" end if set the numberFormat to 0.00 if the hilite of btn id 13 is true then put BatchSize-trunc(batchSize) into myFraction if myFraction>0 then put 1 into AddUnit else put 0 into AddUnit put trunc(batchSize) + AddUnit into Batchsize end if put "$ " & BatchSize* cd fld "Rate" into cd fld "Cost" end mouseup \Convert cREVGeneral QCLEARExon mouseUp put empty into card field "totBatch" put empty into card field "Batch" put empty into card field "Cost" end mouseUp 8\ QmyUnit2Kx"on mousedown select line 1 of me put item 2 of the bottomRight of me into myTop put item 1 of the topleft of me into myLeft put "lb;lb & oz;oz;gm" into myList if the mouse is not Down then answer "Hold the mouse down longer to pop-up menu." put popUpHGMenu(myTop,myLeft,myList,A)into myChoice if myChoice is empty then exit mousedown put myChoice into me put first word of myChoice into cd fld "MyUnit3" if card field "totBatch" is not empty then send mouseup to button "convert" end mousedown8  ' lb Q Ratemx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldL  ' .23 Q CostKx"on mousedown end mousedownw  ' $ 0.03 Q myUnit3I"on mousedown end mousedownI(  ' lbQ Round cost to next higher unitE con mouseUp set the hilite of me to not the hilite of me send mouseup to btn "Convert" end mouseUp   Q myUnitKx"on mousedown select line 1 of me put item 2 of the bottomRight of me into myTop put item 1 of the topleft of me into myLeft put "lb;oz;gm" into myList if the mouse is not Down then answer "Hold the mouse down longer to pop-up menu." put popUpHGMenu(myTop,myLeft,myList,A)into myChoice if myChoice is empty then exit mousedown put myChoice into me if card field "totBatch" is not empty then send mouseup to button "Calculate" end mousedownq8 " oz Q totBatchmx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldq cREVGeneral " 16 QBatchmx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldSi " 16.000Q Calculate-x Fon mouseup if card field "totBatch" is empty then get card field MyUnit if it is "gm" then put "grams" into units else if it is "oz" then put "ounces" into units else put "pounds" into units ask "Please enter the amount in " & units & ":" if it is empty then exit mouseup else put it into card field "totBatch" end if get card field "TotBatch" if "," is in it then repeat put offset(",",it) into darnComma if darnComma>0 then delete char darnComma of it else exit repeat end repeat put it into myAmount get card field "MyUnit" if it is "lb" then set numberformat to 0.000 put myAmount*453.592 into BatchSize end if if it is "oz" then set numberformat to 0.000 put myAmount*28.3495 into BatchSize end if if it is "gm" then set numberformat to 0.000 put myAmount into BatchSize -- end if if batchsize<=0 then exit mouseup get cd fld "myUnit2" if it is "oz" --convert to ounces then put batchsize/28.3495 into batchSize if batchsize <1000 then set numberformat to 0.000 put Batchsize into card field "Batch" else set numberformat to 000 put Batchsize into card field "Batch" end if else if it is "gm" then if batchsize <10000 then set numberformat to 0.00 put Batchsize into card field "Batch" else if batchsize>100000 then set numberformat to 0 else set numberformat to 0.000 put (Batchsize)/1000\ & " Kilograms" into card field "Batch" end if else if it is "lb & oz" then set numberformat to 0.00 put batchsize/453.592 into batchSize if Batchsize >=100 then set numberformat to 0 put batchsize into card field "Batch" else if batchsize<=10 then set numberformat to 0.0 else set numberformat to 0 if trunc(batchsize)>0 then set numberFormat to 0 put trunc(batchsize) & " Lb " into Pounds else put empty into Pounds set numberformat to 0.0 put (Pounds &\ (batchsize-(trunc(batchsize)))*16 & " oz") into\ card field "Batch" end if else -- it contains 'Lb' convert to pounds if batchsize>500 then set numberformat to 0.000 else set numberformat to 0.0000 put batchsize/453.592 into batchSize put batchSize into cd fld "Batch" end if set the numberFormat to 0.00 put BatchSize-trunc(batchSize) into myFraction if myFraction>0 then put 1 into AddUnit else put 0 into AddUnit put trunc(batchSize) + AddUnit into Batchsize put "$ " & cd fld "Rate"+((BatchSize-1)* cd fld "Rate2") into cd fld "Cost" set numberformat to 0 put Batchsize-1 into cd fld "AdditionalUnits" end mouseup Z Calculate cREVGeneral QCLEAR%xon mouseUp put empty into card field "totBatch" put empty into card field "Batch" put empty into card field "Cost" end mouseUp :PCLEAR QmyUnit2Kx"on mousedown select line 1 of me put item 2 of the bottomRight of me into myTop put item 1 of the topleft of me into myLeft put "lb;oz;gm" into myList if the mouse is not Down then answer "Hold the mouse down longer to pop-up menu." put popUpHGMenu(myTop,myLeft,myList,A)into myChoice if myChoice is empty then exit mousedown put myChoice into me put myChoice into cd fld "MyUnit3" put myChoice into cd fld "MyUnit4" if card field "totBatch" is not empty then send mouseup to button "Calculate" end mousedown9  " oz QRatemx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldL  " .34 QCostKx"on mousedown end mousedown{q  " $ 3.79 QmyUnit3Ion mousedown end mousedownF$  " oz QRate2mx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldL " .23 QmyUnit4Ion mousedown end mousedownG' " oz QAdditionalUnitsK  " 15 QmyUnitKx on mouseup get me if it is "gallons" then put "quarts" into me else if it is "quarts" then put "pints" into me else if it is "pints" then put "cups" into me else if it is "cups" then put "liters" into me else if it is "liters" then put "gallons" into me else if it is empty then put "gal" into me if card field "myVolume" is not empty then send mouseup to button "convert" end mouseup T cREVGeneral $U gallons Q myVolumemx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield $U 5 Q newVolumemx"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield $U 40.0QConvertMx" on mouseup if card field "MyVolume" is empty then ask "Please enter the amount in " & card field MyUnit & ":" if it is empty then exit mouseup else put it into card field "MyVolume" end if get card field "MyUnit" if it is "gallons" then if card field "MyNewUnit" is "gallons" then put card field "MyVolume" into MyNewVolume if card field "MyNewUnit" is "Quarts" then put card field "MyVolume"*4 into MyNewVolume if card field "MyNewUnit" is "pints" then put card field "MyVolume"*8 into MyNewVolume if card field "MyNewUnit" is "cups" then put card field "MyVolume"*16 into MyNewVolume if card field "MyNewUnit" is "liters" then put card field "MyVolume"*3.785306 into MyNewVolume end if if it is "quarts" then if card field "MyNewUnit" is "gallons" then put card field "MyVolume"*.25 into MyNewVolume if card field "MyNewUnit" is "Quarts" then put card field "MyVolume" into MyNewVolume if card field "MyNewUnit" is "pints" then put card field "MyVolume"*2 into MyNewVolume if card field "MyNewUnit" is "cups" then put card field "MyVolume"*4 into MyNewVolume if card field "MyNewUnit" is "liters" then put card field "MyVolume"*0.9463264 into MyNewVolume end if if it is "pints" then if card field "MyNewUnit" is "gallons" then put card field "MyVolume"*.125 into MyNewVolume if card field "MyNewUnit" is "Quarts" then put card field "MyVolume"*.5 into MyNewVolume if card field "MyNewUnit" is "pints" then put card field "MyVolume" into MyNewVolume if card field "MyNewUnit" is "cups" then put card field "MyVolume"*2 into MyNewVolume if card field "MyNewUnit" is "liters" then put card field "MyVolume"*0.4731632 into MyNewVolume end if if it is "cups" then if card field "MyNewUnit" is "gallons" then put card field "MyVolume"/16 into MyNewVolume if card field "MyNewUnit" is "Quarts" then put card field "MyVolume"/4 into MyNewVolume if card field "MyNewUnit" is "pints" then put card field "MyVolume"/2 into MyNewVolume if card field "MyNewUnit" is "cups" then put card field "MyVolume" into MyNewVolume if card field "MyNewUnit" is "liters" then put card field "MyVolume"*0.2365816 into MyNewVolume end if if it is "Liters" then if card field "MyNewUnit" is "gallons" then put card field "MyVolume"*0.2641794 into MyNewVolume if card field "MyNewUnit" is "Quarts" then put card field "MyVolume"*1.056718 into MyNewVolume if card field "MyNewUnit" is "pints" then put card field "MyVolume"*2.113436 into MyNewVolume if card field "MyNewUnit" is "cups" then put card field "MyVolume"*4.226872 into MyNewVolume if card field "MyNewUnit" is "liters" then put card field "MyVolume" into MyNewVolume end if if MyNewVolume <1 then set the numberFormat to 0.00 else if MyNewVolume <100 then set the numberFormat to 0.0 else set the numberFormat to 0 put MyNewVolume into card field "newVolume" end mouseup^  cREVGeneral QCLEARexdon mouseUp put empty into card field "MyVolume" put empty into card field "NewVolume" end mouseUp 6XClear Q myNewUnitKxon mouseup get me if it is "gallons" then put "quarts" into me else if it is "quarts" then put "pints" into me else if it is "pints" then put "cups" into me else if it is "cups" then put "liters" into me else if it is "liters" then put "gallons" into me else if it is empty then put "gal" into me if card field "myVolume" is not empty then send mouseup to button "convert" end mouseup T cREVGeneral $U pints Q origSizekxon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldWM ! 12 Q DrySizekxon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldsM ! 11.28 Q! FiredSizekxon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldM ! 10.44 Q" TotalPercentmon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield= ! 13.0 Q# DryPercentmon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield= ! 6.0 Q$ FiredPercentmon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield= ! 7.4Q%Find PercentagesxFon mouseUp set the numberformat to 0.0 if card field "OrigSize" >0 and card field "DrySize">0 then put (card field "origSize"-card field "DrySize")/\ card field "origSize"*100 into card field "DryPercent" end if if card field "OrigSize" >0 and card field "FiredSize">0 then put (card field "origSize"-card field "FiredSize")/\ card field "origSize"*100 into card field "TotalPercent" end if if card field "FiredSize" >0 and card field "DrySize">0 then put (card field "DrySize"-card field "FiredSize")/\ card field "DrySize"*100 into card field "FiredPercent" end if end mouseUp N Q& Find SizesExYon mouseUp set the numberformat to 0.00 if card field "OrigSize" >0 and card field "drySize">0\ and card field "FiredSize">0 then answer "Calculate size for which type of ware?" with\ "Wet" or "Dry" or "Fired" if card field "OrigSize" >0 then if cd fld "DryPercent">0 then put (100-card field "DryPercent")*Card field "OrigSize"/100\ into card field "DrySize" if cd fld "TotalPercent">0 then put (100-card field "TotalPercent")*Card field "OrigSize"/100\ into card field "FiredSize" exit mouseup end if if card field "drySize">0 then if cd fld "DryPercent">0 then put (100/(100-card field "dryPercent"))*Card field "DrySize"\ into card field "OrigSize" if cd fld "firedPercent">0 then put (100-card field "firedPercent")*Card field "DrySize"/100\ into card field "FiredSize" exit mouseup end if if card field "FiredSize">0 then if cd fld "TotalPercent">0 then put (100/(100-card field "TotalPercent"))*Card field "FiredSize"\ into card field "OrigSize" if cd fld "FiredPercent">0 then put (100/(100-card field "FiredPercent"))*Card field "FiredSize"\ into card field "DrySize" exit mouseup end if end mouseUp ~:Z Q'ClearAlon mouseUp repeat with i=1 to the number of card fields put empty into card field i end repeat end mouseUp &2  Q(clearC  xon mouseUp set the hilite of me to true put empty into card field "origSize" set the hilite of me to false end mouseUp Z @ Q)clearC  won mouseUp set the hilite of me to true put empty into card field "DrySize" set the hilite of me to false end mouseUp v @ Q*clearC  yon mouseUp set the hilite of me to true put empty into card field "FiredSize" set the hilite of me to false end mouseUp  @ Q+clearC  |on mouseUp set the hilite of me to true put empty into card field "Totalpercent" set the hilite of me to false end mouseUp  @ Q,clearC  zon mouseUp set the hilite of me to true put empty into card field "dryPercent" set the hilite of me to false end mouseUp @ Q-clearC  |on mouseUp set the hilite of me to true put empty into card field "FiredPercent" set the hilite of me to false end mouseUp @ Q.Hkxon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldw?  5 Q/Wkxon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldMw?  12 Q0Dkxon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldw?  4 Q1plasterkr  8 Lb 10oz Q2Waterkr  6 Lb 0ozQ3Rectangular MoldEon mouseUp if the short name of me is "Cylindrical Mold" then set the name of me to "Rectangular Mold" set the icon of button "MoldType" to "cube" put "Width" into card field "width" hide button "hide2" hide button "hide1" else if the short name of me is "Rectangular Mold" then set the name of me to "Spherical Mold" set the icon of button "MoldType" to "sphere" put "Diameter" into card field "width" show button "hide2" show button "hide1" else set the name of me to "Cylindrical Mold" set the icon of button "MoldType" to "cylinder" put "Diameter" into card field "width" show button "hide2" hide button "hide1" end if send mouseup to button "calculate" end mouseUp <  Q4 moldTypeC  4on mouseUp send mouseup to cd btn id 9 end mouseUp &"  Q5 CalculateMxon mouseUp Set the cursor to watch global Temp if the short name of button id 9 is "Rectangular Mold" then put card field "H"*card field "W"*card Field "D" into volume end if if the short name of button id 9 is "Cylindrical Mold" then put card field "H"*(card field "W"/2)*(card field "W"/2)*pi into volume end if if the short name of button id 9 is "Spherical Mold" then put ((card field "W"*card field "W"*card field "W")*pi)/6 into volume end if put volume/1728 into volume if volume<1 then set numberFormat to 0.00 else set numberformat to 0.0 put volume into card field "MyVolume" put volume*62 into tempPlaster put tempPlaster into temp doPounds put temp into card field "Plaster" if the short name of button id 19 is "lbs." then put tempPlaster*(cd fld "WaterRatio"/100) into temp doPounds put temp into card field "water" else set numberFormat to 0.0 put tempPlaster*(cd fld "WaterRatio"/100)/8 into temp if temp<1 then if temp<.5 then put temp*16 && "cups" into card field "water" else put temp*4 && "quarts" into card field "water" else put temp && "gal." into card field "water" end if end mouseUp On DoPounds global temp if temp >=100 then set numberformat to 0 put temp & " Lb" into temp else if temp<1 then set numberformat to 0.0 else set numberformat to 0 if trunc(temp)>0 then put trunc(temp) & " Lb " into Pounds else put empty into Pounds put (Pounds &\ (temp-(trunc(temp)))*16 & "oz") into temp end if end doPounds ^  Q6ClearExon mouseUp repeat with i=1 to the number of card fields if i=6 then next repeat put empty into card field i end repeat set the loc of btn "slider" to 390,227 put 70 into cd fld "WaterRatio" end mouseUp ,^  Q7WidthIGcL   WidthQ8hide1@AOdQ/ Q9hide2@AOeR0 Q: MyVolumem5  0.14Q;lbs.A on mouseup get the short name of me if it is "Lbs." then set the name of me to "gal." else set the name of me to "lbs." send mouseup to button "calculate" end mouseup]: Q< WaterRatioKh$  70 Q> MoleFormula1ha cREVGeneral O Al2O32SiO22H2O Q? MoleWeightkY O 258.161Q@ calculatee on mouseUp set the cursor to watch put empty into myFormula put empty into MultOffset put empty into templine put 1 into FirstChar put empty into newFirstChar put empty into MolecularWeight put empty into myMoleWeight put empty into chemical put empty into card field "moleWeight" put false into useMultiplier put empty into Multiplier put empty into howmuch put empty into myLine put empty into theNames put empty into card field "NamesFound" put false into SkipOne put line 1 of cd fld "moleFormula1" into MyFormula repeat with i=1 to the number of chars of MyFormula set cursor to busy find empty if skipOne is true then put false into skipOne next repeat end if if howMuch>=10 then put empty into howmuch next repeat end if if char i of MyFormula is in "()" then if char i of MyFormula is "(" then put (offset(")",MyFormula)+1) into MultOffset Delete char (MultOffset-1) of MyFormula put " " before char (MultOffset-1) of MyFormula if char MultOffset of MyFormula is in "1234567890" then put true into UseMultiplier put char MultOffset of MyFormula into Multiplier if char MultOffset+1 of MyFormula is in "1234567890" then put char MultOffset+1 of MyFormula after Multiplier end if end if put i+1 into firstChar next repeat end if if char i of MyFormula is in "- " then put false into UseMultiplier put i+1 into firstChar next repeat end if if char FirstChar of MyFormula is in "1234567890" -- we're looking for a 2SiO2-type format then put char FirstChar of MyFormula into multiplier if char (FirstChar-1) of MyFormula is "." then put "." before multiplier if char (FirstChar-1) of MyFormula is in "1234567890" then put char (FirstChar-1) of MyFormula before multiplier put True into UseMultiplier if char i+1 of MyFormula is in "- " then put i+2 into firstChar put true into skipOne next repeat else put i+1 into firstChar next repeat end if if char i of MyFormula is not in "abcdefghijklmnopqrstuvwxyz1234567890" then put i+1 into FirstChar next repeat end if if char i of MyFormula is in "1234567890" then if char (i+1) of MyFormula is empty then put char i of MyFormula into howMuch put i+1 into NewFirstChar else if char (i+1) of MyFormula is not in "1234567890" then put char i of MyFormula into howMuch put i+1 into NewFirstChar else put char i to (i+1) of MyFormula into howMuch put i+2 into NewFirstChar end if end if put char FirstChar to (i-1) of MyFormula into Chemical find empty find word chemical in fld "chemTable" put the foundLine into tempLine if the result is not empty then put "This is not a chemical format that I know." into cd fld "NamesFound" exit mouseup else select tempLine put item 2 of the selection into MyMoleWeight put word 2 of tempLine into MyLine if UseMultiplier is true then add MyMoleWeight*howMuch*multiplier to MolecularWeight put howMuch*multiplier && line MyLine of card field "ChemNames" \ & ", " after TheNames else add MyMoleWeight*howMuch to MolecularWeight put howMuch && line MyLine of card field "ChemNames" \ & ", " after TheNames end if put newFirstChar into FirstChar else if char (i+1) of MyFormula is not empty then if charToNum(char (i+1) of MyFormula)>95 then next repeat if char (i+1) of MyFormula is\ in "1234567890" then next repeat end if --put charToNum(char i of MyFormula) --wait 2 secs --if charToNum(char i of MyFormula)<95 --then put 1 into howMuch put char FirstChar to i of MyFormula into Chemical find empty find word chemical in field "chemTable" put the foundLine into tempLine if the result is not empty then put "This is not a chemical format that I know." into cd fld "NamesFound" exit mouseup else select tempLine put item 2 of the selection into MyMoleWeight put word 2 of tempLine into MyLine if UseMultiplier is true then add MyMoleWeight*howMuch*multiplier to MolecularWeight put howMuch*multiplier && line MyLine of card field "ChemNames" \ & ", " after TheNames else add MyMoleWeight*howMuch to MolecularWeight put howMuch && line MyLine of card field "ChemNames" \ & ", " after TheNames end if put i+1 into FirstChar --end if end if end repeat set the numberFormat to 0.000 put "The top formula contains: " & theNames into card field "NamesFound" put MolecularWeight into card field "moleWeight" end mouseUp Molecular Weight: cREVGeneral QAClearExon mouseup put empty into card field "MoleFormula" put empty into card field "MoleWeight" put empty into card field "MoleFormula2" put empty into card field "MoleWeight2" put empty into card field "NamesFound" end mouseup2< QB MoleFormula2hSelection Descriptionfalse O SrO QC MoleWeight2kY  cREVGeneral O 103.619QD Calculateeon mouseUp set the cursor to watch put empty into myFormula put empty into MultOffset put empty into templine put 1 into FirstChar put empty into newFirstChar put empty into MolecularWeight put empty into myMoleWeight put empty into chemical put empty into card field "moleWeight2" put false into useMultiplier put empty into Multiplier put empty into howmuch put empty into myLine put empty into theNames put empty into card field "NamesFound" put false into SkipOne put line 1 of cd fld "moleFormula2" into MyFormula repeat with i=1 to the number of chars of MyFormula set cursor to busy find empty if skipOne is true then put false into skipOne next repeat end if if howMuch>=10 then put empty into howmuch next repeat end if if char i of MyFormula is in "()" then if char i of MyFormula is "(" then put (offset(")",MyFormula)+1) into MultOffset Delete char (MultOffset-1) of MyFormula put " " before char (MultOffset-1) of MyFormula if char MultOffset of MyFormula is in "1234567890" then put true into UseMultiplier put char MultOffset of MyFormula into Multiplier if char MultOffset+1 of MyFormula is in "1234567890" then put char MultOffset+1 of MyFormula after Multiplier end if end if put i+1 into firstChar next repeat end if if char i of MyFormula is in "- " then put false into UseMultiplier put i+1 into firstChar next repeat end if if char FirstChar of MyFormula is in "1234567890" -- we're looking for a 2SiO2-type format then put char FirstChar of MyFormula into multiplier if char (FirstChar-1) of MyFormula is "." then put "." before multiplier if char (FirstChar-1) of MyFormula is in "1234567890" then put char (FirstChar-1) of MyFormula before multiplier put True into UseMultiplier if char i+1 of MyFormula is in "- " then put i+2 into firstChar put true into skipOne next repeat else put i+1 into firstChar next repeat end if if char i of MyFormula is not in "abcdefghijklmnopqrstuvwxyz1234567890" then put i+1 into FirstChar next repeat end if if char i of MyFormula is in "1234567890" then if char (i+1) of MyFormula is empty then put char i of MyFormula into howMuch put i+1 into NewFirstChar else if char (i+1) of MyFormula is not in "1234567890" then put char i of MyFormula into howMuch put i+1 into NewFirstChar else put char i to (i+1) of MyFormula into howMuch put i+2 into NewFirstChar end if end if put char FirstChar to (i-1) of MyFormula into Chemical find empty find word chemical in fld "chemTable" put the foundLine into tempLine if the result is not empty then put "This is not a chemical format that I know." into cd fld "NamesFound" exit mouseup else select tempLine put item 2 of the selection into MyMoleWeight put word 2 of tempLine into MyLine if UseMultiplier is true then add MyMoleWeight*howMuch*multiplier to MolecularWeight put howMuch*multiplier && line MyLine of card field "ChemNames" \ & ", " after TheNames else add MyMoleWeight*howMuch to MolecularWeight put howMuch && line MyLine of card field "ChemNames" \ & ", " after TheNames end if put newFirstChar into FirstChar else if char (i+1) of MyFormula is not empty then if charToNum(char (i+1) of MyFormula)>95 then next repeat if char (i+1) of MyFormula is\ in "1234567890" then next repeat end if --put charToNum(char i of MyFormula) --wait 2 secs --if charToNum(char i of MyFormula)<95 --then put 1 into howMuch put char FirstChar to i of MyFormula into Chemical find empty find word chemical in field "chemTable" put the foundLine into tempLine if the result is not empty then put "This is not a chemical format that I know." into cd fld "NamesFound" exit mouseup else select tempLine put item 2 of the selection into MyMoleWeight put word 2 of tempLine into MyLine if UseMultiplier is true then add MyMoleWeight*howMuch*multiplier to MolecularWeight put howMuch*multiplier && line MyLine of card field "ChemNames" \ & ", " after TheNames else add MyMoleWeight*howMuch to MolecularWeight put howMuch && line MyLine of card field "ChemNames" \ & ", " after TheNames end if put i+1 into FirstChar --end if end if end repeat set the numberFormat to 0.000 put "The top formula contains: " & theNames into card field "NamesFound" put MolecularWeight into card field "moleWeight2" end mouseUp Selection Descriptionfalse Molecular Weight: cREVGeneral QE ChemNamesax hon mousewithin set the scroll of field "ChemTable" to the scroll of me pass mousewithin end mousewithin\`}  O Aluminum Antimony Argon Arsenic Barium Beryllium Bismuth Boron Bromine Cadmium Calcium Carbon Cerium Cesium Chlorine Chromium Cobalt Columbium Copper Dysprosium Erbium Europium Fluorine Gadolinium Gallium Germanium Gold Hafnium Hydrogen Helium Holmium Indium Iodine Iridium Iron Krypton Lanthanum Lead Lithium Lutecium Magnesium Manganese Mercury Molybdenum Neodynium Neon Nickel Nitrogen Osmium Oxygen Phosphorus Palladium Platinum Potassium Praseodymium Protactinium Radium Radon Rhenium Rhodium Rubidium Ruthenium Samarium Scandium Selenium Silicon Silver Sodium Strontium Sulphur Tantalum Tellurium Terbium Thallium Thorium Tin Titanium Tungsten Uranium Vanadium Xenon Ytterbium Yttrium Zinc Zirconium R6 aa QF NamesFoundK 5  O 2The top formula contains: 1 Strontium, 1 Oxygen, QG more infoEx]on mouseUp lock screen show card field "moreInfo" unlock screen --with dissolve end mouseUp B.e QH moreInfoCxHon mouseup lock screen hide me unlock screen with dissolve end mouseup  Q O )Molecular Weights Help Click to Return Writing the chemical formula so that the Potter's Friend can understand what you mean is important. Things like spaces in your formula can be important! Luckily there are many different options. The following formulas for clay will all result in the same molecular weight. -Al2O3 2SiO2 2H2O or Al2O32SiO22H2O &(Macintosh: for "" type optionKey-8) 3Al2O3 (SiO2)2 2H20 or Al2O3 (SiO2)2 2(H2O) 4Al2O3 (SiO2)2 (H2O)2 or Al2O3-2SiO2-2H2O QI Today's Date 4   $Today is Friday, September 24, 2004 QJStartkhgQj  7/24/2002 QKFinishkhk  3/9/2003 QLhowLongI}  228 daysQMClearExlon mouseUp repeat with i=2 to the number of card fields put empty into card field i end repeat end mouseUp :T QN start-todayI}  69 days QO finish-todayI}  297 days QP StartDay  l  !You are starting on a Wednesday. QQ FinishDay     *You will finish on Sunday, March 9, 2003.QR CalculateMx"on mouseUp if card field "start" is empty and card field "finish" is empty then answer "Please enter a starting or finishing date." exit mouseup end if get card field "start" convert it to seconds put it into startingTime convert it to long date put "You are starting on a " & item 1 of it & "."\ into card field "startday" if card field "AddDays" is not empty then get card field "addDays" put (it*86400)+StartingTime into FinishingTime else if card field "finish" is not empty then get card field "finish" convert it to seconds put it into FinishingTime else Answer "Please enter a Ending Date or Days to Add." exit mouseup end if put FinishingTime into TheFinish convert FinishingTime to long date put "You will finish on " & FinishingTime & "."\ into card field "finishday" put abs(TheFinish-startingTime)/86400 && "days" into card field "HowLong" convert the short date to seconds put abs(it-startingTime)/86400 && "days" into card field "start-today" put abs(it-TheFinish)/86400 && "days" into card field "finish-today" end mouseUp T  QSAddDayskhk   QTMore Time Calculations >@E _on mouseUp go next end mouseUpH  QUStartkhaQb  3:46 PM QVFinishkhab  7:34 PM QWhowLongkha  3.80 HoursQXClearExTon mouseUp repeat with i=1 to 4 put empty into card field i end repeat end mouseUp V$ QY CalculateMx on mouseUp put empty into elapsedTime if card field "start" is not empty and card field "finish" is not empty then if ":" is not in card field "start" then repeat with i=1 to the number of chars of card field "start" if char i of card field "start" is not in "1234567890" then put i into whichChar exit repeat else put i+1 into whichChar end repeat put ":00" before char whichChar of card field "start" end if if ":" is not in card field "finish" then repeat with i=1 to the number of chars of card field "finish" if char i of card field "finish" is not in "1234567890" then put i into whichChar exit repeat else put i+1 into whichChar end repeat put ":00" before char whichChar of card field "finish" end if if "M" is not in card field "start" then answer "Did you start in the morning or afternoon?"\ with "Morning" or "Afternoon" or "Cancel" if it is "cancel" then exit mouseup if it is "Morning" then put "AM" after card field "start" else put "PM" after card field "start" end if if "M" is not in card field "finish" then answer "Did you finish in the morning or afternoon?"\ with "Morning" or "Afternoon" or "Cancel" if it is "cancel" then exit mouseup if it is "Morning" then put "AM" after card field "finish" else put "PM" after card field "finish" end if get card field "start" convert it to seconds put it into startingTime get card field "finish" convert it to seconds put it into FinishingTime put card field "start" into myStart delete last char of MyStart put last char of myStart into MyStart put card field "finish" into MyFinish delete last char of MyFinish put last char of MyFinish into MyFinish if MyStart is MyFinish then if char 1 to (offset(":", card field "Start")-1) of \ card field "start" > char 1 to (offset(":", card field "Finish")-1) of \ card field "finish" then add 86400 to FinishingTime else if char 1 to (offset(":", card field "Finish")-1) of \ card field "finish" is "12" then add 86400 to FinishingTime end if if card field "start" contains "PM" and card field "finish"\ contains "AM" then add 86400 to FinishingTime put Abs(FinishingTime-startingTime) into ElapsedTime end if set the numberformat to 0.00 if ElapsedTime>0 then if ElapsedTime<360 then put ElapsedTime/60 && "Minutes" into card field "HowLong" else put ElapsedTime/3600 && "Hours" into card field "HowLong" else put cd fld "HowLong"*3600 into ElapsedTime if ElapsedTime>0 and Card field "rate">0 then put elapsedTime/3600*Card field "rate" into card field "cost" else answer "Please enter time and rate amounts." end mouseUp @Z$  QZNowE=on mouseUp put the time into card field "start" end mouseUp U)  Q[NowE>on mouseUp put the time into card field "Finish" end mouseUp )  Q\costIF   19.00 Q]ratemon closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield>  5Q^ Old MaximExson mousedown global WiseWords if wiseWords is empty then put card field "sayings" into WiseWords put random(the number of lines of wiseWords)\ into MyLine put line MyLine of WiseWords into line 2 of card field "Maxim" Show card field "Maxim" delete line MyLine of WiseWords end mousedown on mouseUp put empty into card field "maxim" hide card field "Maxim" end mouseUp .\! Q_maximx'on mouseup hide me end mouseupO  Q`sayings!h#Q  Time is Money #There is no time like the present. JTime flies like an arrow, fruit flies like a banana. Groucho Marx VAnd Time, a maniac scattering dust, And Life, a Fury slinging Flame...Tennyson LYou can ask me for anything you like, except time. Napoleon Bonaparte RTime dissipates to shining ether the solid angularity of facts. Emerson BI wasted time, and now time doth waste me.... Shakespeare A stitch in time saves nine. 6The times they are a changin'..... Bob Dylan .What time is it kids? Buffalo Bob Time and tide wait for no man. S Time is on my side... Mick Jagger/Keith RichardsR5 a$O Qa Today's Date 4  $Today is Friday, September 24, 2004 QbColor1 m"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield,'  3 QcIngred1 i"Z  Iron oxideQd CalculateMxon mouseUp put empty into card field "lineBlend" repeat with i =1 to the number of chars of card field "color1" set the cursor to busy if char i of card field "color1" is not in "1234567890." then answer "Please enter a number." select line 1 of card field "Color1" exit mouseup end if end repeat repeat with i =1 to the number of chars of card field "color2" set the cursor to busy if char i of card field "color2" is not in "1234567890." then answer "Please enter a number." select line 1 of card field "Color2" exit mouseup end if end repeat set the numberFormat to 0.0 repeat with i= 1 to 9 set the cursor to busy if card field "Color1" is not empty then put (card field "Color1"/10)*(10-i) & "%" && card field "Ingred1" \ into line (i*2)-1 of card field "LineBlend" if card field "Color2" is not empty then put (card field "Color2"/10)*i & "%" && card field "Ingred2" \ into line (i*2) of card field "LineBlend" end repeat end mouseUp 0Z  Qe LineBlendI 0&  2.7% Iron oxide 0.2% Cobalt Carbonate 2.4% Iron oxide 0.4% Cobalt Carbonate 2.1% Iron oxide 0.6% Cobalt Carbonate 1.8% Iron oxide 0.8% Cobalt Carbonate 1.5% Iron oxide 1.0% Cobalt Carbonate 1.2% Iron oxide 1.2% Cobalt Carbonate 0.9% Iron oxide 1.4% Cobalt Carbonate 0.6% Iron oxide 1.6% Cobalt Carbonate 0.3% Iron oxide 1.8% Cobalt Carbonate QfColor2 m"on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield-(  2 QgIngred2 i"[  Cobalt CarbonateQh Export ChartExon mouseUp put char 1 to 11 of card field "ingred1" & "-" & char 1 to 11 of\ Card field "ingred2" && "Blend.txt" into myFileName ask file "Save Line Blend text file as:" with myFileName if the result is not empty then exit mouseup put it into myFileName set the cursor to watch put "11 Tile Line Blend of " & card field "Ingred1"\ & " and " & card field "Ingred2" & return & return into table Put "NOTE: For a 100 gram batch of Base Glaze the percentages" & return &\ "shown can be read as grams of colorant." & return & return after Table put "Test Tile # 1" & return &\ "Add these colorants to your base glaze:" & return after Table Put card field "color1" & "%" && card field "Ingred1"\ & return & "0.0% " & card field "Ingred2" & return & return\ after Table repeat with i=2 to 10 put "Test Tile #" & i & return &\ "Add these colorants to your base glaze:" & return after Table put line ((i*2)-3) of card field "lineBlend" & return &\ line ((i*2)-2) of card field "lineBlend" & return & return\ after table end repeat put "Test Tile # 11" & return &\ "Add these colorants to your base glaze:" & return after Table Put "0.0% " && card field "Ingred1"\ & return & card field "color2" & "%" & card field "Ingred2"\ & return & return after Table open File myFileName for text write write table to file myFileName close file myFileName end mouseUp >.h cREVGeneral Qi percentageK4  Qj1@E_ on mousewithin global A,B,C put 100 into A put 0 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave lW  Qk2@E_ on mousewithin global A,B,C put 80 into A put 20 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ]u F Ql3@E_ on mousewithin global A,B,C put 80 into A put 0 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ~v G Qm4@E_ on mousewithin global A,B,C put 60 into A put 40 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave J H Qn5@E_ on mousewithin global A,B,C put 60 into A put 20 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave m I Qo6@E_ on mousewithin global A,B,C put 60 into A put 0 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  J Qp7@E_ on mousewithin global A,B,C put 40 into A put 60 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave 7 K Qq8@E_ on mousewithin global A,B,C put 40 into A put 40 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ^ L Qr9@E_ on mousewithin global A,B,C put 40 into A put 20 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  M Qs10@E_ on mousewithin global A,B,C put 40 into A put 0 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  N Qt11@E_ on mousewithin global A,B,C put 20 into A put 80 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ' O Qu12@E_ on mousewithin global A,B,C put 20 into A put 60 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave J Q Qv13@E_ on mousewithin global A,B,C put 20 into A put 40 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave m R Qw14@E_ on mousewithin global A,B,C put 20 into A put 20 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  S Qx15@E_ on mousewithin global A,B,C put 20 into A put 0 into B put 80 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  T Qy16@E_ on mousewithin global A,B,C put 0 into A put 100 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  U Qz17@E_ on mousewithin global A,B,C put 0 into A put 80 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave 8 V Q{18@E_ on mousewithin global A,B,C put 0 into A put 60 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave \ W Q|19@E_ on mousewithin global A,B,C put 0 into A put 40 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  X Q}20@E_ on mousewithin global A,B,C put 0 into A put 20 into B put 80 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  Y Q~21@E_ on mousewithin global A,B,C put 0 into A put 0 into B put 100 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  Z QIngredA k on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldhG  1 Q IngredientA i Go  Rutile QIngredB m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield   2 Q IngredientB i o  Cobalt Carbonate QIngredC m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldo"  5 Q IngredientC i i  Black Iron OxideQ Export ChartExon mouseUp put "21 Tile Triaxial.txt" into myFileName ask file "Save Triaxial Blend text file as:" with myFileName if the result is not empty then exit mouseup put it into myFileName put "21 Tile Triaxial Blend Table" & return & return into Table Put "NOTE: For a 100 gram batch of Base Glaze the percentages" & return &\ "shown can be read as grams of colorant." & return & return after Table put empty into TileNumber repeat with A=5 down to 0 put (5-A) into OtherPercent repeat with B= (5-A) down to 0 set the cursor to busy set the numberFormat to 0 add 1 to tileNumber put "Test Tile #" && TileNumber & return after Table put "Add these colorants to your Base Glaze:" & return after Table set the numberFormat to 0.0 put A/5*card field "IngredA" && "%" && card field "ingredientA"\ && return after Table put B/5*card field "IngredB" && "%" && card field "ingredientB"\ && return after Table put OtherPercent-B into C put C/5*card field "IngredC" && "%" && card field "ingredientC"\ && return & return after Table end repeat end repeat open file myFileName for text write write Table to file myFileName close file myFileName put empty into message hide message end mouseUp ,d cREVGeneral Q percentageK3  Q1@E_ on mousewithin global A,B,C put 100 into A put 0 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave iV  Q2@E_ on mousewithin global A,B,C put 90 into A put 10 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave _h F Q3@E_ on mousewithin global A,B,C put 90 into A put 0 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave sh G Q4@E_ on mousewithin global A,B,C put 80 into A put 20 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave Uy H Q5@E_ on mousewithin global A,B,C put 80 into A put 10 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave iy I Q6@E_ on mousewithin global A,B,C put 80 into A put 0 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ~y J Q7@E_ on mousewithin global A,B,C put 70 into A put 30 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave J K Q8@E_ on mousewithin global A,B,C put 70 into A put 20 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave _ L Q9@E_ on mousewithin global A,B,C put 70 into A put 10 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave t M Q10@E_ on mousewithin global A,B,C put 70 into A put 0 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  N Q11@E_ on mousewithin global A,B,C put 60 into A put 40 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave @ O Q12@E_ on mousewithin global A,B,C put 60 into A put 30 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave T Q Q13@E_ on mousewithin global A,B,C put 60 into A put 20 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave i R Q14@E_ on mousewithin global A,B,C put 60 into A put 10 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ~ S Q15@E_ on mousewithin global A,B,C put 60 into A put 0 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  T Q16@E_ on mousewithin global A,B,C put 50 into A put 50 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave 5 U Q17@E_ on mousewithin global A,B,C put 50 into A put 40 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave J V Q18@E_ on mousewithin global A,B,C put 50 into A put 30 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave _ W Q19@E_ on mousewithin global A,B,C put 50 into A put 20 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave t X Q20@E_ on mousewithin global A,B,C put 50 into A put 10 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  Y Q21@E_ on mousewithin global A,B,C put 50 into A put 0 into B put 50 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  Z Q22@E_ on mousewithin global A,B,C put 40 into A put 60 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave * [ Q23@E_ on mousewithin global A,B,C put 40 into A put 50 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ? ^ Q24@E_ on mousewithin global A,B,C put 40 into A put 40 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave U _ Q25@E_ on mousewithin global A,B,C put 40 into A put 30 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave j ` Q26@E_ on mousewithin global A,B,C put 40 into A put 20 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  a Q27@E_ on mousewithin global A,B,C put 40 into A put 10 into B put 50 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  b Q28@E_ on mousewithin global A,B,C put 40 into A put 0 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  c Q29@E_ on mousewithin global A,B,C put 30 into A put 70 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  d Q30@E_ on mousewithin global A,B,C put 30 into A put 60 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave 5 e Q31@E_ on mousewithin global A,B,C put 30 into A put 50 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave I f Q32@E_ on mousewithin global A,B,C put 30 into A put 40 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave _ g Q33@E_ on mousewithin global A,B,C put 30 into A put 30 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave t h Q34@E_ on mousewithin global A,B,C put 30 into A put 20 into B put 50 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  i Q35@E_ on mousewithin global A,B,C put 30 into A put 10 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  j Q36@E_ on mousewithin global A,B,C put 30 into A put 0 into B put 70 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  k Q37@E_ on mousewithin global A,B,C put 20 into A put 80 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  l Q38@E_ on mousewithin global A,B,C put 20 into A put 70 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave + m Q39@E_ on mousewithin global A,B,C put 20 into A put 60 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave @ n Q40@E_ on mousewithin global A,B,C put 20 into A put 50 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave T o Q41@E_ on mousewithin global A,B,C put 20 into A put 40 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave i p Q42@E_ on mousewithin global A,B,C put 20 into A put 30 into B put 50 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ~ q Q43@E_ on mousewithin global A,B,C put 20 into A put 20 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  r Q44@E_ on mousewithin global A,B,C put 20 into A put 10 into B put 70 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  s Q45@E_ on mousewithin global A,B,C put 20 into A put 0 into B put 80 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  t Q46@E_ on mousewithin global A,B,C put 10 into A put 90 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  u Q47@E_ on mousewithin global A,B,C put 10 into A put 80 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  v Q48@E_ on mousewithin global A,B,C put 10 into A put 70 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave 5 w Q49@E_ on mousewithin global A,B,C put 10 into A put 60 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave J x Q50@E_ on mousewithin global A,B,C put 10 into A put 50 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ` y Q51@E_ on mousewithin global A,B,C put 10 into A put 40 into B put 50 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave t z Q52@E_ on mousewithin global A,B,C put 10 into A put 30 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  { Q53@E_ on mousewithin global A,B,C put 10 into A put 20 into B put 70 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  | Q54@E_ on mousewithin global A,B,C put 10 into A put 10 into B put 80 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  } Q55@E_ on mousewithin global A,B,C put 10 into A put 0 into B put 90 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave  ~ Q56@E_ on mousewithin global A,B,C put 0 into A put 100 into B put 0 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave   Q57@E_ on mousewithin global A,B,C put 0 into A put 90 into B put 10 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave   Q58@E_ on mousewithin global A,B,C put 0 into A put 80 into B put 20 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave +  Q59@E_ on mousewithin global A,B,C put 0 into A put 70 into B put 30 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave A  Q60@E_ on mousewithin global A,B,C put 0 into A put 60 into B put 40 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave U  Q61@E_ on mousewithin global A,B,C put 0 into A put 50 into B put 50 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave j  Q62@E_ on mousewithin global A,B,C put 0 into A put 40 into B put 60 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave ~  Q63@E_ on mousewithin global A,B,C put 0 into A put 30 into B put 70 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave   Q64@E_ on mousewithin global A,B,C put 0 into A put 20 into B put 80 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave   Q65@E_ on mousewithin global A,B,C put 0 into A put 10 into B put 90 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave   Q66@E_ on mousewithin global A,B,C put 0 into A put 0 into B put 100 into C doBlend end mousewithin on mouseLeave put empty into card field "percentage" end mouseLeave   QIngredA k on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldgG  100 Q IngredientA i Go  Nepheline Syenite QIngredB m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield   100 Q IngredientB i o  Whiting QIngredC m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldl&  100 Q IngredientC i i  SilicaQ Export ChartEx"on mouseUp put "66 Tile Triaxial.txt" into myFileName ask file "Save Triaxial Blend text file as:" with myFileName if the result is not empty then exit mouseup put it into myFileName put "66 Tile Triaxial Blend Table" & return & return into Table Put "NOTE: For a 100 gram batch of Base Glaze the percentages" & return &\ "shown can be read as grams of colorant." & return & return after Table put empty into TileNumber repeat with A=10 down to 0 put 10-A into OtherPercent repeat with B= (10-A) down to 0 set the cursor to busy set the numberFormat to 0 add 1 to tileNumber put "Test Tile #" && TileNumber & return after Table put "Add these colorants to your Base Glaze:" & return after Table set the numberFormat to 0.0 put A/10*card field "IngredA" && "%" && card field "ingredientA"\ && return after Table put B/10*card field "IngredB" && "%" && card field "ingredientB"\ && return after Table put OtherPercent-B into C put C/10*card field "IngredC" && "%" && card field "ingredientC"\ && return & return after Table end repeat end repeat open file myFileName for text write write Table to file myFileName close file myFileName put empty into message hide message end mouseUp 1^ cREVGeneral Q Ingredient5 m v   QAmount5 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldv2   Q Ingredient6 m    QAmount6 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2   Q Ingredient7 m   QAmount7 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  Q Ingredient8 m   QAmount8 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  Q Ingredient9 m   QAmount9 m 2  Q Ingredient10 m   Q Amount10 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  Q Ingredient11 m   Q Amount11 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  Q Ingredient12 m   Q Amount12 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  Q Ingredient13 m   Q Amount13 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  Q Ingredient14 m   Q Amount14 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2  QName2 i$  Majolica Q 2Ingredient1 m 8  frit 3195 Q 2Amount1 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield82   41.18 Q 2Ingredient2 m H!  frit 3124 Q 2Amount2 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldH2"  51.76 Q 2Ingredient3 m W#  EPK Q 2Amount3 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldW2$  3.53 Q 2Ingredient4 m g%  Kona F-4 feldspar Q 2Amount4 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldg2&  3.53 Q 2Ingredient5 m v'  zircopax Q 2Amount5 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefieldv2(  4.71 Q 2Ingredient6 m )  tin Q 2Amount6 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2*  12.94Q Delete #1E  on mouseUp answer "Clear glaze recipe #1?" with "Clear" or "Cancel" if it is "cancel" then exit mouseup repeat with i=1 to 21 put empty into cd fld id i end repeat put empty into cd fld "Total1" end mouseUp B; cREVGeneral QBlendEx"on mouseUp set cursor to watch put "copper oxide, copper carbonate, red iron oxide, black iron oxide, rutile, cobalt carbonate, cobalt oxide, bentonite, zircopax, ultrox, superpax, tin oxide,"\ & " chrome oxide, chromium oxide, chromic oxide, titanium dioxide, manganese carbonate, manganese dioxide, red copper oxide, black copper oxide" \ & " mason stain, commercial stain, nickel oxide, nickel carbonate, vanadium pentoxide, iron chromate, water, copper oxide red, copper oxide black, "\ & " cmc gum arabic, macaloid, epsom salts, methocel, black copper ox, red copper ox, copper ox, iron oxide red, iron oxide black," \ & " zirconium oxide, praseodymium oxide, yellow ochre, yellow ocher" into colorantList --put "Creating glaze blend." put empty into ingredList1 put empty into ingredList2 put empty into Amounts1 put empty into Amounts2 put empty into TotAmt1 put empty into TotAmt2 -- repeat with i=2 to 29 -- get cd fld i -- if it is empty then exit repeat -- if i/2-(trunc(i/2))=0 -- then put it & return after ingredList1 -- else -- put it & return after Amounts1 -- add it to totAmt1 -- end if -- end repeat repeat with i=1 to 14 put cd fld ("ingredient" & i) & return after ingredList1 get cd fld ("amount" & i) put it & return after Amounts1 add it to totAmt1 put cd fld ("2ingredient" & i) & return after ingredList2 get cd fld ("2amount" & i) put it & return after Amounts2 add it to totAmt2 end repeat put totAmt1 into cd fld "Total1" if TotAmt1<>100 then repeat with i=1 to the number of lines of Amounts1 put ((Line i of Amounts1)/TotAmt1)*100 into line i of Amounts1 end repeat end if -- repeat with i=31 to 58 -- get cd fld i -- if it is empty then exit repeat -- if i/2-(trunc(i/2))=0 -- then -- put it & return after Amounts2 -- add it to totAmt2 -- else -- put it & return after ingredList2 -- end if -- end repeat put totAmt2 into cd fld "Total2" if TotAmt2<>100 then repeat with i=1 to the number of lines of Amounts2 put ((Line i of Amounts2)/TotAmt2)*100 into line i of Amounts2 end repeat end if put cd fld "pct1" into pct1 put cd fld "pct2" into pct2 set numberFormat to 0.0 repeat with i=1 to the number of lines of amounts1 put pct1*(line i of amounts1)/100 into line i of amounts1 end repeat repeat with i=1 to the number of lines of amounts2 put pct2*(line i of amounts2)/100 into line i of amounts2 end repeat put ingredList1 & IngredList2 into AllIngreds put amounts1 & amounts2 into AllAmounts put AllIngreds into TempIngredients repeat with i=20 down to 1 if line i of AllIngreds is empty then next repeat repeat with x=1 to (i-1) if line i of AllIngreds is line x of TempIngredients then add line i of AllAmounts to line x of AllAmounts delete line i of AllAmounts delete line i of AllIngreds exit repeat end if end repeat if line i of AllAmounts<=0 then delete line i of AllAmounts delete line i of AllIngreds end if end repeat put empty into AmtTotal repeat with i= 1 to the number of lines of AllAmounts add line i of AllAmounts to AmtTotal end repeat repeat with i=the number of lines of AllIngreds down to 1 if line i of AllIngreds is in ColorantList then put line i of AllIngreds & return after AllIngreds put line i of AllAmounts & return after AllAmounts delete line i of AllIngreds delete line i of AllAmounts end if end repeat repeat with i= the number of lines of AllIngreds down to 1 if line i of allIngreds is empty then delete line i of AllIngreds delete line i of AllAmounts end if if line i of allAmounts is empty and line i of AllIngreds contains "Total" then delete line if of AllIngreds end if end repeat lock screen show cd fld "NewIngreds" show cd fld "NewAmounts" show cd fld "IngredTitle" show btn "Done" show btn "Save Blend" put "Blend of " & pct1 & "%" && cd fld "name1" &&\ "and" && pct2 & "%" && cd fld "name2" into line 1 of\ cd fld "IngredTitle" put " Ingredients Amounts " into line 2 of cd fld "IngredTitle" put AllIngreds into cd fld "NewIngreds" put return & "TOTAL" after cd fld "NewIngreds" put AllAmounts into cd fld "NewAmounts" put return & AmtTotal after cd fld "NewAmounts" unlock screen end mouseUp >@1 cREVGeneral QHelpEx,on mouseUp show cd fld "about" end mouseUp "@= Q Delete #2E  on mouseUp answer "Clear glaze recipe #2?" with "Clear" or "Cancel" if it is "cancel" then exit mouseup repeat with i=22 to 42 put empty into cd fld id i end repeat put empty into cd fld "Total2" end mouseUp (A: QImport a Recipe "on mouseUp global gGlazeName,gIngredList,gIngredAmounts,gColorList,gColorAmts answer "Put the current glaze into glaze 1 or 2?" with "Cancel" or "1" or "2" put gIngredList & return & gColorList into myIngreds put gIngredAmounts & gColorAmts into myAmts put empty into myTotal if it is "1" then repeat with i=1 to 14 put empty into cd fld ("Ingredient" & i) put empty into cd fld ("Amount" & i) end repeat put gGlazeName into cd fld "name1" repeat with i=1 to the number of lines of myIngreds if line i of myIngreds is not empty then put line i of myIngreds into cd fld ("Ingredient" & i) if line i of myAmts is not empty then put line i of myAmts into cd fld ("Amount" & i) add cd fld ("amount" & i) to myTotal end repeat put myTotal into cd fld "total1" else if it is "2" then repeat with i=1 to 14 put empty into cd fld ("2Ingredient" & i) put empty into cd fld ("2Amount" & i) end repeat put gGlazeName into cd fld "name2" repeat with i=1 to the number of lines of myIngreds if line i of myIngreds is not empty then put line i of myIngreds into cd fld ("2Ingredient" & i) if line i of myAmts is not empty then put line i of myAmts into cd fld ("2Amount" & i) add cd fld ("2amount" & i) to myTotal end repeat put myTotal into cd fld "total2" end if end mouseUp z> cREVGeneral R 2Ingredient7 m ?  bentonite R 2Amount7 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2@  2.35 R 2Ingredient8 m A  R 2Amount8 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2B  R 2Ingredient9 m C  R 2Amount9 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2D  R2Ingredient10 m E  R 2Amount10 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2F  R2Ingredient11 m G  R 2Amount11 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2H  R 2Ingredient12 m I  R 2Amount12 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2J  R 2Ingredient13 m K  R 2Amount13 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2L  R2Ingredient14 m M  R 2Amount14 m on closefield get me repeat with i=1 to the number of chars of it if char i of it is not in "1234567890." then answer "The amount entered is not a number." with "OK" select line 1 of me exit repeat end if end repeat end closefield2N  RTotal1M  2,  120.72 RTotal2M  2-  120 RPct1M _B/  50 RPct2M  C#0  50 R IngredTitlecx %on mouseUp hideNewGlaze end mouseUp  .J:3  2Blend of 50% Batz Majolica Glaze and 50% Majolica " Ingredients Amounts RaboutAx on mouseup hide me end mouseup,<  How to use the Glaze Blender  1. Type two glaze recipes in the designated fields. Use the tab key or return to move from field to field when typing. Don't worry if the recipes aren't in percentage format, as the blender will do that for you when it blends the two recipes. NOTE: Import recipes by clicking the "Import a Recipe" button. This will import whatever glaze is in an open HyperGlaze window behind the Glaze Blender. Holding down the Option [ALT] key while clicking will import the base glaze and the colorants. l2. Choose a blending ratio by clicking the red arrow-pointer in the blender below to set a ~ percentage for each glaze. Hold the mouse button down and move the mouse from side to side to move the sliding pointer. 3. When you have chosen a ratio for the blend, click the "Blend" button. You'll see the final blend in a new window on the screen. The blender will add together identical ingredients so the final blended recipe will be simplified. e4. If you want to save the blend, click the "Save Blend" button. You have two choices - Save as Text and Save as Glaze Card. Save as Text makes a text file you can open with a word processor or any text reader or word processor. WSave as Glaze Card makes a new glaze card in Glazes, and saves the blend to that card. %----- CLICK THIS FIELD TO HIDE ----- R NewIngredseh \4  Ferro Frit 3124 EPK Barium Carbonate frit 3195 frit 3124 Kona F-4 feldspar bentonite tin Zircopax TOTAL R NewAmountseh \,5  35.7 5.8 1.4 17.2 21.6 1.5 1.0 5.4 10.6 100.2R Save BlendE8on mouseUp saveBlend -- in the card script end mouseUp W8 cREVGeneral RDonex%on mouseUp hideNewGlaze end mouseUp :V6 cREVGeneral Rabouti-on mouseup go to card "index" end mouseup b cREVGeneral X While I've gone over it all carefully, this free utility could still contain some bugs - use at your own risk! If you have suggestions, improvements, or corrections please send them to the author at the address below. 9Tell your ceramist friends about HyperGlaze X - the least expensive, easiest to use glaze software. HyperGlaze uses a visual approach to storing, calculating, and reformulating glazes and clays, making it perfect for artists and all levels of ceramics students. For details about HyperGlaze X software write to: R  "~ X 3This utiltiy stack, the Potter's Friend, is free, !but is not in the Public Domain. 3Only the Potter's Friend stack may be given away. JNo fee of any kind may be charged. It may not be sold without permission. ZUse outside of HyperGlaze X will require the free player utility from Runtime Revolution: www.runrev.com -All rights reserved worldwide by the author. R  T4 X Richard Burkett 6354 Lorca Drive San Diego, CA 92115 R  U cREVGeneral X % *THIS STACK IS ALWAYS IN PROGRESS*  .Potter's Friendi N Selection DescriptionfalseRprevC #on mouseUp go prev end mouseUp / F cREVGeneral R ChemTable)h )V  P  ! $U " ' + ` O Al,26.9815 Sb,121.75 A,39.948 As,74.9216 Ba,137.34 Be,9.02 Bi,208.98 B,10.811 Br,79.916 Cd,112.41 Ca,40.08 C,12.01115 Ce,140.12 Cs,132.905 Cl,35.453 Cr,51.996 Co,58.9332 Cb,92.91 Cu,63.54 Dy,162.46 Er,167.26 Eu,151.96 F,18.9984 Gd,157.25 Ga,69.72 Ge,72.59 Au,196.967 Hf,178.49 H,1.00797 He,4.0026 Ho,164.93 In,114.76 I,126.92 Ir,193.1 Fe,55.847 Kr,83.7 La,138.92 Pb,207.19 Li,6.939 Lu,174.99 Mg,24.312 Mn,54.938 Hg,200.61 Mo,95.95 Nd,144.27 Ne,20.183 Ni,58.71 N,14.008 Os,190.2 O,15.9994 P,30.9738 Pd,106.7 Pt,195.23 K,39.102 Pr,140.907 Pa,231 Ra,226.05 Rn,222 Re,186.31 Rh,102.91 Rb,85.48 Ru,101.7 Sm,150.43 Sc,45.10 Se,78.96 Si, 28.086 Ag,107.880 Na,22.9898 Sr,87.62 S,32.064 Ta,180.88 Te,127.61 Tb,159.2 Tl.204.39 Th,169.4 Sn,118.69 Ti,47.90 W,183.85 U,238.07 V,50.942 Xe,131.3 Yb,173.04 Y,88.92 Zn,65.37 Zr,91.22      X R-`@W R!Cone)x'--on mouseup -- hide me --end mouseup!Y2  P  ! $U " ' + ` O      X R.`@i0 R"infoKhR P  Type the mold size (in inches) into the boxes and click the button for a spherical, cylindrical or a rectangular mold. The normal ratio of water to plaster is 70 to 100 for the most common molding plasters. Click on "Water:" * to change between liquid & weight units. ! Enter the original size of the clay sample, the size after drying, and the final fired size into the appropriate boxes to find percentages. OR eǯk@3o!#(0r{O5߯ps/ !Ww!MXIPO'w:Β+C& 5;* o7~xwTRK@M{fK-,LM{m5Q~?9nz쩦b|$'<lNZ8Ӛ~d{;}O"șo~t=EmlxO`}_a.Cx^RWbkĵmС3?6 *_O? 7~e \<(*b><_ }ڴSs Ӑ 5pl. Ѷ9 HЃ$M]KLj/ixs{^{pU\%ӗ:t5$4w@bO> ؓ Xp* E[[-%tƯQ OԹ-8'RaN,o s-3sW'nG&^-}Kiw kɌYj>b/+7*0]: M5uR1פ=y?!:;3 :hFJLiĤO zk`i f|I1z`b]8#G/iˁ?^"[+;-@2%݊_{pk ~'9 +H=Ʃ;[)=>*]/bII y" =`oxI_t[Ob =ٶ5sFOɻW%v[WuKP\&3=uYAP02mG7.W0E&{gkS4;=:! Orcs7It] $R#?ܟ P >/(q]tpJlKۀJݹ>/0 Ƈ%ORw p;U/ XgUSow( e3<>W;~_wmUwr'F,Q" Z`ؔ eG匐HhH&Hr'-ǀ]E΀z?P%Jݹ4`KtzWӿG"2EH~Fu'?A%, [dSݢkoR}8-podAܷ;4@ MmI1_V ]Bs29&v%LU 9P%fOɾT?er, Q^M8~O,# g- mI@~ǹWdv554mq>ԝ/'D}[ݚqd9Rwn)_40Pzސywuϫ<#mT47+=sӟgd d<& ,@*yzS =7k @2W`&P`@)(a]Cw,κ_-b roDu0苸jҺ=~-ȦMsX8넦)w. e?Uu%GOp~.-a!*H@"%@6^ q@S!H)T[90E@PޱQ$t~hL"b0DG:|D % HB[/G &[֙ .meߋ Fc7ytdIeK{9dV}D Mm4"'{yCWTJE )H]vHdW9JU[`k+)ռ},@LCڈ@2KʮOC*}6d:2>Ł@vԏ &_UhJļv.|񳆩G9qqigB-j*qͣE,ȦہlN€!d⃿ >y>,YkGI\WF\ZQo%XxdIH=ʉv|;swoéo wFM?DTQL$]S9Q2xZ=nW;Jpw+1v =Ǿp% oVY&M3Za;UM.7H=ʉ qꈨM߮6(dT}J^NOw<3r}Nj?WjGiAR%dsElHB/D^t<*WEz~ {(.P\@q (.P\@q (.P\@q (.P\@q (.P\@q (.P\@q (.P\@q (.P\@q (.P\@q5}?S.12#fEIENDB` D  Ь?8x8<8x?xx8 <;w|?0?8 ?&<80wsps%Ç88wspq"Ç88wppÇ880w8}p pÇ88w8ps8qÇ888sxy =Ǟpsǀ%Ç?>??8pq Ç? x<8p|8в8ם8в8оо0оо0оо0ооооооооо0оо0оо0ооооооооо0оо0мм@0^/UT,0̅00 3  ЇІІЇ؆7oևzֆ18UTpp<?x?<8??88 80wsps%Ç88wspq"Ç88wppÇ880w8}p pÇ88w8ps8qÇ888sxy =Ǟpsǀ%Ç?>??8pq Ç? x<8p|8в8ם8в8оо0оо0оо0ооооооооо0оо0оо0ооооооооо0оо0мм@0^/UT,0̅00 3  ЇІІЇ؆7oևzֆ18UTpp<?x?<8??88  aO @ p | _ ` 08   8/o@ 7 %pAX^@@ր j @0 m ,J ]P0/ 0a /TA p\8V'0%<z ( x p€;p xx]B0 ?p Á  x<>p < @`1t 88<8 ǀデ-P ^ |x88 0`7 ?8 ~ @Pp @+ ?8 Ç.Ab88 |z@ @8p8  @(8p@ 8x8 デ Њx<<8 ς<}P0t 8 Á_ 8 xP@`BD   @``k@   Ш p t] `@W@ 00 A  8` /@@`@SЦEt]ah`/8 л\W8@ x0 0  `@0@ 3xxx>xxw??x??xxxx<<<<xxxx <x>xǏ>?<Çx??yxǞ<Ǐ>   B%WwU   ) ;؇$7^~w@P滑W~ʄߺ*z??Ht ' }@W` }w ߎ ~p{ι_>8}CǻG sڀW|_>(߿K |}@ ?Џ+l 0z{~Ƃ>xS8ڎxÑ]q@qI_=Pq?? x x<~ 〄 x? 8?|0cÀ*΀ ~ 8|x~p>ߠ  ?xq ?Ȍ  xq?U߿Ԍ >?xq=Pqx?ǂ >?xq߿Ɖt qx 8|xO~8{x  8|0À x x<~ > ~? ~ @U}P]|p~~ߎ~~p~﨨ΐ8}PǒШxcz~~(}@}м{@?@>> pppx@|? |0px |00p8 |1Æ?p0Ç~!Æ?p0~Æ?p0 Æpᇂ 0?`p8 p8 |>? ÕÕÕÕ a <8p<a?8aÆ x~ `0p?pppxCA8p=`?/ _@Ї?/? /@Ѓ ??/__ ?/'?_? /? /@Њ… @Ј@Ц?л????   D       0ܾؾ (0 м>&~޸````hЅp8Hp8Hp8<H8|8xH$8|8pH$8|8 x;>D$p? ?D$py}< >qD"p=8sÎ8ނ<9D"ǂw8p;99D"8p;98@"8p;q8?B"8p;q>8B!8pp;q9B!p=x8s܂89B! y}< 89B!?チ8A! x8>A  A 8 A {U@A @ @@ @Gx @ @?xCpC@ 088p88p8px8x8?899?π8y8y99={q㜨p;;8q9p;;8q~p;;8q~p;=;8qǩ>y89=98qqÜ<998q88xx88q88p8pβpx??pps>???s99p8p?8    9xl 9s lmlٌ` l͘6ٌ 8mlٌ lǘ6q  mlٌ l͘6 lmlٌ l͘ـ 8`x<ن` 8gp̦``  ?mml< mm?           0ܾؾ (0 м>&~޸````hЅp8Hp8Hp8<H8|8xH$8|8pH$8|8 x;>D$p? ?D$py}< >qD"p=8sÎ8ނ<9D"ǂw8p;99D"8p;98@"8p;q8?B"8p;q>8B!8pp;q9B!p=x8s܂89B! y}< 89B!?チ8A! x8>A  A 8 A {U@A @ @@ @Gx @ @?xCpC@ 088p88p8px8x8?899?π8y8y99={q㜨p;;8q9p;;8q~p;;8q~p;=;8qǩ>y89=98qqÜ<998q88xx88q88p8pβpx??pps>???s99p8p?8    9xl 9s lmlٌ` l͘6ٌ 8mlٌ lǘ6q  mlٌ l͘6 lmlٌ l͘ـ 8`x<ن` 8gp̦``  ?mml< mm?    # D       0ܾؾ (0 п~޸````hЅ8H?8H8H8H$x8H$ |<8Á?`D$ 8?Ã?D$?8 ÇD"Ã<88qÇD" 89|ǁ?>9|;9{p9qy8s;pq89988p;q98?q98?pq9889qpqy8s?q<qÀ8Àp08 p030` 009Ǟx6qx㍜yq1yǦl͛06`6ٳm6`3f3g͘|͛06`6ٳlـ33ǧ`͛06`6ٳm6ـ33l͛06`6ٳm6`ـ3f3f̀8Ǜ`pxyq1``p  3   08烞q9 0m1͘Ƴ 0l1͘ 0l31͘ 3m1͘ 8჌1͘f  @ ?@ m@ m@ l@Ƃ <@Â  @<  @c1f0  @0 Ç  @03  m @0c3  m @0c3  ? @cfqf  @<0  @   @ @ @ @ @ @ @ @ @ @ @ @ @  3 `@   0`@  9ς <=8g@  lf m͛lff@  8f m͛9|ǁ?>9|;9{p9qy8s;pq89988p;q98?q98?pq9889qpqy8s?q<qÀ8Àp08 p030` 009Ǟx6qx㍜yq1yǦl͛06`6ٳm6`3f3g͘|͛06`6ٳlـ33ǧ`͛06`6ٳm6ـ33l͛06`6ٳm6`ـ3f3f̀8Ǜ`pxyq1``p  3   08烞q9 0m1͘Ƴ 0l1͘ 0l31͘ 3m1͘ 8჌1͘f  @ ?@ m@ m@ l@Ƃ <@Â  @<  @c1f0  @0 Ç  @03  m @0c3  m @0c3  ? @cfqf  @<0  @   @ @ @ @ @ @ @ @ @ @ @ @ @  3 `@   0`@  9ς <=8g@  lf m͛lff@  8f m͛ |?`83cp?? ^& >#F&U@p燂|8><>q ?XBϗΪ9Ç8pq<<9@9Áǂ8qq89  1 L9Áǂ8qq88 k ǂ8q;88?|\? H@ǂ8q;8|8 xLx怆ǂ8q ;89 Ç8p㇂889 ߾t< >8pς 8<89 ϑЇ 8p88 w !U` <8p~x8x8> ?Z '֔q@= +H3Ms? Uw￟؂U; {  ۳?ÿ߂ ??+_7~@j¹M sI0*mQ ɿ0pp8pp8pp8>ps~?x?>ss?;9{psss=8Ψ;pq8ss8㇨;qss8qss8pqss8〨9qpÜsss88Ψ?qqs8qps8xÀÀ?pp?pppps~qp???sssp99ppspp    ~kP` @P `  ;j1tU:8a@,a&Sc @Ã4/axO 0@6B2q% :Q j%$tOcFlצS a` ҷ yE 0@0f Opط i@Ĭ@g\ @ 1 vX` }06S st^ }La!@ׂ0L@ ~ @@;V <@` /P H0N0 $ 7x 0`d  x1  nGd  @8~ lX&ATІ8?ӂ &n= p oɄb&` ԇp @qJ(p 08aBQp<x;Âx;> |?`83cp?? ^& >#F&U@p燂|8><>q ?XBϗΪ9Ç8pq<<9@9Áǂ8qq89  1 L9Áǂ8qq88 k ǂ8q;88?|\? H@ǂ8q;8|8 xLx怆ǂ8q ;89 Ç8p㇂889 ߾t< >8pς 8<89 ϑЇ 8p88 w !U` <8p~x8x8> ?Z '֔q@= +H3Ms? Uw￟؂U; {  ۳?ÿ߂ ??+_7~@j¹M sI0*mQ ɿ0pp8pp8pp8>ps~?x?>ss?;9{psss=8Ψ;pq8ss8㇨;qss8qss8pqss8〨9qpÜsss88Ψ?qqs8qps8xÀÀ?pp?pppps~qp???sssp99ppspp   DQVseU@`"8 b~@r+% eq1e@)@@ AAp(`@и? g '@? =u1{ 7}t@/cd @ 5 ? `0 6-  &     ::@ Āȱ88 `pm8X Am?y- / w@@p @7`@@a@?xfP @0G?x 0@ 0gqx00@ esMi@ 0@%w$0@ 7?[ @ j@@A ~ @9 w#@@~  B@qvD?@x ?@ @@~;xp8@???؂`@LJ>xy30@Â<p 30@8q (30@>8qƂh`@܂8?pq Àp@܂8xpqB@@ Ã8pqA@@ Ç8ppcP`@π8yy p>`@ 8x?? `30@ ~p8<8p 130@pp1@p @y܂&@ ?@0@3'p@N@@n?@?`T?@h`@<|0@|zؗ0@`x@`@ @00@<@@@@@@<@@>@`|@6ó7< 8@ >?<0?@ 8s9cc01Ƌ@ 030 0<1@ 030 01@ 030c 0a@030c80a@0s08c01Ƌ|@000?>@0ó03 08<@0 @ ``@@@@@@@@@@@@@@@@<@ >@ |@8@    @  @ c0  c@l  @ o @ o 0@l0|@ cf08`c>@g <@a`  @@@@@@@@@@@@@@@0<@0>@0|@ ͎8@ Ͽ?@ 1p1Ƌ@ `0<1@ 01@ 0a@ `0a@ 1p1Ƌ|@ ??>@ 8<@@@@@@@@@@@@@U@@@@@@@@@@@@@0 <@ 0 1>@`08 |@`@` 0 07v a<@@@@p@@@@@@@@@@@@<@>@? |@? 1@0p8 @0170cp7 3v @0?8?o 6@ 039p91c@0300 0̀ @0300 0 @0c0؂0 c 031|@01c0؂0 c 0͌3>@ 0q0p8 0qc2<@?0 0o #1@?0ð 07v a@0@ `@@p@@@@@@@@@@@@ 1<@ >@`8 |@` 70cp7 3v 6@` ?8?o @ 9p91c @00 0̀ @` 00 01@` 0؂0 c 03@` 0؂0 c 0͌32@ ` 0p8 0qc#1|@` 0 0o a>@` 0ð 07v <@0@ `@@p@@QVseU@`"8 b~@r+% eq1e@)@@ AAp(`@и? g '@? =u1{ 7}t@/cd @ 5 ? `0 6-  &     ::@ Āȱ88 `pm8X Am?y- / w@@p @7`@@a@?xfP @0G?x 0@ 0gqx00@ esMi@ 0@%w$0@ 7?[ @ j@@A ~ @9 w#@@~  B@qvD?@x ?@ @@~;xp8@???؂`@LJ>xy30@Â<p 30@8q (30@>8qƂh`@܂8?pq Àp@܂8xpqB@@ Ã8pqA@@ Ç8ppcP`@π8yy p>`@ 8x?? `30@ ~p8<8p 130@pp1@p @y܂&@ ?@0@3'p@N@@n?@?`T?@h`@<|0@|zؗ0@`x@`@ @00@<@@@@@@<@@>@`|@6ó7< 8@ >?<0?@ 8s9cc01Ƌ@ 030 0<1@ 030 01@ 030c 0a@030c80a@0s08c01Ƌ|@000?>@0ó03 08<@0 @ ``@@@@@@@@@@@@@@@@<@ >@ |@8@    @  @ c0  c@l  @ o @ o 0@l0|@ cf08`c>@g <@a`  @@@@@@@@@@@@@@@0<@0>@0|@ ͎8@ Ͽ?@ 1p1Ƌ@ `0<1@ 01@ 0a@ `0a@ 1p1Ƌ|@ ??>@ 8<@@@@@@@@@@@@@U@@@@@@@@@@@@@0 <@ 0 1>@`08 |@`@` 0 07v a<@@@@p@@@@@@@@@@@@<@>@? |@? 1@0p8 @0170cp7 3v @0?8?o 6@ 039p91c@0300 0̀ @0300 0 @0c0؂0 c 031|@01c0؂0 c 0͌3>@ 0q0p8 0qc2<@?0 0o #1@?0ð 07v a@0@ `@@p@@@@@@@@@@@@ 1<@ >@`8 |@` 70cp7 3v 6@` ?8?o @ 9p91c @00 0̀ @` 00 01@` 0؂0 c 03@` 0؂0 c 0͌32@ ` 0p8 0qc#1|@` 0 0o a>@` 0ð 07v <@0@ `@@p@@ D#Px   ? Awp  @|0܂ ? `> p~ῃq 8C  /|N|p8|px8d ``8 xpp|?x88p΂p< lppp` p><px8p?x p΂p 8p p0  8pÁ珀p< 8

p><x=Çp|<p18ֿ| l87ÃƬf???Ƭfw9fc01c1fc0g`3`fc0c`3`fc0``l3`c0f`0`l3`c0fcf018c1c0g?8?Ƭc80Æa ÃA@ A@ @A@  A:\x!AFb "# B $A?B 'A B $A B $AFB$B#A:Bb8Ɖ `Ɖ `llp8080l0l0Ɖ `0Ɖ `33@P@@@@@@@ 0 ~   @!@   (@@@ @ s< HpAІ@!@x " D@"B2@!@ A H A D@!| PA OA D@!@ PA HA D@!@  A HA D@!@ A "D@"B0!#@$AA CpA҆ @*1*1A @/0@@H XH̰,̴ I`0$R O@ R HA!$R &AL L````@@@@`@@@@`ĐDND`ĐDND`ĐDND`ĐDND`ĐDND`@@@@````` @  @ &[̰ a I A I  A $I @ L&8` E  E-&;`` E!A%` E'1= p E) !6 8\'p6c1c8c c0fcll c0fao c0f`xoc0f`l c9cf1c8csgcن0ap00 3`3` 3` c1` ~9`0 p`0  0 0 xpl0ϙy|0͙1p͘3` x~3`x3`x3`0a1`0a9`00`p`0Px   ? Awp  @|0܂ ? `> p~ῃq 8C  /|N|p8|px8d ``8 xpp|?x88p΂p< lppp` p><px8p?x p΂p 8p p0  8pÁ珀p< 8

p><x=Çp|<p18ֿ| l87ÃƬf???Ƭfw9fc01c1fc0g`3`fc0c`3`fc0``l3`c0f`0`l3`c0fcf018c1c0g?8?Ƭc80Æa ÃA@ A@ @A@  A:\x!AFb "# B $A?B 'A B $A B $AFB$B#A:Bb8Ɖ `Ɖ `llp8080l0l0Ɖ `0Ɖ `33@P@@@@@@@ 0 ~   @!@   (@@@ @ s< HpAІ@!@x " D@"B2@!@ A H A D@!| PA OA D@!@ PA HA D@!@  A HA D@!@ A "D@"B0!#@$AA CpA҆ @*1*1A @/0@@H XH̰,̴ I`0$R O@ R HA!$R &AL L````@@@@`@@@@`ĐDND`ĐDND`ĐDND`ĐDND`ĐDND`@@@@````` @  @ &[̰ a I A I  A $I @ L&8` E  E-&;`` E!A%` E'1= p E) !6 8\'p6c1c8c c0fcll c0fao c0f`xoc0f`l c9cf1c8csgcن0ap00 3`3` 3` c1` ~9`0 p`0  0 0 xpl0ϙy|0͙1p͘3` x~3`x3`x3`0a1`0a9`00`p`0a D*ҧ 0x@0 @@@@@@  0C 3  x~{? s? ;<xǏsÃϏ?;8ÃsÃx;8~? s8~? s8~?@` s8<>@0 8Ã<@~8Ç<Ã@| <xsώ Ãώ@|Á΂   Àx΂  {  v0`?0 0  7<q|0|pã 7a66Ƃ0 {͌a`f3cf`011 30f3f`011<33`f`v01133cf`011͌30a6ٌf6΂0 1͜1` qf{0 p10ä00 000 0Â0|00c ͌p61031 `c303?<`<3030 `<`3031͌`c30c ͜`610 `0f000000U0 0  7<q|0|pã 7a66Ƃ0 {͌a`f3cf`011 30f3f`011<33`f`v01133cf`011͌30a6ٌf6΂0 1͜1` qf{0 p10ä00 000 0Â0|00c ͌p61031 `c303?<`<3030 `<`3031͌`c30c ͜`610 `0f000000Uҧ 0x@0 @@@@@@  0C 3  x~{? s? ;<xǏsÃϏ?;8ÃsÃx;8~? s8~? s8~?@` s8<>@0 8Ã<@~8Ç<Ã@| <xsώ Ãώ@|Á΂   Àx΂  {  v0`?0 0  7<q|0|pã 7a66Ƃ0 {͌a`f3cf`011 30f3f`011<33`f`v01133cf`011͌30a6ٌf6΂0 1͜1` qf{0 p10ä00 000 0Â0|00c ͌p61031 `c303?<`<3030 `<`3031͌`c30c ͜`610 `0f000000U0 0  7<q|0|pã 7a66Ƃ0 {͌a`f3cf`011 30f3f`011<33`f`v01133cf`011͌30a6ٌf6΂0 1͜1` qf{0 p10ä00 000 0Â0|00c ͌p61031 `c303?<`<3030 `<`3031͌`c30c ͜`610 `0f000000U D6rpppp8pp8p8p<89x;>p89?pϜ<q98>qp 8pqø98<9pp8 >s89>89ps8988ps8988?pps8988pps8989p8pqøy889p<>q>889pp>8pp<x8>p Ƃ 0|?|><8`  8vcl  0c1ƴ 0c1 v0c1; 00c1cƴ 0cgl {0fc=8```>g3Æcnga61 3 f301` <f30 f33 3f361`cnf1fqa>f0Æ `111111 a``a `ό3 <̮a`6` <c`f f1c`c f1c`` 1c`` 1 aa` 0a ̶*o㎕ `0 Ƃ`0 ?o>xp > c`0 ;ؙ8p `11p0 `1 1k> f;`1 1wД fc`1 1 g`0 1 c=0p 1 #s  p  p '`  0 ` ?8` ?(0|? L 8aa  0c3̖x` 0c3x̕h@ v0c3x ?X 00c3x @0aa80 @a{0`00  `vp` |8x 0܂0 0`"_Ây`02I8 `0  cg0‹ xp >@0 /d8Qj~  f0 ;ؘ  0P `c0110 "~ a01 1  xsB" ga1 1 <$ @ dD la1 1  H 0 1 $30؂ p 1a` <`0 @@A`   a@` ` x00  00  L`` N`2@ > /DW 4h6- %H`뀄 +$ـn,L,ȆAX0( Ć AX0(Ɔg 8  `xa<~@P c4<@ A `?`  | `@     8 # ` ᆃ& 0~80&A0 ``0l `Ђ A|0   ` g?@ c@0B?@ É@ Ʈ$   0``  03L ` 0` 0 rpppp8pp8p8p<89x;>p89?pϜ<q98>qp 8pqø98<9pp8 >s89>89ps8988ps8988?pps8988pps8989p8pqøy889p<>q>889pp>8pp<x8>p Ƃ 0|?|><8`  8vcl  0c1ƴ 0c1 v0c1; 00c1cƴ 0cgl {0fc=8```>g3Æcnga61 3 f301` <f30 f33 3f361`cnf1fqa>f0Æ `111111 a``a `ό3 <̮a`6` <c`f f1c`c f1c`` 1c`` 1 aa` 0a ̶*o㎕ `0 Ƃ`0 ?o>xp > c`0 ;ؙ8p `11p0 `1 1k> f;`1 1wД fc`1 1 g`0 1 c=0p 1 #s  p  p '`  0 ` ?8` ?(0|? L 8aa  0c3̖x` 0c3x̕h@ v0c3x ?X 00c3x @0aa80 @a{0`00  `vp` |8x 0܂0 0`"_Ây`02I8 `0  cg0‹ xp >@0 /d8Qj~  f0 ;ؘ  0P `c0110 "~ a01 1  xsB" ga1 1 <$ @ dD la1 1  H 0 1 $30؂ p 1a` <`0 @@A`   a@` ` x00  00  L`` N`2@ > /DW 4h6- %H`뀄 +$ـn,L,ȆAX0( Ć AX0(Ɔg 8  `xa<~@P c4<@ A `?`  | `@     8 # ` ᆃ& 0~80&A0 ``0l `Ђ A|0   ` g?@ c@0B?@ É@ Ʈ$   0``  03L ` 0` 0 s D6 ppp8p8p8p<89x;>p89?Ϝ<q98>q 8pqø98<9p8 >s89>89<s8988s8988?ps8988ps89898pqøy889<>q>889p>8p<x8> Ƃ`0 0|?|0o  8v0n  0c10lc1 0c10lc? v0c10lc0 00c10lc1 0c0lc {0fc0lc `` 0`Ǐ|0o `v0n fc10lc1`njfc10lc? `fc10lc0`fc10lc1`fc0lc`njfc0lc*00` 3x8`80 61l7`6 01c`c 0xc` 3 c`` 61 c`c 6ql7`6 3x8`0?     8 8 8 8 08 x8 8χÀ 81  p81f 88 f <8f <81 f 8q f x8 f 08 8 8 8 8 8 8?8 |ߚC?~h@t0`9 `ǂn JP}? x^*?~_AD .}  .8  {<0 880Q 80 00 w0  u c[ (ߍǾ 1㶵 @ @ 0`}شpسl fpp ow p`vǀ4s8 p<`$  T< ￀ !80? <p( g(| ` x /$ >7w@0u4 ppp8p8p8p<89x;>p89?Ϝ<q98>q 8pqø98<9p8 >s89>89<s8988s8988?ps8988ps89898pqøy889<>q>889p>8p<x8> Ƃ`0 0|?|0o  8v0n  0c10lc1 0c10lc? v0c10lc0 00c10lc1 0c0lc {0fc0lc `` 0`Ǐ|0o `v0n fc10lc1`njfc10lc? `fc10lc0`fc10lc1`fc0lc`njfc0lc*00` 3x8`80 61l7`6 01c`c 0xc` 3 c`` 61 c`c 6ql7`6 3x8`0?     8 8 8 8 08 x8 8χÀ 81  p81f 88 f <8f <81 f 8q f x8 f 08 8 8 8 8 8 8?8 |ߚC?~h@t0`9 `ǂn JP}? x^*?~_AD .}  .8  {<0 880Q 80 00 w0  u c[ (ߍǾ 1㶵 @ @ 0`}شpسl fpp ow p`vǀ4s8 p<`$  T< ￀ !80? <p( g(| ` x /$ >7w@0u4 D5 ~a 8H P@d pp &Ȅ)$I8p*@x< $H&؇!``? 0?؈ 0|?0?|`yx????߈ `#?0Dp?0?|pQ<00  ` 0p08``*mmo `cg`` `}9````*ؾ0m  0mo*0  0?   0`*00a``am*mo0000  0 0   8ؿ0*00*ad&)I?pp00pp? ~a 8H P@d pp &Ȅ)$I8p*@x< $H&؇!``? 0?؈ 0|?0?|`yx????߈ `#?0Dp?0?|pQ<00  ` 0p08``*mmo `cg`` `}9````*ؾ0m  0mo*0  0?   0`*00a``am*mo0000  0 0   8ؿ0*00*ad&)I?pp00pp? D2 ,  pp8pppppx{Àpx;p?p8?pÞpp;ps<8p|?p<9>pp9p܂ ?sp9pxsp89>p?psp89p<;pp㇂8p|qyp<ς8p?8px;x8 ϼ7ݿ$ 6l6% l36 w37 736 @ 6̂6@ o7ٌ@  @@@@    @@ D  @@@@@ @    @@  D@D@@(@( 0D@D@       @ @@@ @      @ @@ @     @ @@@ @     @    @ @@@@@@        @ @@@@    @ @@@@@@@@        @@@D@((?HH@@D@D@@       @@@@@@@@         @@@@@@@@@@@@        @@@@          @@@@? pp;ps<8p|?p<9>pp9p܂ ?sp9pxsp89>p?psp89p<;pp㇂8p|qyp<ς8p?8px;x8 ϼ7ݿ$ 6l6% l36 w37 736 @ 6̂6@ o7ٌ@  @@@@    @@ D  @@@@@ @    @@  D@D@@(@( 0D@D@       @ @@@ @      @ @@ @     @ @@@ @     @    @ @@@@@@        @ @@@@    @ @@@@@@@@        @@@D@((?HH@@D@D@@       @@@@@@@@         @@@@@@@@@@@@        @@@@          @@@@? xp88<8p8|8?sp8?p8 ;p8xp|9;p8p9;88p8p9sㇸ8xp8y9<ϼxp8?Ǹxpx8;|{ vy o`$ v͛ c% ~ ͇` ~` n ͆` @ nͳ `@ fy c`@@ @@@$$BA@    @@@    @`$@" b A  @@@ @  @ @!@" ` ` `" @!  @@  @@ @  @ @   @ @  A  A @""```@`"@ !@" @ " @ A@ @   @  @@ @    @  A@@!@@~x@ @`Ͷ P  `|ͼ  `  P?`~l; ? P~lðf{@ (lǰ xp88<8p8|8?sp8?p8 ;p8xp|9;p8p9;88p8p9sㇸ8xp8y9<ϼxp8?Ǹxpx8;|{ vy o`$ v͛ c% ~ ͇` ~` n ͆` @ nͳ `@ fy c`@@ @@@$$BA@    @@@    @`$@" b A  @@@ @  @ @!@" ` ` `" @!  @@  @@ @  @ @   @ @  A  A @""```@`"@ !@" @ " @ A@ @   @  @@ @    @  A@@!@@~x@ @`Ͷ P  `|ͼ  `  P?`~l; ? P~lðf{@ (lǰ |?kh<?<> Kkh`? lkhp> o'H`??   l!h`~?  lh` ?? ?   l'H` ??   lX`?? |$`?? xփp? ? &p? ?p>| x??? < O;|??< (~??>?| f(??`4cT'  7`g ϰ ? ?   \ x Ï??"߼𡿼} 7 2I5 2I7 2I'@ 0 2I'@׀ 0 2I'BS<8ۀ 2I/RS6lۯ 2I,(~RS36lۯ 2I,(S?6l۫  2Y8Sal C 6Y8Ӏa8y B 6I8Ӏ BH &I0BғB &I1< B $K3<B $K32Ғ< B $K32< $I0r?< $J r?< $J`?< $_?< $X`Ö? $aԖ|~ $`В? $`?? $ $߂?? $? $,????? $?䗀??? $䗀 ? ? $p} ? ? $?? $??? $)p ?? $ ??? /`? ? ?1????? ??? ?K?? ˜    38? ? ? H f> ~`  @=Ï??"߼𡿼} cREVGeneralR+ HC Iconsi Gskull D G?0@@py0@ `U`ʠ@  @:ҀIU@@]UG?0@@py0@ `U`ʠ@  @:ҀIU@@]UWsphere D 8  $!$ 6"4 H @X T@ꪀ9N8  $!$ 6"4 H @X T@ꪀ9N cylinder D@ x? 0T8?X(@X(@X(X$(@X(@X (@X0(X$(@ 0?x? 0T8?X(@X(@X(X$(@X(@X (@X0(X$(@ 0?cube D` x 4? !( @$ 0" !( @  0  !( @?x 4? !( @$ 0" !( @  0  !( @?tHG Next Arrow D ?  /((N(((((((((((((((((((((/???  /((N(((((((((((((((((((((/??FHG Prev Arrow D ?  /((N(((8(x((((((((((((x(8((((/???  /((N(((8(x((((((((((((x(8((((/??-Index D |6ny`7mp6a6n{`?P*****|6ny`7mp6a6n{`?P*****R, HC cursorsi  question DH   $H @@20`H<xR/ MyMenubarI cREVGeneralR0FileŋU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Open" answer file "Select the HyperGlaze stack to open:" of type "RSTK" open stack it show stack it break case "Close" close stack the topstack break case "Save" save stack "Potter's Friend" break case "Import" send mouseup to btn "import Glaze File" --hidden break case "Export" saveAsGlazeFile break case "Page Setup" answer printer break case "Print Card" open printing with dialog print this card close printing break case "Quit" answer "Save changes to Potter's Friend first?" with "Cancel" or "No" or "Save" if it is "Cancel" then exit menuPick if it is "Save" then set cursor to watch save stack "Potter's Friend" end if quit break end switch end menuPick  &&Open/O Close/W (- &Save/S (- &Quit/Q cREVGeneral R1EditŋU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Undo" undo break case "Cut" cut break case "Copy" Copy break case "Paste" if the clipboard is "text" then paste break case "Clear" delete break case "New Card" create card break case "Delete Card" answer "Delete this Glaze recipe permantly?" with "Delete" or "Cancel" if it is "Delete" then delete this card break case "Duplicate Card" copy card paste card break case "Preferences" open stack "Preferences" break end switch end menuPick !!)Undo/Z (- Cu&t/X &Copy/C &Paste/V Clea&r cREVGeneral R2GoŋU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Go to HyperGlaze Index" go to stack "HyperGlaze" if the result is not empty then answer "HyperGlaze cannot be found." & return &\ "If you own HyperGlaze, put Potter's Friend in the same folder with HyperGlaze." end if break end switch end menuPick BGo to HyperGlaze Index cREVGeneral R3 CalculationsŋUon menuPick pWhich switch pWhich case "Temperature" go to card "Temperature" break case "Size" go to card "Size" break case "Weight" go to card "Weight" break case "Postage" go to card "Postage" break case "Volume" go to card "Volume" break case "Shrinkage" go to card "Shrinkage" break case "Time 1" go to card "Time1" break case "Time 2" go to card "Time2" break case "Molecular Weight" go to card "MolWt" break case "Line Blend" go to card "LineBlend" break case "Triaxial Blend 1" go to card "Triaxial1" break case "Triaxial Blend 2" go to card "Triaxial2" break case "Glaze Blender" go to card "GlazeBlender" break end switch end menuPick ^PTemperature Size Weight Postage Volume Shrinkage Time 1 Time 2 Molecular Weight Line Blend Triaxial Blend 1 Triaxial Blend 2 Glaze Blender cREVGeneral R4HelpŋE&&Help - &About R7 myUnitsmenu'on menupick myItem switch myItem case "gallons" put "gallons" into cd fld "myUnit" send mouseup to cd btn "convert" break case "quarts" put "quarts" into cd fld "myUnit" send mouseup to cd btn "convert" break case "pints" put "pints" into cd fld "myUnit" send mouseup to cd btn "convert" break case "cups" put "cups" into cd fld "myUnit" send mouseup to cd btn "convert" break case "liters" put "liters" into cd fld "myUnit" send mouseup to cd btn "convert" break end switch end menupick ~V"Selection Descriptionfalse!gallons quarts pints cups liters cREVGeneral revUniqueID 1021823423647 R8 myUnitsmenu2Bon menupick myItem switch myItem case "gallons" put "gallons" into cd fld "mynewUnit" send mouseup to cd btn "convert" break case "quarts" put "quarts" into cd fld "myNewUnit" send mouseup to cd btn "convert" break case "pints" put "pints" into cd fld "myNewUnit" send mouseup to cd btn "convert" break case "cups" put "cups" into cd fld "myNewUnit" send mouseup to cd btn "convert" break case "liters" put "liters" into cd fld "myNewUnit" send mouseup to cd btn "convert" break end switch end menupick VSelection Descriptionfalse!gallons quarts pints cups liters cREVGeneral revUniqueID 1021823423647 R9 myUnitsmenu'on menupick myItem switch myItem case "gallons" put "gallons" into cd fld "myUnit" send mouseup to cd btn "convert" break case "quarts" put "quarts" into cd fld "myUnit" send mouseup to cd btn "convert" break case "pints" put "pints" into cd fld "myUnit" send mouseup to cd btn "convert" break case "cups" put "cups" into cd fld "myUnit" send mouseup to cd btn "convert" break case "liters" put "liters" into cd fld "myUnit" send mouseup to cd btn "convert" break end switch end menupick NSelection Descriptionfalse!gallons quarts pints cups liters cREVGeneral revUniqueID 1021823423647 R: myUnitsmenufon menupick myItem switch myItem case "grams" put "gm" into cd fld "myUnit" send mouseup to cd btn "Calculate" break case "pounds" put "lb" into cd fld "myUnit" send mouseup to cd btn "Calculate" break case "ounces" put "oz" into cd fld "myUnit" send mouseup to cd btn "Calculate" break end switch end menupick r4Selection Descriptionfalsegrams pounds ounces cREVGeneral revUniqueID 1021823423647 R; myUnitsmenu2ion menupick myItem switch myItem case "grams" put "gm" into cd fld "myUnit2" send mouseup to cd btn "Calculate" break case "pounds" put "lb" into cd fld "myUnit2" send mouseup to cd btn "Calculate" break case "ounces" put "oz" into cd fld "myUnit2" send mouseup to cd btn "Calculate" break end switch end menupick 4Selection Descriptionfalsegrams pounds ounces cREVGeneral revUniqueID 1021823423647 R< New Field 1 F cREVGeneral revUniqueID 1021825999191 X 1989-2004 Richard BurkettR? myUnitsmenu`on menupick myItem switch myItem case "grams" put "gm" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "pounds" put "lb" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "ounces" put "oz" into cd fld "myUnit" send mouseup to cd btn "Convert" break end switch end menupick r4Selection Descriptionfalsegrams pounds ounces cREVGeneral revUniqueID 1021823423647 R@ myUnitsmenu2con menupick myItem switch myItem case "grams" put "gm" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "pounds" put "lb" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "ounces" put "oz" into cd fld "myUnit2" send mouseup to cd btn "Convert" break end switch end menupick 4Selection Descriptionfalsegrams pounds ounces cREVGeneral revUniqueID 1021823423647 RA myUnitsmenu1on menupick myItem switch myItem case "yards" put "yd" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "feet" put "ft" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "inches" put "in" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "millimeters" put "mm" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "centimeters" put "cm" into cd fld "myUnit" send mouseup to cd btn "Convert" break case "meters" put "m" into cd fld "myUnit" send mouseup to cd btn "Convert" break end switch end menupick 2Selection Descriptionfalse1inches feet yards millimeters centimeters meters cREVGeneral revUniqueID 1021823423647 RB myUnitsmenuon menupick myItem switch myItem case "yards" put "yd" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "feet" put "ft" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "inches" put "in" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "millimeters" put "mm" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "centimeters" put "cm" into cd fld "myUnit2" send mouseup to cd btn "Convert" break case "meters" put "m" into cd fld "myUnit2" send mouseup to cd btn "Convert" break end switch end menupick 2Selection Descriptionfalse1inches feet yards millimeters centimeters meters cREVGeneral revUniqueID 1021823423647 RDBlender PointerKRon mousedown set numberformat to 0 repeat get the loc of me put the mouseh into item 1 of it if item 1 of it>450 then put 450 into item 1 of it if item 1 of it<250 then put 250 into item 1 of it if item 1 of it is 389 or item 1 of it is 391 then put 390 into item 1 of it set the loc of me to it put ((item 1 of it)/2)-125 into cd fld "WaterRatio" if the mouse is up then exit repeat end repeat send mouseup to btn "Calculate" end mousedown   cREVGeneral revUniqueID 1021831346439RCBlender PointerKRon mousedown set numberformat to 0 repeat get the loc of me put the mouseh into item 1 of it if item 1 of it>300 then put 300 into item 1 of it if item 1 of it<100 then put 100 into item 1 of it set the loc of me to it put ((item 1 of it)/2)-50 into cd fld "Pct2" put 150-(item 1 of it)/2 into cd fld "Pct1" if the mouse is up then exit repeat end repeat end mousedown 0 CC1C cREVGeneral revUniqueID 1021831346439REPottersFriendIRFFile]--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Open" answer file "Select the HyperGlaze stack to open:" of type "RSTK" if it is empty then exit menuPick open stack it show stack it break case "Close" close stack the topstack break case "Save" set the cursor to watch save stack "Potter's Friend" break case "Import" send mouseup to btn "import Glaze File" --hidden break case "Export" saveAsGlazeFile break case "Page Setup" answer printer break case "Print Card" open printing with dialog print this card close printing break case "Quit" -- answer "Save changes to HyperGlaze first?" with "Cancel" or "No" or "Save" -- if it is "Cancel" then exit menuPick -- if it is "Save" then -- set cursor to watch -- save stack "Glazes" -- save stack "Glaze Index" -- save stack "Materials" -- save stack "Materials Index" -- save stack "clays" -- save stack "clay Index" -- save stack "Glaze Limits" -- save stack "Glaze Calculator" -- save stack "Potter's Friend" -- end if quit break end switch end menuPick  FileC&Open/O &Close/W (- &Save/S (- Page Setup &Print Card/P (- &Quit/Q cREVGeneral RGEdit]on menupick myItem switch myItem case "Cut" cut break case "Copy" if the selection is not empty then copy the selection break case "Paste" if the clipboard is "text" then paste break case "Clear" delete break end switch end menupick !!Edit*&Undo/Z (- Cu&t/X &Copy/C &Paste/V Clea&r cREVGeneral RHGo]--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Go Back" go back break case "Go Forward" go forward break case "index" open stack "HyperGlaze" show stack "HyperGlaze" break case "Glazes" open stack pWhich show stack pWhich break case "Glaze Index" open stack pWhich show stack pWhich break case "Glaze Limits" open stack pWhich show stack pWhich break case "Glaze Calculator" open stack pWhich show stack pWhich break case "Clays" open stack pWhich show stack pWhich break case "Clay Index" open stack pWhich show stack pWhich break case "Materials" open stack pWhich show stack pWhich break case "Materials Index" open stack pWhich show stack pWhich break case "Unity Explained" open stack pWhich show stack pWhich break case "Bibliography" open stack pWhich show stack pWhich break case "QuadBlender" open stack pWhich show stack pWhich break case "Potter's Friend" open stack pWhich show stack pWhich break end switch end menuPick BGoBack/[ Forward/] (- Index/H (Glazes Glaze Index Glaze Limits Glaze Calculator (- Clays Clay Index (- Materials Materials Index (- Unity Explained Bibliography QuadBlender Potter's Friend cREVGeneral RK Calculate]on menuPick pWhich switch pWhich case "Temperature" go to card "temperature" break case "Size" go to card "size" break case "Weight" go to card "weight" break case "Postage" go to card "postage" break case "Volume" go to card "volume" break case "Shrinkage" go to card "shrinkage" break case "Plaster" go to card "plaster" break case "Time" go to card "time1" break case "Molecular Weights" go to card "molwts" break case "Line Blends" go to card "LineBlends" break case "Triaxials" go to card "triaxial1" break case "Glaze Blender" go to card "glazeBlender" break end switch end menuPick ^@ CalculatetTemperature Size Weight Postage Volume Shrinkage Plaster Time Molecular Weights Line Blends Triaxials Glaze Blender cREVGeneral revUniqueID 1021838856132 RJHelp],on menupick myItem switch myItem case "About Potter's Friend" go to card "about potter's friend" break case "Help" go to card "about potter's friend" break case "help with HyperGlaze" open stack "HyperGlaze Help" show stack "HyperGlaze Help" end switch end menupick &Help/&Help with HyperGlaze - &About Potter's Friend cREVGeneral  RMcopyright info  -% cREVGeneral revUniqueID 1090622438641 1989-2004 Richard Burkett All rights reserved worldwideRNRevolution Logo Small.png "B PNG  IHDR szzgAMAܲtEXtSoftwareGraphicConverter5]H GIDATxW TWB"$¾˦ âRRW*(JPlUTeVJ-nZ-*:vJ{o^CΔ{=ϟw ?]L|mmMat*|jVVbp0 u ސ?2`4>B!S0JԡPM m+,̻+>Hz?SfgǒX\g:)!-W,K] )n*'`+)txq~ҏQQxUgIڹVUyʕ7.oH6#D"?v4rsiq oOx)^81 f;G/Yt1+X\%ҏ#^lnKoǼȈ*6+kAsŧ@ =@,*eyh#NM) %$ z~q[} TRd ^AIX;9R@ y\n7& D#@.^G@ S%bkUJJVܜh))95j$dv":=)! XN:AȴnQ ͈3;Ճ;x⭨Htzs]w/$Bp]Qח9:6Z}Gq|GÀ&ΧyrP8]T@=Fh*F_;ŭ}װ}c>\dm섄D.vb ~;: 趉͸86jla5?[[qwb顿_;tVn1f9nay~>xGK Z\-~ˁLpg %-D39}@oFRICuCHhNM}/ۏh}~w>uX#n]󷑺Z9IPml<6d;F%V{1x#pth 84Hm oCri=P렋s-mӂ`ǎ~)0 .4^΀E:༤h&8ApFc@b3b7B \ .x@ȯ"A  @,,<1'yD,Y{Ē"(sxR@`j42ݷw}֬-cX#aU@N]daL8جh4՛NM?[`;1JD%G% Y~U$VVmrXذ_Kι)ZM) KG<} ƀ1Yj8!X,z'U٘XwPT`˱00;o =!/<\dށ. 1I$&.u>Xp9}ry9+k`2,۸>//h9Tеp Tpmjk2?Qg&ъ-,좄Cq)b;@f/~\w j5nRE"aƏ|Lb0`xC [kaҼy-KK{d~mUdY+8,^17M.ܐlŨd^|FѨdM÷Մ,+ATV5|yt}5+^Jo.))*j\XBěIO֋,N3lw牘pYpD-&5uCCY( o g.UWpIX2;꛺_Vn; ЅdfLzN͞nǣ3AWK+9%+bļհL{I7^<_nš+:SdnurQ2n2{}G&19JܨTKʥ g1yɣ׿uЬ<)CFb >F&m}/I(yklldEK2QϬq%>ۭI #4IENDB` cREVGeneral revUniqueID 1096046768814 RP Label Field $ , cREVGeneral revUniqueID 1096050869464 Glaze BlenderRQ Graphic 1K cREVGeneral revUniqueID 1096051005573 RS Label Field & d cREVGeneral revUniqueID 1096051025888 Glaze #1 RT Label Field & d cREVGeneral revUniqueID 1096051068331 Glaze #2RZBlenderControlDR"@SPNG  IHDR@*&gAMA=-f PLTE~OtRNS AIDATxY G!-)q8̸\do|u#KtjF]ZzRPUv8[cN9W*^nL]50umB)Ǭ)=0=:\Պ]9]lit]m66X%m+8ݝNtY _%m+ͱ5MǼhaבc+ ftK!w &⹘=_ef1Qm;23f t(+֦ЧI ˎ`wOMhդWw{Ѝ+OE0uGeҽbU