#!/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 "$@" Clays"-- (c) 1988-2004 Richard Burkett, All scripts -- All Rights Reserved Worldwide, HyperGlaze (TM) on shutdownRequest -- set the itemDelimiter to "." -- versions are of the form "x.y.z" -- if the platform is "MacOS" and item 1 of the systemVersion >= 10 then put true into myComputerIsOSX -- if myComputerIsOSX is true then 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 if end shutdownRequest --on shutdownRequest -- set the itemDelimiter to "." -- versions are of the form "x.y.z" -- if the platform is "MacOS" and item 1 of the systemVersion >= 10 then put true into myComputerIsOSX -- if myComputerIsOSX is true then -- -- answer "Save changes to the Clays stack first?" with "Cancel" or "No" or "Save" -- if it is "Cancel" then exit shutdownRequest -- set cursor to watch -- if it is "Save" then -- save stack "Clays" -- if the result is not empty then -- answer "The Clays stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If the copy of HyperGlaze in use is on a CD-ROM you will not be able to save." -- end if -- end if -- end if -- pass shutdownRequest --end shutdownRequest on openStack if the platform is "MacOS" then put 325 into myMinHeight put 625 into myMaxHeight else -- for Windows with menus in window put 350 into myMinHeight put 650 into myMaxHeight end if if the icon of me is 200951 then revChangeWindowSize 525,myMinHeight else revChangeWindowSize 525,myMaxHeight end if end openstack function stripReturns myText repeat the number of lines of myText put offset(return,myText) into myReturn if myReturn >0 then put " " into char myReturn of myText else exit repeat end repeat repeat the number of lines of myText put offset(lineFeed,myText) into myReturn if myReturn >0 then put " " into char myReturn of myText else exit repeat end repeat return myText end stripReturns function StripTabs myText repeat put offset(Tab,myText) into myTab if myTab >0 then put "" into char myTab of myText else exit repeat end repeat return myText end StripTabs on FindIt LookWhere global MyQuery if lookWhere is "Tested" then put "by (un)tested" into lookwhere2 else put "by" && lookwhere into lookwhere2 if lookwhere is empty then put empty into lookWhere2 ask "What do you want to find " & lookWhere2 & "?" with MyQuery if it is empty then exit FindIt put it into myQuery push cd lock screen get the short name of this stack if it is "Glazes" or it is "Clays" then go next else go to first cd of stack "Glazes" if lookWhere is not empty then if lookwhere is "cone" then find word myQuery in fld LookWhere else find string myQuery in fld LookWhere if the result is not empty then play boing answer quote & myQuery & quote & " was not found in '" & lookwhere\ & "'." pop cd unlock screen exit FindIt end if if lookwhere is "cone" then put "Find word " & quote & myQuery & quote & " in fld " & lookWhere else put "Find String " & quote & myQuery & quote & " in fld " & lookWhere hide message else find string myQuery if the result is not empty then play boing answer quote & myQuery & quote & " was not found." pop cd unlock screen exit FindIt end if put "Find String " & quote & myQuery & quote hide message end if end findIt on doNewBatch lock screen put empty into newTotal put empty into fld "Batch" put empty into fld "Batch2" put fld "TotBatch" into Batchsize if batchsize >0 then if fld "lb/gm" is "gm" or fld "lb/gm" is "lb" then if batchsize>999 then set numberformat to 0 else if batchsize>99 then set numberformat to 0.0 else set numberformat to 0.00 GramBatch else put PoundBatch(Batchsize) into newTotal end if --set the numberformat to 0.00 if batchsize is empty then put "100.00" into fld "totBatch" if newtotal >0 then put newTotal into fld "totBatch" else put (Batchsize*1) into fld "totBatch" put empty into Batchsize if fld "Cost" is not empty then send mouseup to btn "Batch Cost" unlock screen end doNewBatch on setBatchSizeMarked if (the number of marked cards of stack "Clays")<=0 then answer "There are no currently selected (marked) clay recipes." exit setBatchSizeMarked end if ask "Set batch size for the selected clay recipes to:" if it is empty then exit setBatchSizeMarked put it into myNewBatchSize answer "What weight measure for this batch size: " & myNewBatchSize & " ?" with "Cancel" or "Pounds" or "Grams" if it is "Cancel" then exit setBatchSizeMarked else if it is "Pounds" then put "lb" into myWeight else put "gm" into myWeight go to next marked card repeat (the number of marked cards of stack "Clays") set cursor to busy put myWeight into fld "lb/gm" put myNewBatchSize into fld "TotBatch" doNewBatch go to next marked card end repeat end setBatchSizeMarked on SetBatchSize -- updated 6-25-04 if the short name of this stack is "Glazes" then put "glazes" into myType else put "clays" into myType answer "Change the batch size on ALL " & mytype & " or just marked cards?" \ with "ALL" or "Marked Cards" or "Cancel" if it is "cancel" then exit setBatchSize if it is "marked cards" then put true into DoMarkedCards answer "Set the batch size in grams or pounds?" with "Grams" or "Pound/Oz"\ or "Pounds" put it into MyUnit if MyUnit is "Pounds" or MyUnit is "Pound/Oz" then put 20 into MyBatch else put 500 into myBatch end if ask "What batch size (in " & MyUnit & ") do you want?" with MyBatch if it is empty then exit setBatchSize else put it into MyBatch push cd -- set lockmessages to true lock screen lock recent if doMarkedCards is true then go to next marked card else go to first card of this stack put the id of this cd into myFirstCard repeat the number of cds of this stack set the cursor to busy --if line i of MyList is empty then next repeat --go to line i of MyList if MyUnit is "Pounds" then put "Lb" into fld "lb/gm" else if MyUnit is "Pound/Oz" then put "lb/oz" into fld "lb/gm" else put "Gm" into fld "lb/gm" put MyBatch into fld "totBatch" doNewBatch send mouseup to bg btn "Batch Cost" if doMarkedCards is true then go to next marked card else go next if the short name of this cd is myFirstCard then exit repeat end repeat set lockmessages to false unlock screen unlock recent pop cd end setBatchSize on gramBatch if fld "TotBatch" is empty then put 100 into fld "TotBatch" put fld "totBatch" into myTotal set numberformat to 0 repeat with i=1 to 10 put ("amount" & i) into WhichField if myTotal<1000 then if myTotal<100 then set numberformat to 0.00 else set numberformat to 0.0 end if put (fld whichField) into MyField put ((MyField*MyTotal)/100.0) into line i of fld "Batch" set numberformat to 0 put ("amount" & (i+1)) into MyNewFieldNum if field MyNewFieldNum is empty then exit repeat end repeat repeat with i=11 to 14 put ("amount" & i) into WhichField if myTotal<1000 then if myTotal<500 then set numberformat to 0.00 else set numberformat to 0.0 end if put (fld whichField) into MyField if myField is not empty then put ((MyField*MyTotal)/100.0) into line (trunc(i-10)) of fld "Batch2" end if set numberformat to 0 put ("amount" & (i+1)) into MyNewFieldNum end repeat end gramBatch Function PoundBatch batchsize put 0.00 into newTotal repeat with i = 1 to 14 set numberformat to 0 put ("amount" & i) into myfield if fld myfield is not empty then set numberformat to 0.00 put (((fld myfield)*batchsize)/100) into Temp add temp to newTotal if batchsize<15 then set numberformat to 0.0 else set numberformat to 0 if Batchsize >=150 then if temp<1 then set numberformat to 0.0 else set numberformat to 0 if i<11 then put Temp & " Lb" & return after fld "Batch" else put Temp & " Lb" & return after fld "Batch2" else if i<11 then 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") & return after\ fld "Batch" else if temp<1 then set numberformat to 0.0 if trunc(Temp)>0 then put trunc(Temp) & " Lb " into Pounds else put empty into Pounds put (Pounds & (Temp-(trunc(Temp)))*16 & "oz") & \ return after fld "Batch2" end if end if end if put empty into temp end repeat end PoundBatch on doPercent lock screen set cursor to busy set numberformat to 0.00 put FindPercent()+1 into whichField set the numberformat to 0 -- if whichField =25 -- then -- set the location of cd fld "totals" to 130,223 -- set the location of cd fld "TotAmt" to 198,223 -- set the location of cd fld "TotBatch" to 260,223 -- else -- repeat with i=1 to 3 -- put item 2 of the location of fld whichField into y -- put item 1 of the location of cd fld i into x -- set the location of cd fld i to x,y -- end repeat -- end if put "Totals" into fld "totals" unlock screen end doPercent on FindSelectedWord global selectedWord,myResult put empty into firstCard set lockscreen to true set lockmessages to true find string SelectedWord in fld 1 if the result is not empty then put "not found" into MyResult exit FindSelectedWord else put the number of this cd into firstcard if selectedword contains fld 1 then set lockscreen to false set lockmessages to false exit FindSelectedWord end if go next repeat until selectedWord contains fld 1 find string SelectedWord in fld 1 if the number of this cd is firstCard then put "not found" into myResult exit repeat end if end repeat set lockscreen to false set lockmessages to false end FindSelectedWord function ClickLine return(trunc(((the vscroll of the target) \ +(item two of the clickloc) \ - (item two of the rect of the target)) \ div the textheight of the target) + one) end ClickLine on findIndexName Global SelectedWord repeat 3 times delete last char of selectedWord end repeat if last char of selectedWord is "C" then delete last char of selectedWord if last char of selectedWord is " " then delete last char of selectedWord find string selectedWord in fld 1 put "find string " & quote & selectedWord & quote & " in fld 1" hide message end findIndexName on MakeHyperGlazeFile myFileName set cursor to watch put "1 Name,2 Cone,3 Color,4 Surface,5 Ingredient1,6 Amount1,7 Ingredient2,8 Amount2,9 Ingredient3,10 Amount3,11 Ingredient4,12 Amount4,13 Ingredient5,14 Amount5,15 Ingredient6,16 Amount6,17 Ingredient7,18 Amount7,19 Ingredient8,20 Amount8,21 Ingredient9,22 Amount9,23 Ingredient10,24 Amount10," &\ "25 Ingredient11,26 Amount11,27 Ingredient12,28 Amount12,29 Ingredient13,30 Amount13,31 Ingredient14,32 Amount14,33 Batch,34 Batch2,35 PercentAnalysis,36 Comments,37 Hazards,38 Firing,39 Tested,40 XXX,41 XXX,42 Date,43 lb/gm,44 C,45 XXX,46 Totals,47 TotAmt,48 TotBatch,49 R2O,50 R2O3,51 RO2,52 XXX,53 Cost,54 ShrinkDry,55 ShrinkFired,56 ShrinkALL" into OldFieldNames repeat with i=1 to 56 set cursor to busy put last word of item i of OldFieldNames into myField if myField is "XXX" then write quote & quote & Tab to file myFileName next repeat end if if fld myField is empty then write quote & quote & Tab to file myFileName else write fld myField & tab to file myFileName end if end repeat -- repeat with i=1 to 3 -- write cd fld i & tab to file myFileName -- end repeat -- repeat with i=1 to 3 -- put loc of cd fld i into totlocation -- write totlocation & tab to file myFileName -- end repeat -- if fld "ColorPatch" is empty -- then write quote & quote & tab to file myFileName -- else Write fld "ColorPatch" & Tab to file myFileName -- if fld "Cost" is empty -- then write quote & quote & tab to file myFileName -- else Write fld "Cost" & Tab to file myFileName -- if the short name of this bg is "Glazes" -- then if fld "GlazeType" is empty -- then write quote & quote & tab to file myFileName -- else Write fld "GlazeType" & Tab to file myFileName write numToChar(30) to file myFileName end MakeHyperGlazeFile on SaveAsClayFile --saves HGLZ .HGZ file of single glaze put char 1 to 28 of fld "Name" & ".HGZ" into myFileName ask File "Save this material file as: " with myFileName if the result is not empty then exit SaveAsClayFile put it into myFileName set the fileType to "HGLZGLAZ" open file myFileName write "NewFormat" & tab to file myFileName makeHyperGlazeFile myFileName close file myFileName end SaveAsClayFile on saveMarkedClays --saves HGLZ .HGZ file of marked clay recipes if the number of marked cards <=0 then answer "There are no marked Clay recipe cards!" exit saveMarkedClays end if put "HGClays" & ".HGZ" into myFileName ask File "Save marked materials as: " with myFileName if the result is not empty then exit saveMarkedClays put it into myFileName set the fileType to "HGLZGLAZ" open file myFileName write "NewFormat" & tab to file myFileName repeat the number of marked cards set cursor to busy go to next marked card makeHyperGlazeFile myFileName end repeat close file myFileName end saveMarkedClays on saveAsTextFile ask file "Save this glaze as the text file:" with char 1 to 29 of line 1 of fld "name" & ".txt" if it is empty then exit saveAsTextFile put it into myFileName set fileType to "ttxtTEXT" open file myFileName makeTextFile myFileName,true,false.false,false close file myFileName end saveAsTextFile on saveMarkedTextClays ask file "Save this glaze as the text file:" with "Marked Clays.txt" if it is empty then exit saveMarkedTextClays put it into myFileName set fileType to "ttxtTEXT" open file myFileName repeat the number of marked cards go next marked card makeTextFile myFileName,true,false,false,false end repeat close file myFileName end saveMarkedTextClays on MakeTextFile myFileName, includeAnalysis, AmountFirst, includeBatch, includePct if AmountFirst is empty or AmountFirst is "AmountFirst" then put false into AmountFirst if includeBatch is empty or includeBatch is "includeBatch" then put false into includeBatch -- if includePct is empty or includePct is "includePct" then -- answer "Save with only Percentage or include Batch recipe?" with "Cancel" or "Batch" or "Percent" -- if it is "Cancel" then exit MakeTextFile -- if it is "Batch" then -- put true into includeBatch -- put false into includePct -- else put true into includePct --end if --end if put tab into tabChar put return into returnChar set cursor to busy write "Clay name: " & line 1 of fld "Name" & returnChar & "Cone: " & line 1 of fld "Cone" &\ returnChar to file myFileName write "Color: " & line 1 of fld "Color" & returnChar & "Testing: " & fld "Tested" &\ returnChar to file myFileName write "Usage: " & line 1 of fld "surface" & returnChar to file myFileName write "Firing: " & fld "firing" to file myFileName write returnChar & "Plasticity: " & fld "GlazeType" to file myFileName if AmountFirst then if includeBatch then write returnChar & returnChar & "Recipe:" & tabChar & "Batch" & returnChar to file myFileName else write returnChar & returnChar & "Recipe:" & tabChar & "Percentage by weight" & returnChar to file myFileName else if includeBatch then write returnChar & returnChar & "Recipe:" & tabChar & "Percent" & tabChar & "Batch" & \ returnChar to file myFileName else write returnChar & returnChar & "Recipe:" & tabChar & "Percent" & \ returnChar to file myFileName end if repeat with i=1 to 10 if fld ("Ingredient" & i) is empty then exit repeat if amountFirst then if includeBatch then put the number of chars of fld "TotBatch" into addSpaces else put the number of chars of fld "TotAmt" into addSpaces if IncludeBatch then put line i of fld "Batch" into myAmount else put line 1 of fld ("Amount" & i) into myAmount repeat addSpaces if the number of chars of myAmount < addSpaces then put space before myAmount else exit repeat end repeat end if if AmountFirst then write myAmount & tab &\ line 1 of fld ("Ingredient" & i) &\ returnChar to file myFileName else if includeBatch then write line 1 of fld ("Ingredient" & i) & tab &\ line 1 of fld ("Amount" & i) & tab & line i of fld "Batch" & returnChar to file myFileName else write line 1 of fld ("Ingredient" & i) & tab &\ line 1 of fld ("Amount" & i) & returnChar to file myFileName end if end if end repeat if AmountFirst then if includeBatch then write fld "TotBatch" & tab & fld "lb/gm" && "Total Batch" & returnChar to file myFileName else write fld "TotAmt" & tab & "%" & "Total" & tab & returnChar to file myFileName else if includeBatch then write fld "totAmt" & tab & "%" & "Total" & tab & fld "TotBatch" & tab & fld "lb/gm" && "Total Batch" & returnChar to file myFileName else write "Totals:" & tab & fld "totAmt" & " %" & tab & returnChar to file myFileName end if if fld "ingredient11" is not empty then write returnChar & "Also add:" & returnChar to file myFileName repeat with i=11 to 14 if fld ("Ingredient" & i) is empty then exit repeat if AmountFirst then if includeBatch then put line i of fld "batch2" into myAmount else put line 1 of fld ("Amount" & i) into myAmount repeat addSpaces if the number of chars of myAmount < addSpaces then put space before myAmount else exit repeat end repeat end if if amountFirst then write myAmount & tab & line 1 of fld ("Ingredient" & i) & returnChar to file myFileName else if includeBatch then write line 1 of fld ("Ingredient" & i) & tab & line 1 of fld ("Amount" & i) & tab & line i of fld "batch2" & returnChar to file myFileName else write line 1 of fld ("Ingredient" & i) & tab & line 1 of fld ("Amount" & i) & returnChar to file myFileName end if end repeat end if write return to file myFileName if fld "Comments" is not empty then put fld "comments" into myComments write returnChar & "Comments:" & returnChar to file myFileName repeat get offset(quote,myComments) if it>0 then put empty into char it of myComments else exit repeat end repeat repeat with i=1 to the number of lines of myComments write line i of myComments & returnChar to file myFileName end repeat end if if fld "Hazards" is not empty then write returnChar & "Possible Health Hazards:" & returnChar to file myFileName repeat with i=1 to the number of lines of fld "Hazards" write line i of fld "Hazards" & returnChar to file myFileName end repeat end if if fld "ShrinkDry" is not empty then write return & "Drying Shrinkage: " & fld "ShrinkDry" & "%" to file myFileName end if if fld "ShrinkFired" is not empty then write return & "Firing Shrinkage: " & fld "ShrinkFired" & "%" to file myFileName end if if fld "ShrinkALL" is not empty then write return & "Overall Shrinkage (drying + firing): " & fld "ShrinkALL" & "%" to file myFileName end if write return & "Estimated Thermal Expansion =" && fld "thermalExpansion" & "x10-6 /deg. C" & returnChar to file myFileName if includeAnalysis is true then write returnChar & "Unity Formula for " & fld 1 & ":" & returnChar to file myFileName put "K2O ,Na2O,CaO ,MgO ,Li2O,BaO ,PbO ,ZnO ,CuO ,CoO ,NiO ,SrO "\ into ROItems put "Al2O3,B2O3 ,Fe2O3,P2O5 ,Sb2O3,Cr2O3,V2O5" into R2O3Items put "SiO2 ,TiO2 ,ZrO2 ,SnO2 ,MnO2 ,F ,Si:Al Ratio" into RO2Items put empty into myAnalysis put empty into myRO put empty into myRO2 put empty into myR2O3 repeat with i=1 to 12 if line i of fld "R2O" is not empty then put line i of fld "R2O" && item i of ROitems \ & return after myRO if line i of fld "RO2" is not empty then put tab & line i of fld "RO2" && item i of RO2Items \ & return after myRO2 if line i of fld "R2O3" is not empty then put tab & line i of fld "R2O3" && item i of R2O3Items \ & return after myR2O3 end repeat repeat with i=1 to 12 if line i of MyRO is not empty or line i of MyRO2 is not empty\ or line i of MyR2O3 is not empty then put line i of myRO & line i of MyR2O3 & \ line i of MyRO2 & returnChar after myAnalysis else next repeat end repeat write myAnalysis to file myFileName if fld "PercentAnalysis" is empty then send mouseup to btn "Percent Analysis" write returnChar & "Percentage Analysis for " & fld "Name" & ":" & returnChar to file myFileName repeat with i=1 to the number of lines of fld "PercentAnalysis" write line i of fld "PercentAnalysis" & returnChar to file myFileName end repeat -- else -- put "SiO2,Al2O3,Fe2O3,TiO2,K2O,Na2O,Ca2O,MgO,Li2O,P2O5,MnO,S,F2,L.O.I" into OxideItems -- write returnChar & "Analysis for " & fld "Name" & ":" & returnChar to file myFileName -- repeat with i=1 to 14 -- if line i of fld "PercentAnalysis">0 -- then write tab & line i of fld "PercentAnalysis" && "%" &&\ -- item i of OxideItems & returnChar to file myFileName -- end repeat -- end if end if write return & return to file myFileName end MakeTextFile on importInsight myFileName if there is a bg btn "Import Insight" then send ("importInsight" && quote & MyFileName & quote) to bg btn "Import Insight" -- hidden button else answer "Go to any Glaze or Clay card to import an Insight recipe." end importInsight on saveInsight put line 1 of fld "Name" into myGlazeName put fld "cone" into myCone put ". Surface: " into SurfaceUse -- else if the short name of this bg is "Clays" then -- put line 1 of fld "ClayName" into myGlazeName -- put fld "ClayCone" into myCone -- put ". Best for: " into SurfaceUse put char 1 to 28 of myGlazeName into myFileName --put createHGFile(myFileName,IRCP) into myFileName set fileType to "IRCPTEXT" ask file "Save this glaze as an Insight file:" with myFileName & ".rcp" if it is empty then exit saveInsight put it into myFileName open file myFileName write " 4 " & return & "RCP" & return & "STAN.MDT" & return & myGlazeName & return to file myFileName repeat with i=1 to 14 put ("Ingredient" & i) into myIngred put ("Amount" & i) into myAmount if fld myIngred is empty then exit repeat write fld myIngred & return to file myFileName write " " & fld myAmount & " " & return to file myFileName end repeat -- repeat with i=25 to 32 -- if fld i is empty then exit repeat -- if i mod 2 >0 then -- write " " & fld i & return to file myFileName -- else write " " & fld i & " " & return to file myFileName -- end repeat write "EOF" & return & " 0 " & return to file myFileName put "NOTES" & return & "" & myCone && "Firing: " & fld "Firing" & return & fld "Color" && SurfaceUse & fld "surface" & return & fld "Comments" & "ENDNOTES" & return & " " & return into GlazeNotes write char 1 to 255 of glazeNotes to file myFileName close file myFileName if the number of chars of glazeNotes >255 then answer "Insight will only allow 255 characters in the notes field," & return & "so the comments of this glaze will be abbreviated." & \ return & "Any important information should be included in the first sentence" & return & "or two of the HyperGlaze comments field to be exported." end saveInsight function stripSpaces myText -- 1990 R. Burkett current 11/10/90 repeat with i= 1 to the number of lines of myText repeat if last char of item 1 of line i of myText is " " then delete last char of item 1 of line i of myText else exit repeat end repeat repeat if first char of item 1 of line i of myText is " " then delete first char of item 1 of line i of myText else exit repeat end repeat end repeat repeat put offset(" ",mytext) into doubleSpaces if doubleSpaces > 0 then delete char doubleSpaces of myText else exit repeat end repeat return myText end stripSpaces on SendGlaze CardKind set cursor to watch put empty into myGlaze put empty into myCdFlds repeat with i=1 to the number of flds if the short name of fld i is "Comments" then put fld i into myComments put tab after myGlaze next repeat else put fld i & tab after myGlaze end repeat repeat with i=1 to the number of cd flds put cd fld i & tab after myCdFlds end repeat put the loc of cd fld "TotAmt" into AmtLoc put the loc of cd fld "TotBatch" into BatchLoc put the loc of cd fld "Totals" into TotLoc answer file "Select the HyperGlaze stack to save a copy of this glaze:" of type "STAK" if the result is not empty then exit sendGlaze lock screen go to stack it if there is no bg "Glazes" then answer "Sorry, the stack you chose was not the right kind to store glaze recipes. You must choose a copy of HyperGlaze." go back exit sendGlaze end if go to first cd of bg CardKind unlock screen if the result is not empty then answer "Sorry, this is not a HyperGlaze stack." unlock screen exit sendGlaze end if doMenu "New Card" if the result is not empty then exit sendGlaze repeat with i=1 to the number of flds put offset(tab,myGlaze) into endChar get char 1 to endChar of myGlaze delete last char of it put it into fld i delete char 1 to endChar of myGlaze end repeat put myComments into fld "Comments" repeat with i=1 to the number of cd flds put offset(tab,myCdFlds) into endChar get char 1 to endChar of myCdFlds delete last char of it put it into cd fld i delete char 1 to endChar of myCdFlds end repeat set the loc of cd fld "TotAmt" to AmtLoc set the loc of cd fld "TotBatch" to BatchLoc set the loc of cd fld "Totals" to TotLoc put "True" into fld "IndexMe" end SendGlaze on BlendGlaze put empty into myAmts put empty into myIngreds answer "Send this recipe to Blender as glaze 'A' or 'B'?" with "Cancel" or "Glaze A" or "Glaze B" if it is "Cancel" then exit BlendGlaze put it into whichGlaze answer "Include colorants in blend?" with "Cancel" or "Base Glaze" or "Include Color" if it is "Cancel" then exit BlendGlaze put it into myRecipe put fld "Name" into GlazeName repeat with i=1 to 10 set cursor to busy put ((i*2)+3) into myFld if fld myFld is empty then exit repeat put fld myFld & return after myIngreds put fld (myFld+1) & return after myAmts end repeat if myRecipe is "Include Color" then repeat with i=11 to 14 set cursor to busy put ((i*2)+3) into myFld if fld myFld is empty then exit repeat put fld myFld & return after myIngreds put fld (myFld+1) & return after myAmts end repeat end if push card lock screen lock recent lock messages go to card "GlazeBlender" of stack "Potter's Friend" if whichGlaze is "Glaze A" then put GlazeName into cd fld 1 repeat with i= 1 to 14 set cursor to busy put ((i*2)) into myFld put line i of myIngreds into cd fld myFld put line i of myAmts into cd fld (myFld+1) end repeat else put GlazeName into cd fld 30 repeat with i= 1 to 14 set cursor to busy put ((i*2)+29) into myFld put line i of myIngreds into cd fld myFld put line i of myAmts into cd fld (myFld+1) end repeat end if pop card unlock screen unlock recent unlock messages answer "'" & fld 1 && "' sent to Glaze Blender." end BlendGlaze on opencard if the short name of this stack is "Clays" then MakeClayGlobals if the hilite of btn "Graph UMF" is true then send "adjustGraph" to btn "Graph UMF" if fld "PercentAnalysis" is empty and fld "RO2" is not empty then send mouseup to btn "Percent Analysis" end if pass opencard end opencard on closecard if the short name of this stack is "Clays" then global importingGlazes,importingGlazeBase if importingGlazes is true then exit closecard if importingGlazeBase is true then exit closecard if fld "name" of this card of stack "Clays" is empty then put "?" into fld "name" if fld "Cone" of this card of stack "Clays" is empty then ask "Please enter a cone number for this glaze: " & return & line 1 of fld "name" if it is not empty then put it into fld "cone" else exit closeCard answer "This glaze (" & line 1 of fld "name" & ") has not been indexed!" end if end if if fld "indexMe" contains "true" then put char 1 to 36 of line 1 of fld "name" into NewClay put the short id of this cd into NewID put fld "C" & line 1 of fld "Cone" into NewCone lock screen push cd set lockmessages to true go to stack "Clay Index" set lockmessages to false indexNewCard NewClay,NewID,NewCone pop cd put empty into fld "IndexMe" unlock screen end if end if pass closecard end closecard on makeClayGlobals global gClayName,gClayCone,gClaySurface,gCIngredList,gCAmounts,gCColorants,gCColorAmts,gCR2O,gCR2O3,gCRO2,gCPercent put line 1 of fld "name" into gClayName put line 1 of fld "cone" into gClayCone put line 1 of fld "surface" into gClaySurface put fld "R2O" into gCR2O put fld "R2O3" into gCR2O3 put fld "RO2" into gCRO2 put fld "PercentAnalysis" into gCPercent set numberformat to 0 put empty into gCIngredList put empty into gCAmounts put empty into gCColorants put empty into gCColorAmts repeat with i=1 to 10 put "ingredient" & i into myField if fld myField is not empty then put field myField & return after gCIngredList put "amount" & i into myAmt put fld myAmt & return after gCAmounts end if end repeat repeat with i=11 to 14 put "ingredient" & i into myField if fld myField is not empty then put field myField & return after gCColorants put "amount" & i into myAmt put fld myAmt & return after gCColorAmts end if end repeat end makeClayGlobals on indexNewCard NewClay,NewID,NewCone put word 1 of NewCone into myCone if char 1 of myCone is "C" then delete char 1 of myCone if myCone > 7 and char 1 of myCone is not "0" then put "Highfire" into myField set the menuHistory of btn "whichIndex" to 3 else if myCone >1 and char 1 of myCone is not "0" then put "Midrange" into myField set the menuHistory of btn "whichIndex" to 2 else put "lowfire" into myField set the menuHistory of btn "whichIndex" to 1 end if put myField & "ID" into MyID -- put the short id of this cd into NewID put "*" & NewClay && NewCone & return before line 1 of fld myField put NewID & return before line 1 of fld MyID end indexNewCard on doGlazeLimits global myflux Put fld "R2O" into myRO put fld "R2O3" into myR2O3 put fld "RO2" into myRO2 Put fld "Name" into myGLaze put fld "Cone" into myCone put fld "Surface" into mySurface go to cd "limits" of stack "Glaze Calculator IIx" -- if the visible of cd fld "Na" is false -- then doMenu "Combine K & Na" put myGlaze into cd fld "Name" put myCone into cd fld "Cone" put "K,Na,Ca,Mg,Li,Ba,Pb,Zn" into ROList repeat with i=1 to 8 put line i of myRO into cd fld (item i of ROList) end repeat put line 12 of myRO into cd fld "Sr" put line 1 of myR2O3 into cd fld "Al" put line 2 of myR2O3 into cd fld "B" if there is a cd fld "P" then put line 4 of myR2O3 into cd fld "P" send closefield to cd fld "P" end if put line 1 of myRO2 into cd fld "Si" set numberformat to 0.0 put cd fld "Si"/cd fld "Al" into cd fld "Al/Si Ratio" if mySurface contains "Mat" then set the name of bg btn id 15 to "Matte" else set the name of bg btn id 15 to "Glossy" if cd fld "Pb">0 and the icon of bg btn "No Lead" is 30913 then send mouseup to bg btn "No Lead" put empty into myFlux send "AdjustAmounts" to cd "Limits" send "setGlazeLimits" to cd "Limits" send closefield to cd fld "B" send closefield to cd fld "P" send closefield to cd fld "Al" send closefield to cd fld "Si" end DoGlazeLimits on clearTotals set the loc of cd fld "totals" to 130,223 set the loc of cd fld "TotAmt" to 198,223 set the loc of cd fld "TotBatch" to 265,223 put "Batch?" into cd fld "TotAmt" put empty into cd fld "totals" put empty into fld "Batch" put empty into fld "Batch2" end clearTotals on goToGlazeCalculator if the optionkey is down then put True into IncludeColor else put empty into IncludeColor push cd answer "Do you want to use this Unity Formula?" with "Yes" or "No" or "Cancel" if it is "cancel" then exit goToGlazeCalculator if it is "yes" then set cursor to watch put empty into transfer put fld R2O into R2Otemp put fld R2O3 into R2O3Temp put fld RO2 into RO2Temp put fld "Name" into glazeName put fld "Cone" into ConeNumber repeat with i=1 to 10 set numberformat to 0 put "ingredient" & i into whichField set numberformat to 0.000 if fld whichField is empty then exit repeat else put fld whichField & "," after transfer end repeat if includeColor is true then repeat with i=11 to 14 set numberformat to 0 put "ingredient" & i into whichField set numberformat to 0.000 if fld whichField is empty then exit repeat else put fld whichField & "," after transfer end repeat put empty into includeColor end if delete last char of transfer go to stack "Glaze Calculator" if the result is "not found" then exit goToGlazeCalculator answer "Erase glaze currently in calculator?" with "OK" or "Cancel" if it is "Cancel" then exit goToGlazeCalculator if "Glaze Calculator" is not in the short name of this stack then exit goToGlazeCalculator set cursor to watch clearRecipe clearUnity ClearAmounts put glazeName into fld "GlazeName" put ConeNumber into fld "Cone" repeat with i=1 to 14 if item i of transfer is empty then exit repeat else put item i of transfer & return after fld 3 end repeat if the hilite of button "Combined K & Na" is true then send mouseup to button "Combined K & Na" put "K,Na,Ca,Mg,Li,Ba,Pb,Zn,Cu,Co,Ni,Sr" into ROList repeat with i=1 to 12 put line i of R2Otemp into fld (item i of ROList) end repeat put "Al,B,Fe,P,Sb,Cr,V" into R2O3List repeat with i=1 to 7 put line i of R2O3temp into fld (item i of R2O3List) end repeat put "Si,Ti,Zr,Sn,Mn,F" into RO2List repeat with i=1 to 6 put line i of RO2temp into fld (item i of RO2List) end repeat send percentageAnalysis to stack "glaze calculator" click at loc of fld "GlazeName" else go to stack "Glaze Calculator" end if End goToGlazeCalculator on showGlazeColor hide message if checkForColorQD() then if there is a window "Glaze Color" then show window "Glaze Color" else glazeColorWindoid,"Glazes" show Window "Glaze Color" at 307,78 end if else answer "Sorry, this Mac does not support color." end showGlazeColor on calculateMyGlaze set the cursor to busy Global howMany, calcAll, BailOut,myResult if the optionKey is down then put 14 into HowMany else put 10 into howMany if the hilite of bg btn "Graph UMF" is true then send mouseup to bg btn "Graph UMF" if fld "ingredient1" is empty then answer "Please fill in an ingredient name." with "OK" exit calculateMyGlaze end if if fld "amount1" is empty then answer "Please fill in an amount for the ingredient." with "OK" exit calculateMyGlaze end if if the shiftKey is not down then doPercent donewBatch if the hilite of bg btn "LockUMF" is not true then doUnity else if calcAll is not "quick Calc" then answer "This unity formula is locked, the unity formula for this glaze will not be calculated." If bailOut is not empty then put empty into BailOut exit calculateMyGlaze else if line 1 of fld "RO2" is not empty and the hilite of bg btn "LockUMF" is not true then doThermalExpansion send mouseup to bg btn "Batch Cost" send mouseup to bg btn "Si/Al" send CalcPercentAnalysis to btn "Percent Analysis" end if end if put empty into BailOut else doPercent donewBatch if the hilite of bg btn "LockUMF" is not true then doThermalExpansion send mouseup to bg btn "Batch Cost" send mouseup to bg btn "Si/Al" end if end if put empty into CalcAll end calculateMyGlaze Function GetIngredientList HowMany if the hilite of bg btn "Comments" is true then send mouseup to bg btn "Unity Formula" put empty into myIngredientList set the numberFormat to 0 put GlazeIngredientList (howMany) into myingredientList --xcmd set the numberformat to 0.000 put stripSpaces(myIngredientList) into myIngredientList return myIngredientList end GetIngredientList on CleanUp UnknownMaterials global UnknownMaterialsFile pop cd set lockrecent to false set lockmessages to false unlock screen put fld "Name" & " " & fld "Cone" & return before unknownMaterials if UnknownMaterialsFile is empty then ask file "Save list of unknown materials as:" with "Unknown Materials List" if the result is not empty then exit CleanUp put it into MyFileName else put UnknownMaterialsFile into MyFileName open file MyFileName read from file MyFileName until "" write unknownMaterials to file MyFileName close file MyFileName end CleanUp on deleteCard global gDeleteAllCards if gDeleteAllCards is not true then set cursor to watch if fld "indexMe" contains "true" then exit deleteCard put the id of this cd into CardID put true into fld "indexMe" push cd Lock screen set lockrecent to true go to stack "Clay Index" find empty find string CardID if the result is not empty then exit deleteCard -- if the short name of the foundfield is "IDPrintList" then -- pop cd -- unlock screen -- set lockrecent to false -- exit deletecard -- end if -- put the short name of the foundField && the foundLine put the short name of the foundField into WhichIndex if WhichIndex is "HighfireID" then put "Highfire" into indexFld else if whichIndex is "MidrangeID" then put "Midrange" into indexFld else put "Lowfire" into indexfld put word 2 of the FoundLine into IndexLine delete the Foundline delete line IndexLine of fld Indexfld pop cd unlock screen set lockrecent to false end if end deleteCard on NewCard global NewHGStack, importingGlazes -- if new stack if NewHGStack is not empty then exit newCard if importingGlazes is not empty then exit newCard if there is a cd fld "Totals" then exit newCard set the cursor to busy choose browse tool unlock screen put "oxidation or reduction" into fld "firing" put "Untested" into fld "Tested" put "gm" into fld "lb/gm" put "C" into fld "c" put "true" into fld "IndexMe" --FIX THIS! if showlines of fld "name" is false then send mouseup to btn "show lines" end NewCard on doThermalExpansion send mouseup to bg btn id 99 end doThermalExpansion on doCompareFormulas hide message put fld "name" into GlazeName put fld "cone" into ConeNumber put fld "R2O" into fld "compareR2O" put fld "R2O3" into fld "compareR2O3" put fld "RO2" into fld "compareRO2" hide fld "BatchCost" hide bg btn "Batch Cost" show fld "backdrop" show fld "CompareR2O" show fld "CompareR2O3" show fld "CompareRO2" show fld "R2O3Labels" show fld "R2OLabels" show fld "RO2Labels" show fld "CompareName" show bg btn "HideCompare" put "Unity Formula for:" & return & glazeName && "- Cone " & \ ConeNumber & return & " -- click to hide --" into fld "compareName" unlock screen end doCompareFormulas on showHazards if field "Hazards" is empty then hide button Hazard else if the hilite of bkgnd button "comments" is false then send mouseup to bkgnd button "Unity Formula" end if end showHazards on importascii myFileName send "importascii" && quote & myFileName & quote to bg btn "import ascii" end importascii -- this button is hidden on doUnity global calcAll,UnlockIndex,NumberOfColorants,Whichfield,gWhichStack,bailOut,selectedWord,myResult,howMany,NumberOfIngredients hide message if fld "Ingredient1" is not empty then if fld "Amount1" is not empty then global IngredientList,hazardInfo,UnitCost,firstcolorant global lastingredient put empty into UnlockIndex put empty into myResult put empty into hazardInfo put empty into UnitCost put empty into bailOut put getIngredientList(HowMany) into IngredientList push cd lock screen set lockmessages to true set lockrecent to true go stack "Materials" if the result is not empty or there is not a fld "CompiledAnalysis" then Answer "There is a serious problem with the Materials stack." put empty into ingredientList put true into bailout exit doUnity end if set cursor to busy hide message put empty into theOxides repeat 26 put return after theOxides end repeat put GlazeOxideAmountsX (ingredientList,TheOxides,firstColorant) into TheOxides if myResult is not empty then put item 2 of myResult into i put item 3 of myResult into ProblemIngred play boing -- Mat NotFound if calcAll is "quick Calc" then put Tab & ProblemIngred & return after UnknownMaterials put empty into myResult put true into BailOut else pop cd set lockmessages to false set lockrecent to false unlock screen answer "Unable to locate ingredient '" & ProblemIngred & "'." &\ return & return & "Find " & ProblemIngred & " in Materials Index?" \ with "Cancel" or "Go To Index" if it is "Cancel" then put empty into howMany put empty into myResult put empty into UnlockIndex put empty into Whichfield put true into BailOut exit DoUnity end if if it is "Go To Index" then put "unlocked" into UnlockIndex put true into BailOut push cd go to stack "Materials Index" answer "Find the correct name for '" & ProblemIngred & ",'in the Materials Index" & return & "and go to that Materials card." & return & "Then click 'Insert in Recipe' on the Materials card."\ & return & return & "Or return to the recipe and type in the correct ingredient name." put "Find correct name for:" & return & ProblemIngred into fld "LookFor" set the numberFormat to 0 put item 2 of myResult into LastLine if LastLine>firstColorant then put "ingredient" & trunc(LastLine-firstColorant+11) into Whichfield else put "ingredient" & trunc(LastLine) into Whichfield end if put "Clays" into gWhichStack put empty into myResult exit doUnity end if end if end if if bailOut is true then cleanUp UnknownMaterials put empty into bailout exit DoUnity end if pop cd set lockmessages to false set lockrecent to false unlock screen -- End Mat retrieval CalculateGlazeX IngredientList,TheOxides,LastIngredient -- Xcmd -- CalculateClayUnity IngredientList,TheOxides,LastIngredient put HazardInfo into fld "Hazards" put UnitCost into fld "Cost" put empty into howMany else end if else end if end doUnity on CalculateGLazeX IngredientList,TheOxides,LastIngredient -- 1990, 1993, 1995, 1998 Richard Burkett -- this is an experimental version for the unity formula calc. 12/23/93 -- recompiled 9/1995, modified 5/29/98 set numberformat to 0.00000000 put empty into myMolFormula put empty into totSum repeat with x=1 to 26 put "0.0" & return after myMolFormula end repeat repeat with i=1 to LastIngredient put (item 26 of line i of theOxides) into temp -- molecular Wt. if temp>0 then put (last item of line i of IngredientList)/temp into molEquiv else put (0.0) into molEquiv repeat with x=1 to 25 add (item x of line i of theOxides)*molEquiv to line x of myMolFormula end repeat end repeat repeat with i= 1 to 12 add line i of MyMolFormula to TotSum end repeat if TotSum > 0 then put empty into fld "R2O" put empty into fld "R2O3" put empty into fld "RO2" repeat with x= 1 to 25 put (line x of MyMolFormula) into temp if temp/totsum>0 then put temp/totsum into line x of MyMolFormula end repeat set numberformat to 0.000 repeat with i=1 to 12 if (line i of myMolFormula)>0 then put (line i of myMolFormula)*1 & return after myfluxes else put return after myfluxes end repeat repeat with i=13 to 19 if (line i of myMolFormula)>0 then put (line i of myMolFormula)*1 & return after myStabilizers else put return after myStabilizers end repeat repeat with i=20 to 25 if (line i of myMolFormula)>0 then put (line i of myMolFormula)*1 & return after myGlassFormers else put return after myGlassFormers end repeat put myFluxes into fld "R2O" put myStabilizers into fld "R2O3" put myGlassFormers into fld "RO2" else put empty into fld "R2O" put empty into fld "R2O3" put empty into fld "RO2" answer "This recipe has no flux and cannot be calculated in standard UMF format." end if end calculateGlazeX function GlazeOxideAmountsX ingredientList, theOxides -- used by the bkgnd script -- 1993 Richard Burkett -- this is an experimental version for the unity formula calculation 12/23/93 -- recompiled 9/1995 global SkipIt, FromFormula,HazardInfo,UnitCost, myResult global lastingredient put empty into theOxides put empty into myResult repeat with i=1 to 14 if line i of IngredientList is empty then exit repeat put item 1 of line i of IngredientList into myMaterial put true into skipIt put true into FromFormula put empty into firstCard find empty find whole myMaterial in fld "material" if the result is not empty then if i> lastIngredient then put "X" & return after unitCost next repeat else put "not found," & i & "," & item 1 of line i of ingredientList into MyResult exit repeat end if else if myMaterial contains field "Material" then put empty into myResult else put the number of this card into firstcard go next repeat until myMaterial contains field "Material" find whole myMaterial in field "Material" if the number of this card is firstCard then if i>= lastIngredient then put "X" & return after unitCost exit repeat else put "not found," & i & "," & item 1 of line i of ingredientList into MyResult exit repeat end if if fld "cost" is not empty --find out if there is a price then put fld "Cost" & return after UnitCost else put "X" & return after unitCost next repeat else if myMaterial contains field "Material" then exit repeat end repeat end if if MyResult is not empty then exit repeat put fld "CompiledAnalysis" & return after theOxides if the hilite of bg btn "health hazard" is true then put fld "Material" & ": " & fld "HealthHazards" & return after HazardInfo if fld "cost" is not empty --find out if there is a price then put fld "Cost" & return after UnitCost else put "X" & return after unitCost end repeat return theOxides end GlazeOxideAmountsX on FindPercent -- 1990-1992 Richard Burkett -- this is the current version 11/20/92, modified 6/18/2004 - was FindPercent put 0 into i -- put 0 into totalsLoc put 0 into whichField put 0.00 into MyTotal put 0.00 into totalPercent put 0.00 into MyField repeat with i = 1 to 10 set numberformat to 0 put ("amount" & i) into WhichField if fld WhichField is not empty then put (fld whichField) into MyField set numberformat to 0.00 add myfield to MyTotal else exit repeat end repeat if fld "TotBatch" =100 or fld "totBatch" is empty then put myTotal into fld "TotBatch" set numberformat to 0 repeat with i=1 to 10 put ("amount" & i) into WhichField set numberformat to 0.00 put (fld whichField) into MyField put ((MyField/MyTotal)*100.0) into MyField add MyField to TotalPercent put MyField into field WhichField set numberformat to 0 put ("amount" & (i+1)) into MyNewFieldNum if field MyNewFieldNum is empty then exit repeat end repeat put totalPercent into field "TotAmt" -- put whichfield into totalsLoc repeat with i=11 to 14 set numberformat to 0 put ("amount" & i) into WhichField set numberformat to 0.00 put (field whichField) into MyField if MyField > 0.0 then put ((MyField/MyTotal)*100.0) into MyField put MyField into fld WhichField else exit repeat end repeat end findPercent Function GlazeIngredientList howMany -- used by bkgnd script "Glazes" -- 1990-1993 Richard Burkett -- this is the current version 8/18/93 global AmountList,NumberOfIngredients,FirstColorant global LastIngredient put empty into myIngredientList put empty into myAmountList put empty into myNumberOfIngredients put empty into myFirstColorant put empty into myLastIngredient -- First assemble a list of ingredients repeat with i=1 to 10 put ("ingredient" & i) into myIngredient put ("Amount" & i) into myAmount if fld myIngredient is not empty and fld myAmount is not empty and char 1 of fld myIngredient is not "(" -- build list then put i into myNumberOfIngredients put fld myIngredient & "," & fld myAmount & return after myIngredientList else exit repeat end if end repeat put mynumberOfIngredients into myLastIngredient put myNumberOfIngredients+1 into myFirstColorant -------assemble colorant list repeat with i=11 to 14 put ("ingredient" & i) into myIngredient put ("Amount" & i) into myAmount if fld myIngredient is not empty and fld myAmount is not empty and char 1 of fld myIngredient is not "(" then put fld myIngredient & "," & fld myAmount & return after myIngredientList add 1 to myNumberOfIngredients end if end repeat if howMany>10 --14 then put myNumberOfIngredients into myLastIngredient end if put myNumberOfIngredients into NumberOfIngredients put myFirstColorant into FirstColorant put myLastIngredient into LastIngredient return myIngredientList end GlazeIngredientList on deleteAllCards global gDeleteAllCards answer warning "Really delete ALL recipes in the Clays stack?" & return &\ "WARNING: You cannot undo deleting ALL recipes." & return &\ "ALL recipes will be removed permanently." with "Delete All" or "Cancel" if it is "Cancel" then exit deleteAllCards put true into gDeleteAllCards repeat (the number of cards of stack "Clays")-1 set cursor to busy delete this card end repeat create card go prev delete this card put empty into gDeleteAllCards send mouseup to btn "Update Index" of stack "Clay Index" answer "All cards in the Clays stack have been deleted!" end deleteAllCards on importGlazeFile if the platform is "MacOS" then if the optionKey is down then answer file "Select a CLAYS (.HGII or .HGZ) file to open:" else answer file "Select a CLAYS (.HGII or .HGZ) file to open:" of type "GLAZ" else if the platform is "Win32" then answer file "Select a CLAYS (.HGII or .HGZ) file to open:" with filter "HyperGlaze files,*.HGZ;*.HGII" end if if the Result is not empty then exit importGlazeFile put it into MyFileName if MyFileName is empty then exit importGlazeFile put the number of chars of line 1 of MyFileName into NameSize put char (nameSize-4) to NameSize of line 1 of MyFileName into signature if "HGII" is in signature or ".HGZ" is in signature then set cursor to busy open file MyFileName for read read from file MyFileName until tab if it is empty then close file MyFileName answer "Sorry, there was nothing in that file." exit importGlazeFile end if if "NewFormat" is in it then put false into OldRecordSeparator put empty into TempFirstField else put true into OldRecordSeparator put it into tempFirstField end if if OldRecordSeparator then read from file MyFileName until "" else read from file MyFileName until numToChar(30) put it into MyGlaze if MyGlaze is empty then close file MyFileName exit importGlazeFile else put tab into last char of MyGlaze put tempFirstField before MyGlaze doMenu "New Card" end if put "1 Name,2 cone,3 Color,4 Surface,5 Ingredient1,6 Amount1,7 Ingredient2,8 Amount2,9 Ingredient3,10 Amount3,11 Ingredient4,12 Amount4,13 Ingredient5,14 Amount5,15 Ingredient6,16 Amount6,17 Ingredient7,18 Amount7,19 Ingredient8,20 Amount8,21 Ingredient9,22 Amount9,23 Ingredient10,24 Amount10,25 Ingredient11,26 Amount11,27 Ingredient12,28 Amount12,29 Ingredient13,30 Amount13,31 Ingredient14,32 Amount14,33 Batch,34 Batch2,35 PercentAnalysis,36 Comments,37 Hazards,38 Firing,39 Tested,40 XXX,41 XXX,42 Date,43 lb/gm,44 C,45 XXX,1 Totals,2 TotAmt,3 TotBatch,49 R2O,50 R2O3,51 RO2,52 WAScolorPatch,53 cost,54 ShrinkDry,55 ShrinkFired,56 ShrinkALL" into OldFldNames repeat set cursor to busy put empty into transfer repeat with i=1 to 56 if MyGlaze is empty then exit repeat put (char 1 to offset (tab,MyGlaze) of MyGlaze) into temp delete last char of temp delete char 1 to offset (tab,MyGlaze) of MyGlaze if i=40 or i=41 or i=45 or i=52 then next repeat if i=49 or i=50 or i=51 then if offset(",",myGlaze)>0 then next repeat end if if temp is (quote & quote) then put empty into fld (word 2 of (item i of OldFldNames)) else put temp into fld (word 2 of (item i of OldFldNames)) end repeat if OldRecordSeparator then read from file MyFileName until "" else read from file MyFileName until numToChar(30) put it into myGlaze if myGlaze is empty then close file MyFileName exit repeat else put tab into last char of myGlaze create card end if end repeat answer "Update the index now?" & return & "(updating can take a few minutes if there are many clay bodies)" with "Later" or "Update" if it is "Update" then send mouseup to btn "Update Index" of stack "Clay Index" end if else answer "That was not a HyperGlaze IIx Clays file, sorry! (HyperGlaze files must have '.HGII' or '.HGZ' file extension)" exit importGlazeFile end if end importGlazeFile on CopyRecipeAsText pWhich -- new script 7-8-2004 put "Claybody Name: " & line 1 of fld "Name" & return into myRecipe put "Cone: " & line 1 of fld "Cone" & return after myRecipe put "Color: " & line 1 of fld "Color" & return after myRecipe put "Typical Usage: " & line 1 of fld "surface" & return after myRecipe put "Firing: " & line 1 of fld "Firing" & return after myRecipe put "Testing: " & line 1 of fld "Tested" & return after myRecipe put return & "Base Glaze: " & tab & "Pct Amount" & tab & "Batch" & return after myRecipe set numberformat to 0 repeat with i=1 to 10 if fld ("Ingredient" & i) is not empty then put line 1 of fld ("Ingredient" & i) & tab & fld ("amount" & i) & tab & line i of fld "Batch" & return after myRecipe end if end repeat put "TOTALS: " & tab & fld "TotAmt" & tab & fld "totBatch" & return & return after myRecipe if fld "Ingredient11" is not empty then put "Also add these colorants and additions:" & return after myRecipe repeat with i=11 to 14 if fld ("Ingredient" & i) is not empty then put line 1 of fld ("Ingredient" & i) & tab & line 1 of fld ("amount" & i) & tab & line (i-10) of fld "Batch2" & return after myRecipe end if end repeat end if if pWhich is "Comments" or pWhich is "Analysis" then put return & "Comments:" & return & fld "Comments" & return after myRecipe put return & "Health Hazards:" & return & fld "hazards" & return after myRecipe end if if pWhich is "analysis" then put return & "Percentage Analysis by weight" & return after myRecipe put fld "PercentAnalysis" after myRecipe end if set clipboardData ["text"] to empty set clipboardData ["text"] to myRecipe end copyRecipeAsText MY Claysq W helvetica W helvetica U helvetica U helveticaW helveticaU helvetica U helvetica Ucourier ULucida Grande WArialWArial UArial UArial UAmerican Typewriter U Courier New UCourierW Arial BlackW Arial Black WArialUArial WArialWArial UArial UArial WArial WArialWArial WLucida Grande ClaysMenubarcREVGeometryCachestackID1790cREVTempMaster+windowManagerPlacefalsemenubar ClaysMenubarlinkHiliteColor cantAbortfalse maxWidth520rect130,114,650,717 patterns colors0,0,0 255,255,255 decorations"title,menu,minimize,maximize,closeiconicfalselinkVisitedColorshadowtrue cantDeletefalseid1789altId0 hcAddressingfalsestartUpIconicfalse windowShape0titleClays linkColor cantModifyfalse textStyle maxHeight650underlineLinksstyletopleveldestroyWindowtrue liveresizingfalse passwordscroll22passkeyicon0nameClays resizabletrue alwaysBuffertrueformatForPrintingfalsevisibletruemetalfalse minWidth520 destroyStacktrue textSize textFont dynamicPathsfalse minHeight620cRevStandaloneSettings cREVGeneral debugObjects breakPoints @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ x @ cREVGeometryCacheIDs108810099556213291087679419936118810877678963141260108671537697811421086631406941113310880960300691316108663140694211341086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163393100410955381634031042109553816339410331095538163404104310955381634051044109553816339510341095538163406104510955381633961036108924342087314531095538163407104610955381633971035109553816340810471095538163398103710955381634101049109553816340910481095538163399103810955381634111050108766038809811831095538163412106710955381634131068109553816341410691095538163415106510955381634161010108672403222711531095538163417101110880958331711311109553816341810141095538163419101510955381634201016109553816342110171095538163422101810955381634231019109553816342410201094489753711178510955381634251021109553816342610221095538163427102310955381634281024109553816342910251095538163430102610955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163439105310955381634401054109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634501064109553816344910631095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816346010821095538163459108010955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163470109810955381634691108109553816347111111095538163472111210876592063001185109553816347311201095538163474107310955381634751118109553816347612851095538163477128610867244233401144109553816347812871086715840391114310955381634791288109553816348012891095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710887021053241438108809563894413071088702105325143910887021053261440108870210532714411088702105328144210887021053301444108870210532914431088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501088702105337145110944859487731778108777081909112631086714315743114010881134934011330108672278239411471087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108810099556213291087679419936118810877678963141260108671537697811421086631406941113310880960300691316108663140694211341086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163393100410955381634031042109553816339410331095538163404104310955381634051044109553816339510341095538163406104510955381633961036108924342087314531095538163407104610955381633971035109553816340810471095538163398103710955381634101049109553816340910481095538163399103810955381634111050108766038809811831095538163412106710955381634131068109553816341410691095538163415106510955381634161010108672403222711531095538163417101110880958331711311109553816341810141095538163419101510955381634201016109553816342110171095538163422101810955381634231019109553816342410201094489753711178510955381634251021109553816342610221095538163427102310955381634281024109553816342910251095538163430102610955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163439105310955381634401054109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634501064109553816344910631095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816346010821095538163459108010955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163470109810955381634691108109553816347111111095538163472111210876592063001185109553816347311201095538163474107310955381634751118109553816347612851095538163477128610867244233401144109553816347812871086715840391114310955381634791288109553816348012891095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710887021053241438108809563894413071088702105325143910887021053261440108870210532714411088702105328144210887021053301444108870210532914431088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501088702105337145110944859487731778108777081909112631086714315743114010881134934011330108672278239411471087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108810099556213291087679419936118810877678963141260108671537697811421086631406941113310880960300691316108663140694211341086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163393100410955381634031042109553816339410331095538163404104310955381634051044109553816339510341095538163406104510955381633961036108924342087314531095538163407104610955381633971035109553816340810471095538163398103710955381634101049109553816340910481095538163399103810955381634111050108766038809811831095538163412106710955381634131068109553816341410691095538163415106510955381634161010108672403222711531095538163417101110880958331711311109553816341810141095538163419101510955381634201016109553816342110171095538163422101810955381634231019109553816342410201094489753711178510955381634251021109553816342610221095538163427102310955381634281024109553816342910251095538163430102610955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163439105310955381634401054109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634501064109553816344910631095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816346010821095538163459108010955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163470109810955381634691108109553816347111111095538163472111210876592063001185109553816347311201095538163474107310955381634751118109553816347612851095538163477128610867244233401144109553816347812871086715840391114310955381634791288109553816348012891095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710887021053241438108809563894413071088702105325143910887021053261440108870210532714411088702105328144210887021053301444108870210532914431088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501088702105337145110944859487731778108777081909112631086714315743114010881134934011330108672278239411471087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x @ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144x@ cREVGeometryCacheIDs108767941993611881088100995562132910877678963141260108671537697811421086631406941113310866314069421134108809603006913161086631406943113510875275402231181108776916727212611095538163400103910955381634011040109553816340210411095538163403104210955381633931004109553816340410431095538163394103310955381633951034109553816340510441089243420873145310955381633961036109553816340610451095538163397103510955381634071046109553816339810371095538163408104710955381633991038109553816340910481095538163410104910955381634111050109553816341210671087660388098118310955381634131068109553816341410691095538163415106510867240322271153109553816341610101095538163417101110955381634181014108809583317113111095538163420101610955381634191015109553816342110171095538163422101810955381634231019109448975371117851095538163424102010955381634251021109553816342610221095538163427102310955381634281024109553816343010261095538163429102510955381634311027109553816343210281095538163433102910955381634341030109553816343510311095538163436103210955381634371051109553816343810521095538163440105410955381634391053109553816344110551095538163442105610955381634431057109553816344410581095538163445105910955381634461060109553816344710611095538163448106210955381634491063109553816345010641095538163451106610955381634521070109553816345310711095538163454107210955381634551074109553816345610761095538163457107710955381634581079109553816345910801095538163460108210955381634611083109553816346210851095538163463108610955381634641087109553816346510971095538163466110010955381634671101109553816346811071095538163469110810955381634701098109553816347111111095538163472111210955381634731120108765920630011851095538163474107310955381634751118109553816347612851095538163477128610955381634781287108672442334011441095538163480128910955381634791288108671584039111431095538163481129010955381634821291108881690503814551088095991336131510880959833191314108752580082211751086713045716113910888168519751454108752540007511741089385837278145710880956389441307108870210532414381088702105325143910887021053261440108870210532714411088702105328144210887021053291443108870210533014441088702105331144510887021053321446108870210533314471088702105334144810887021053351449108870210533614501094485948773177810887021053371451108671431574311401087770819091126310867227823941147108811349340113301087866967561126410878673699841266108775870367711971088095708747130910880956634691308108881691913614561087767887834125910875267637331180cREVGeometryCacheorder total144xx(( h Glaze Cards cREVGeneral revUniqueID 1086724423340iH  cREVGeneral revUniqueID 1089243420873 label H @MF Xv @M8c1Uy,zF+&S+S *$poa՟z"/vh ĐXT @@+Z[I= <(~ܻLFAk'e! _-Hʄ{AEC/**"@YōTP2 L`!|(F *v"@wQm:M#1Z* /X קPGtkFzc_u ɈAo1@Ek߸@S2$pU%F1WUd~͂ ʥ#=`x)`㌟ϥb=YA@*SB\H 'wrV" 8cx_oJ?r Yy_|^@}" n.K#&(1>Q ʐ u% J` >co+& Lh^,  9s"dg p^@ P8W=f5 !kvAv"grr /§>_d2 M8h2'R*YObT"x)ȼq=) *@J1}D2ۚF ex:^J}x(;'ԆziKj A-XTvGmcu ɾg.@**mpݨ>x-b! a-oOXNS N^D*@ΧLFA, zٴY@G, }PkB=)sLwIPغ\ ̿R nhH`?XCoh`hGߒ$-A Z;TE# 2?#(79IT;*k pd2 MPbd=(ݥFYGX DGtT ܣLFa#sTs";@AΫ*a'QPXwDIu"@qϠeR]LeR]dϰ( cREVGeneral revUniqueID 1095538163396  Handbuilding & Throwing   Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  handbuilding or throwing  Handbuilding & Throwing  Throwing  Throwing  Throwing & Handbuilding  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Slip Casting  Handbuilding & Throwing  Slip Casting  Throwing  Handbuilding & Throwing  Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding  Handbuilding  Handbuilding  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding  Slip Casting  Handbuilding & Throwing  Handbuilding & Throwing  Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding  Slip Casting  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Slip Casting  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding & Throwing  Handbuilding  Slip Casting  Colorhh $@ cREVGeneral revUniqueID 1095538163397  white   very white  white  white/gray/buff  brown  black  White  off white, light gray  light to medium gray/ tan  off white, light gray  dark brown, orange?  Off-White  grayish white  white/ light gray  off white, light gray  off white -ox, light gray -red.  !tan in reduction, beige in oxid.  White to light grey  White  white  black  off white  red  light tan / almost white  turquoise  white  light reddish brown  white  red  white  varied  white  white  rich deep orange brown  rich brown, dark  red  Red   white  red orange  white  red brown  red brown  white  white  white porcelain  red to red brown  red to red brown    red to dark red  Ingredient1 mH Y cREVGeneral revUniqueID 1095538163398  OM-4 Ball Clay  EPK  Grolleg  C-1 Clay  Kentucky Ball Clay  Goldart  Barnard Clay  Grolleg  #6 Tile Clay  #6 Tile Clay  #6 Tile Clay  XX Sagger Clay  Lincoln 60 clay  #6 Tile clay  Greenstripe Fireclay  #6 Tile Clay  #6 Tile Clay  Cedar Heights GoldArt  Potash Feldspar  Grolleg Kaolin  Grolleg  Ocmulgee Clay  #6 Tile Clay  Ranger Red clay  AP Green Fireclay  F-4 Feldspar  Flint  AP Green Fireclay  Kentucky Ball Clay  RedArt Clay  Kentucky Ball Clay  #6 Tile Clay  Talc  #6 Tile clay  Goldart  Goldart  Ocmulgee Clay  RedArt clay  Newman red clay  Grolleg  Talc  EPK  Newman Red Clay  Red Art Clay  #6 Tile Clay  C-1 clay  Grolleg kaolin  RedArt Clay  RedArt Clay  Redart  Fireclay  RedArt clay Amount1 mX 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 Y? cREVGeneral revUniqueID 1095538163399  50.00  25.00  50.00  47.62  17.18  30.00  6.00  18.69  18.00  25.00  25.00  16.67  10.00  22.73  26.00  38.46  18.74  42.50  24.75  30.00  45.00  50.00  20.00  40.00  62.50  37.37  21.05  44.87  18.75  41.67  38.00  35.09  37.50  33.33  30.00  20.00  25.00  75.00  70.00  50.00  47.62  33.33  45.00  62.49  48.60  36.36  15.00  43.48  43.48  43.29  38.46  66.30  Ingredient2 mH h cREVGeneral revUniqueID 1095538163400  Talc  flint  Potash Feldspar  OM-4 ball clay  Hawthorn Bond Clay  Kentucky Ball Clay  AP Green Fireclay  EPK  EPK  OM-4 Ball Clay  OM-4 Ball Clay  EPK  Imco 400 clay  OM-4 ball clay  Silica  OM-4 Ball Clay  EPK  AP Green Fireclay  EPK  EPK  Nepheline Syenite  Pine Lake Fireclay  EPK  RedArt clay  OM-4 Ball Clay  Soda Ash  Neph sy  OM-4 Ball Clay  Hawthorn Bond Clay  Talc  Talc  OM-4 Ball Clay  EPK  Custer feldspar  Pine Lake Fireclay  Pine Lake Fireclay  Redart Clay  OM-4 Ball clay  OM-4 ball clay  Kona F-4 Feldspar  Wollastonite  Ball Clay  RedArt Clay  Ball Clay  Custer Feldspar  OM-4 ball clay  Tile #6 clay  AP Green Fireclay  AP Green Fireclay  XX Sagger Clay  Goldart  Water Amount2 mX 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 h? cREVGeneral revUniqueID 1095538163401  50.00  25.00  25.00  23.81  24.05  20.00  47.00  4.68  18.00  20.00  20.00  17.78  10.00  22.73  24.00  19.23  18.74  42.50  24.75  25.00  10.00  15.00  15.00  25.00  18.75  6.07  26.32  25.64  62.50  13.89  57.00  17.54  22.50  16.67  30.00  20.00  15.00  25.00  15.00  25.00  4.76  23.81  20.00  23.44  30.70  18.18  15.00  34.78  43.48  17.32  38.46  33.70  Ingredient3 mH w cREVGeneral revUniqueID 1095538163402   OM-4 Ball Clay  Flint  EPK  Potash Feldspar  Hawthorn Bond clay  Stoneware Clay  Georgia Kaolin  OM-4 Ball Clay  Grolleg  Grolleg  Avery Kaolin  EPK  EPK  OM-4 Ball Clay  Flint  OM-4 Ball Clay  OM-4 Ball Clay  OM-4 Ball Clay  Custer feldspar  Silica  Goldart  Kentucky Ball Clay  Hawthorn Bond Clay  Talc  Sodium Bicarbonate  Bentonite  Custer feldspar  Talc  Cedar Heights Goldart  EPK  XX Sagger Clay  Martin #5 Ball Clay  OM-4 ball clay  Ocmulgee clay  Kentucky Ball Clay  PBX Clay   nepheline syenite  Pyrax  AP Green Fireclay  Potash Feldspar  Fireclay  Talc  Silica  EPK  EPK  Talc  Talc  fireclay  Kyanite  Amount3 mX 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 w? cREVGeneral revUniqueID 1095538163403   25.00  25.00  23.81  5.15  30.00  23.00  4.68  18.00  23.00  25.00  21.11  20.00  22.73  26.00  19.23  18.74  10.00  24.75  25.00  15.00  15.00  20.00  20.00  18.75  6.07  3.16  12.82  18.75  13.89  5.00  17.54  40.00  11.11  40.00  25.00  20.00   10.00  13.00  15.87  19.05  20.00  10.16  13.80  18.18  3.50  8.70  8.70  17.32  23.08   Ingredient4 mH   cREVGeneral revUniqueID 1095538163404   Nepheline Syenite   Custer feldspar  EPK  Redart Clay  Ball Clay  Tennessee Ball Clay  Flint  G-200 Feldspar  G-200 Feldspar  PBX Clay  McNamee kaolin  Silica, 200 mesh  Custer Feldspar  Potash Feldspar  Flint  Potash Feldspar  Silica  Silica  F-4 Feldspar  Ball Clay  Goldart  OM-4 Ball Clay   EPK  Tennessee #1 SGP Ball Clay  RedArt clay   A. P. Green Fireclay   Sodium Bicarbonate   Nepheline syenite   Ocmulgee Clay  Calvert Clay   Pyrax HS  Flint  OM-4 Ball Clay  Flint  Ball Clay  PV Clay  Pyrophyllite  Custer feldspar  OM-4 Ball clay  OM-4 Ball Clay  Red Iron Oxide  flint   Amount4 mX 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 ?  cREVGeneral revUniqueID 1095538163405   13.00   2.38  34.37  10.00  18.00  18.69  5.00  15.00  15.00  7.78  25.00  13.64  24.00  23.08  18.74  5.00  24.75  10.00  15.00  10.00  25.00  10.00   11.48  26.32  12.82   13.89   5.85   22.22   25.00  20.00   5.00  12.00  15.87  19.05  15.00  3.91  4.60  27.27  10.00  8.70  4.35  10.39    Ingredient5 mH   cREVGeneral revUniqueID 1095538163406   Gerstley Borate   Bentonite  Pyrotrol  Potash Feldspar  RedArt  Custer Feldspar  Custer Feldspar  Pyrax  Pyrax  Nepheline Syenite  OM-4 ball clay  Nepheline syenite    Potash Feldspar   Whiting  Pyrax  OM-4 Ball Clay  Barnard Clay  Nepheline Syenite  Nytal Talc   Flint  Soda Ash  Bentonite   OM-4 Ball Clay   Borax   silica   Nepheline Syenite  Talc     Cedar Heights Goldart  Neph Sy    Bentonite   Flint  Red Iron Oxide   talc   Amount5 mX 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 ?  cREVGeneral revUniqueID 1095538163407   12.00   2.38  17.18  5.00  6.00  18.69  22.00  5.00  5.00  36.67  15.00  18.18    22.54   1.00  10.00  15.00  10.00  10.00  5.00   37.37  4.21  2.56   13.89   0.12   16.67   5.00  5.00     15.87  4.76    2.30   20.00  4.35   4.32    Ingredient6 mH   cREVGeneral revUniqueID 1095538163408      Bentonite  Flint   Flint  Pyrax  Ocmulgee  Ocmulgee   Custer feldspar     Whiting       Flint    Bentonite  Borax  Red Iron Oxide   Wollastonite   Soda Ash     Flint  Nepheline Syenite           Ferro Frit 3124    spodumene   Amount6 mX 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 ? cREVGeneral revUniqueID 1095538163409      2.06  5.00   28.03  14.00  4.00  2.00   10.00     2.44       10.00    1.64  3.16  1.28   2.78   0.47     5.00  5.00           1.50    2.60    Ingredient7 mH  cREVGeneral revUniqueID 1095538163410         Pyrax  Newman Red Clay  Flint  Flint   silica     Barium Carbonate           Ferro Frit 3134      Flint      Foundry Hill Creme           pyrophyllite    neph sy   Amount7 mX 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 ? cREVGeneral revUniqueID 1095538163411         4.68  5.00  8.00  8.00   10.00     0.06           15.79      17.54      5.00           5.00    4.32   {(H1c RO fields cREVGeneral revUniqueID 1086722782394 +R2O on mouseup answer "The unity formula is calculated here." & return & "To enter new unity formulas or change the unity formula, use the Glaze Calculator." end mouseup 2e(% cREVGeneral revUniqueID 1095538163412  0.013 0.007 0.149 0.831   0.665 0.230 0.040 0.065  0.297 0.240 0.223 0.241 0.000  0.444 0.153 0.140 0.262 0.000  0.482 0.112 0.105 0.301  0.377 0.129 0.157 0.337  0.612 0.241 0.068 0.079 0.000  0.574 0.237 0.088 0.101  0.527 0.185 0.125 0.163  0.533 0.184 0.124 0.159  0.243 0.646 0.075 0.036  0.500 0.225 0.103 0.173  0.225 0.533 0.119 0.123  0.571 0.331 0.054 0.044  0.526 0.230 0.105 0.140  0.374 0.157 0.393 0.071 0.004  0.463 0.170 0.133 0.234  0.506 0.208 0.230 0.056  0.650 0.239 0.054 0.058  0.352 0.448 0.128 0.072  0.316 0.123 0.155 0.406  0.291 0.390 0.132 0.187  0.212 0.058 0.168 0.562  0.025 0.025 0.156 0.794  0.117 0.802 0.074 0.007 0.000  0.091 0.582 0.304 0.023 0.000  0.468 0.206 0.102 0.224 0.000  0.062 0.015 0.148 0.776  0.119 0.025 0.225 0.631  0.009 0.006 0.149 0.836  0.085 0.758 0.058 0.099 0.000  0.023 0.007 0.148 0.821  0.344 0.503 0.080 0.073  0.375 0.129 0.156 0.340  0.334 0.279 0.142 0.245  0.199 0.127 0.042 0.632  0.458 0.074 0.063 0.405  0.342 0.453 0.070 0.134  0.399 0.421 0.123 0.057  0.012 0.007 0.217 0.764  0.512 0.327 0.090 0.071  0.423 0.123 0.092 0.362  0.205 0.034 0.111 0.650  0.534 0.251 0.086 0.129 0.000  0.503 0.277 0.122 0.098  0.229 0.594 0.116 0.060  0.169 0.042 0.121 0.668  0.165 0.044 0.120 0.671  0.228 0.113 0.098 0.490 0.050 0.021  0.411 0.160 0.145 0.283  0.468 0.071 0.045 0.416 ,R2O3L on mouseup answer "The unity formula is calculated here." & return & "To enter new unity formulas or change the unity formula, use the Glaze Calculator." end mouseup vd(Z& cREVGeneral revUniqueID 1095538163413  0.307 0.009   3.962 0.039  5.233 0.092 0.007  9.457 0.165 0.018  5.733 0.241 0.006  8.828 0.475 0.002  4.752 0.059 0.001  4.689 0.096 0.004  5.519 0.095  5.613 0.081  3.249 0.058 0.003  9.458 0.170 0.008  4.858 0.052 0.005  3.117 0.135  4.420 0.041  3.056 0.031 0.003  8.181 0.224  3.242 0.041 0.005  4.597 0.044 0.006  3.633 0.044  6.594 0.948 0.035  6.168 0.103 0.004  1.735 0.224 0.004  1.483 0.038  0.579 0.004 0.001  0.687 0.340 0.010  4.893 0.352 0.003  1.496 0.040 0.002  0.990 0.114 0.003  0.245 0.007 0.000  2.288 0.006 0.034  0.541 0.010 0.001  2.652 0.020  7.079 0.628  5.761 0.378  2.315 0.360 0.002  2.433 0.451 0.012  5.222 0.845  3.778 0.037  0.309 0.010  4.292 0.051 0.008  6.564 0.933 0.007  1.084 0.189 0.005  3.775 0.029  3.039 0.042 0.003  2.726 0.035 0.024 0.001  1.713 0.391 0.004  1.779 0.395 0.004  1.897 0.212 0.005  15.533 0.342  1.746 0.478 0.013 -RO2L on mouseup answer "The unity formula is calculated here." & return & "To enter new unity formulas or change the unity formula, use the Glaze Calculator." end mouseup d,\' cREVGeneral revUniqueID 1095538163414  2.138 0.017 0.002 7.0:1   19.505 0.004 4.9:1  23.624 0.118 4.5:1  28.397 0.338 3.0:1  21.030 0.395 3.7:1  28.011 0.608 0.073 3.2:1  26.352 0.112  19.328 0.141 4.1:1  19.612 0.165 3.6:1  19.689 0.160 3.5:1  9.675 0.067 3.0:1  29.941 0.222 3.2:1  17.515 0.151 3.6:1  19.824 0.067 6.4:1  20.144 0.183 4.6:1  13.930 0.093 4.6:1  25.387 0.569 3.1:1  18.133 0.078 5.6:1  18.300 0.025 4.0:1  14.396 0.035 4.0:1  26.991 0.494 0.150  21.744 0.287 3.5:1  8.598 0.122 0.001 5.0:1  4.962 0.096 0.002 3.3:1  5.479 0.002 9.5:1  5.048 0.024 7.3:1  16.932 0.286 3.5:1  4.874 0.099 0.001 3.3:1  5.110 0.072 0.001 5.2:1  1.882 0.012 0.002 7.7:1  9.198 0.121 4.0:1  2.807 0.023 0.002 5.2:1  12.081 0.086 4.6:1  26.903 0.565 0.031 3.8:1  23.527 0.401 0.016 4.1:1  11.288 0.151 0.008 4.9:1  13.429 0.178 5.5:1  23.997 0.263 4.6:1  16.183 0.006 4.3:1  2.021 0.021 0.002 6.5:1  19.831 0.095 4.6:1  26.998 0.418 4.1:1  6.664 0.076 0.001 6.1:1  15.954 0.134 4.2:1  15.075 0.056 5.0:1  12.780 0.054 4.7:1  7.456 0.121 0.001 4.4:1  7.455 0.127 0.001 4.2:1  10.315 0.130 0.001 5.4:1  35.338 0.870 2.3:1  11.606 0.144 6.6:1hazard $on mouseup showHazards end mouseup &(GColor]Clear Translucent Opaque - White Gray Black - Red Orange Yellow Green Blue-Green Blue Purple cREVGeneral revUniqueID 1086724032227 )BatchMHWM! cREVGeneral revUniqueID 1095538163415  100.0 100.0  1250 1250 1250 650 600  100.0 50.0 50.0  40.00 20.00 20.00 2.00 2.00  51.5 72.2 15.4 103.1 51.5 6.2  90.0 60.0 90.0 30.0 15.0 15.0  0.60 4.70 2.30 1.80 0.60  37.4 9.4 9.4 37.4 37.4 56.1 9.4 3.7  23.4 23.4 23.4 6.5 28.6 18.2 6.5  18.75 15.00 17.25 11.25 3.75 3.00 6.00  18.75 15.00 18.75 11.25 3.75 1.50 6.00  33.3 35.6 42.2 15.6 73.3  10.0 10.0 20.0 25.0 15.0 10.0 10.0  25.0 25.0 25.0 15.0 20.0  54.6 50.4 54.6 50.4  50.0 25.0 25.0 30.0  37.5 37.5 37.5 37.5 45.1 4.9 0.1  85.0 85.0 20.0 10.0  11339 11339 11339 11339 458  30.0 25.0 25.0 10.0 10.0  22.50 5.00 7.50 7.50 7.50  250.0 75.0 75.0 50.0 50.0  100.0 75.0 100.0 125.0 50.0 50.0  40.0 25.0 20.0 10.0 5.0  125.0 37.5 37.5  934 152 152 287 934 41  211 263 32 263 42 32 158  87.5 50.0 25.0 25.0 5.0 2.5  56.2 187.5 56.2  83.3 27.8 27.8 27.8 27.8 5.6  114.0 171.0 15.0  1755 877 877 292 6 24 877 117 176  46.5 27.9 49.6  50.0 25.0 16.7 33.3 25.0  150.0 150.0 200.0  100.0 100.0 125.0 125.0 25.0 25.0  2.50 1.50 2.00 2.00 0.50 0.50 0.50 0.50  37.50 12.50  105.0 22.5 15.0 7.5  250.0 125.0 65.0 60.0  95.2 9.5 31.7 31.7 31.7  16.66 11.90 9.53 9.53 2.38  4.50 2.00 2.00 1.50  6.25 2.34 1.02 0.39  4.86 3.07 1.38 0.46 0.23  40.0 20.0 20.0 30.0  7.50 7.50 1.75 5.00 10.00 0.75 2.50 15.00  100.0 80.0 20.0 20.0 10.0  50.0 50.0 10.0 5.0  43.3 17.3 17.3 10.4 4.3 2.6 4.3 0.4  50.0 50.0 30.0  66.3 33.7 mTotals H \F cREVGeneral revUniqueID 1086631406941  Totals   Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals  Totals nTotAmt H ? cREVGeneral revUniqueID 1086631406942  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100  100Monetary Unite_ H-- bg btn for setting monetary units in HG Stack on mouseUp if the optionKey is down then Answer "Change the monetary unit shown?" & return & return &\ "WARNING: This will only change the monetary symbol shown. It does NOT translate the value." &\ "You must re-enter the correct prices of all ingredients in the Materials stack." with "Change" or "Cancel" if it is "Cancel" then exit mouseup get the label of me ask "Enter the monetary unit you want to use:" with it if it is not empty then set the label of me to it if the label of me is "$" then answer "NOTE: Using the symbol '$' assumes that prices in U.S. Dollars per POUND have been entered in the Materials Stack." & return &\ "To use the metric system, use a monetary symbol other than '$'. (examples: 'C$' '' or '')" else answer "NOTE: Using monetary symbols other than '$' assumes that material prices per KILOGRAM have been entered in the Materials Stack." end if else answer "To change the monetary unit, hold down the Option key and click again." end mouseUp s"$ cREVGeneral revUniqueID 1095538163416 LockUMF@ yon mouseUp if the optionKey is down then set the hilite of me to not the hilite of me else answer "Hold the option key down to lock or unlock this unity formula." & return &\ "When this box is checked and the unity formula is locked, the unity formula will not be recalculated and prices will not be updated. All other calculations will function normally." end if end mouseUp +check this box to lock unity for this clay cREVGeneral revUniqueID 1095538163417                                                    Glaze type PUC Con mousedown send mousedown to bg btn "Glaze Type:" end mousedown  $ cREVGeneral revUniqueID 1095538163418  UMFHide1@AOT" cREVGeneral revUniqueID 1095538163419  UMFHide2@AO!$ cREVGeneral revUniqueID 1095538163420  UMFHide3@AO. cREVGeneral revUniqueID 1095538163421 KA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2~~@i{ cREVGeneral revUniqueID 1095538163422 NaA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2~~Rt | cREVGeneral revUniqueID 1095538163423 CaA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2~~W} cREVGeneral revUniqueID 1095538163424 MgA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar 2~~X~ cREVGeneral revUniqueID 1095538163425 LiA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar 2~~Z cREVGeneral revUniqueID 1095538163426 BaA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2Z cREVGeneral revUniqueID 1095538163427 PbA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2Z cREVGeneral revUniqueID 1095538163428 ZnA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2~~Z cREVGeneral revUniqueID 1095538163429 AlA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 374 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 414 into minHt put 40 into totHt -- total pixel height of bar graph put 1.5 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2~~vi' cREVGeneral revUniqueID 1095538163430 BA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 374 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 414 into minHt put 40 into totHt -- total pixel height of bar graph put 1.5 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 yyYYv cREVGeneral revUniqueID 1095538163431 FeA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 374 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 414 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 yyYY cREVGeneral revUniqueID 1095538163432 PA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 374 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 414 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 yyYY cREVGeneral revUniqueID 1095538163433 SiA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 448 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 483 into minHt put 35 into totHt -- total pixel height of bar graph put 6 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2 00}}i% cREVGeneral revUniqueID 1095538163434 TiA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 448 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 483 into minHt put 35 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 22u cREVGeneral revUniqueID 1095538163435 SiRatioA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 448 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 483 into minHt put 35 into totHt -- total pixel height of bar graph put 15 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar -- ScriptEdit Prefs:Monaco,9,47,24,398,565,91,91,50 2ss䥥44SS  cREVGeneral revUniqueID 1095538163436  Ingredient8 mH  cREVGeneral revUniqueID 1095538163437         Bentonite                         Custer Feldspar      Flint           nepheline syenite    barium carbonate   Amount8 mX 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 ? cREVGeneral revUniqueID 1095538163438         1.86                         2.34      5.00           30.00    0.43    Ingredient9 mH  cREVGeneral revUniqueID 1095538163439                                 Bentonite                     Amount9 mX 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 ? cREVGeneral revUniqueID 1095538163440                                 3.51                      Ingredient10 mH  cREVGeneral revUniqueID 1095538163441                                                      Amount10 mX 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 ? cREVGeneral revUniqueID 1095538163442                                                     o TotBatch X lon closefield doNewBatch pass closefield end closefield on enterinField doNewBatch end enterinField Nenter the batch size here cREVGeneral revUniqueID 1086631406943  200.00  5000  200.0  84.00  300.00  300.00  10.00  200.00  130.0  75.00  75.00  200.00  100  110.0  210.00  130.0  200.00  200.0  45813  100  50.00  500.0  500.0  100  200.00  2500  1000.1  195.0  300.00  200.00  300.00  5000  124.00  150.00  500.0  500.0  10.00  50.00  150.00  500.0  200.00  50.00  10.00  10.00  10.00  110.0  50.00  230.00  115.00  100  130.00  100 ! Ingredient11 mH  cREVGeneral revUniqueID 1095538163443  water   Water  70 mesh sand   Fine Grog   Molochite  water  water  water  Grog  fine grog  molochite, (200 mesh)  Ione Grog 412  water  Hot Water  Grog  Darvan #811  Bentonite  water  Iron Oxide  Bentonite  bentonite  Silica Sand 35m  Copper carbonate  Silica sand  "G" Grog  silica sand  sand   Silica Sand  20-40 mesh firebrick grog  molochite  grog (optional)  Grog (optional)     Bentonite  Silica Sand  Sodium Silicate    water  sand, 70 mesh  water  Silica Sand or Grog  Silica Sand or Grog  fine grog   Soda ash " Amount11 mX 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 > cREVGeneral revUniqueID 1095538163444  25.00   26.00  7.14   10.00   1.86  26.00  32.00  32.00  3.33  6.00  3.64  5.00  27.00  48.80  3.00  0.35  4.00  25.00  3.00  2.00  1.00  6.25  3.09  5.26  38.46  9.38  6.94   5.85  100.00  11.11  6.00  6.00     2.00  9.52  0.48    25.00  5.45  35.00  8.70  8.70  8.66   0.14 # Ingredient12 mH  cREVGeneral revUniqueID 1095538163445    Bentonite    water    fine grog or molochite  200m molochite grog  200m molochite grog    molochite, (30 mesh)  water   Sodium Silicate  water  Soda Ash  water   Grog   barium carbonate  water        Fine Grog  35 Mesh Mullite        Macaloid  water  Water     bentonite  Darvan #7   Barium Carbonate    "N" brand sodium silicate $ Amount12 mX 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 > cREVGeneral revUniqueID 1095538163446    4.00    25.00    10.00  2.00  2.00    2.73  25.00   0.49  25.00  0.10  27.00   6.00   0.50  25.00        5.85  50.00        2.00  25.00  34.29     1.82  0.35   0.87    0.64 % Ingredient13 mH " cREVGeneral revUniqueID 1095538163447           30m molochite grog  30m molochite grog       Soda Ash   HOT Water               plus ingredients in comments!                    & Amount13 mX 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 "> cREVGeneral revUniqueID 1095538163448           3.00  3.00       0.02   48.00                                  ' Ingredient14 mH 1 cREVGeneral revUniqueID 1095538163449                                                     ( Amount14 mX 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 1> cREVGeneral revUniqueID 1095538163450                                                     *Batch2MHQD" cREVGeneral revUniqueID 1095538163451  50.00   52.00 8.00  6.00   30.00 75.00   3.72  33.80 13.00  24.00 1.50 2.25  24.00 1.50 2.25  6.66  6.00  4.00 3.00  10.50 52.50  35.10  97.60 0.98 0.04  6.00 50.00  160 46 21990  4.00 27.00  12.50  15.0 30.0  10.0  1.00 0.50  12.50 50.00  77  53  75.00  28.14  13.88   292 292  124.00 62.00  16.66  30.0  30.0    7.50  10.0 10.0  19.04 50.00  0.24 17.14    2.50  6.00 2.00  17.50 0.17  20.01  10.00 1.00  8.66   0.14 0.64 .Si/AlAVon mouseUp set numberformat to 0.0 if (line 1 of field "R2O3") >0 then put (line 1 of field "RO2"/ line 1 of field "R2O3") & ":1"\ into line 7 of field "RO2" else if (line 1 of fld "RO2")<=0 then answer "Please calculate the unity formula first." else put empty into line 7 of fld "R2O" end if end mouseUp >n cREVGeneral revUniqueID 1095538163452 /Firingjh D@= cREVGeneral revUniqueID 1095538163453  oxidation or reduction  oxidation or reduction  oxidation or reduction  oxidation or reduction  oxidation or reduction  Reduction  oxidation or reduction  oxidation or reduction  oxidation or reduction  Wood  Wood  Reduction  oxidation or reduction  oxidation or reduction  oxidation or reduction  oxidation or reduction  oxidation or reduction  All Firings  oxidation or reduction  oxidation or reduction  Oxidation  Reduction  oxidation or reduction  oxidation or reduction  Raku  Oxidation  Oxidation  oxidation or reduction  Raku  Oxidation  Oxidation  Oxidation  oxidation or reduction  oxidation or reduction  Reduction  Reduction  oxidation or reduction  Oxidation  Oxidation  Reduction  Oxidation  Oxidation  Salt-glazing  Raku  oxidation or reduction  oxidation or reduction  oxidation or reduction  Oxidation  Oxidation  oxidation or reduction  Raku  Oxidation 0TestedJh @4< cREVGeneral revUniqueID 1095538163454  Tested  Untested  Tested  Untested  Tested  Untested  Untested  Untested  Tested  Tested  Tested  Untested  Tested  Tested  Untested  Tested  Tested  Tested  Tested  Untested  Tested  Untested  Untested  Untested  Tested  Tested  Untested  Tested  Tested  Untested  Tested  Tested  Tested  Untested  Untested  Untested  Untested  Untested  Untested  Untested  Untested  Tested  Untested  Untested  Untested  Untested  Tested  Tested  Tested  Untested  Untested  Untested 2 Comments)h jr( cREVGeneral revUniqueID 1095538163455  Adding more ball clay yields a higher firing temperature - try a 60% ball / 40% talc combination. Adding a handful of chopped nylon fiber helps in handbuilding with this clay.   This clay is translucent at cone 10 if thin - 325 mesh Flint will help translucence. A VERY plastic porcelain. Slake bentonite in warm/hot water before adding to mix or mix thoroughly with dry powdered clay to avoid lumps of bentonite. HIGH shrinkage - around 18% at cone 10!     ~heavy reduction may cause bloating in a body like this. be certain there are no lumps of RedArt or Barnard in the mixed clay.   compatible with some stoneware bodies (for laminated clay, etc.) Modified to add a bit of color and more stability if overfired. Flashes pretty well in wood or anagama wood firing. Will go light gray in salt/soda if it gets much glaze. Richard Burkett 1999  'Test clay for anagama and wood firing. pRB 1997 at EKU. This clay body should give a more red orange flash in wood firing, especially in anagama kilns.  'Test clay for anagama and wood firing. RB 1997 at EKU. gWorks well, but doubling the amount of Ocmulgee (see #6 Tile Flash Dark) will give a bit richer color.  'Wood Kiln Clay Body. Alfred U. recipe?   Can add up to 8% kyanite. This body works well in wood firing, too. Fairly nice flashing. One problem is sodium leaching from the nepheline syenite which may tend to slightly deflocculate the clay, leading to reduced plasticity. Try formulating it with an equivalent amount of potash spar instead fo the nepheline syenite. Deflocculation may be temporarily decreased by adding a cup or so of vinegar to the batch with the water.  Grog may be varied from 3-10%.  This clay is compatible with some stoneware bodies for laminated clay, etc. Not as white or as plastic as the Grolleg porcelain, but the shrinkage is a lot lower.  WCasting Slip Recipe - works well with shop stoneware recipe - about the same shrinkage '1. Dissolve deflocculents in HOT water 32. add clay & stir, let sit 3. stir & adjust water ;For 105 Lb batch add 10g Soda Ash and 30g Barium Carbonate nThis is not a great casting body, but it is pretty dependable and fairly flexible when used with other clays.  Good all-around "shop" clay body, salts nicely at cone 8 to 10. Reasonably good as a raku body if bisque fired to C/010. Otherwise bisque fire to C/05 to eliminate the sulfur problems (like pinholing in glazes) that are associated with Goldart.  Good basic casting slip - not the world's greatest, but dependable. If the slip is a little thick when mixed, add up to one-half gallon more of hot water to which has been added 12 grams of Sodium Silicate or Darvan (depending on which you are using). NOTE: 0.1 lb of Soda Ash equals 46 grams and 0.4 lb of Sodium Silicate equals 183 grams. Use 160 grams of Darvan #811 (0.4 lb) instead of sodium silicate in the 101 lb batch. Depending on the water and/or clay, more water and/or deflocculant may be needed. @One-half pound of Barium carbonate may be added to stop scumming, but remember Barium carb. is toxic. Works well as a cone 6 body, but does not become vitreous at that temperature. Could probably be made with Neph Sy instead of spar to lower the firing temperature somewhat, but the deflocculation will probably change. Substituting Velvacast for some of the EPK will make a slip that comes out of the molds much easier, but which is much less plastic after casting. Substituting Grolleg kaolin for some or all of the ball clay will make a very much whiter and more translucent body.  325 mesh silica is best. Pyrax is a brand of pyrophyllite. Whiter and more translucent porcelain if made with all Grolleg, no EPK, no bentonite.   reportedly from from Val Cushing. Throws well, plastic,very good. Redart can be substituted for Ocmulgee but will give a darker color and lower plasticity.  /from Val Cushing. Throws well, plastic,dense.  From Peter Pinnell, University of Nebraska. He uses it to make teapots and vessels using Yxing style techniques. The pieces are glazed inside and covered with terra sigillata outside.  Similar to Higby Raku Body. Bisque fire to 010 to minimize thermal shock cracking. This clay works well for larger raku forms.  LFor other colors: add various colorant and glaze/body stains (don't add the Copper Carbonate when using other colors) Dry slowly on screen wire. Speed of drying may affect glaze. Avoid handling during drying process. Load carefully into kiln to avoid scraping off crust of soda that forms glaze. Fire on stilts or nichrome wire.  JUse 200 mesh flint. From ECU, 1989, specified Anhydrous borax originally.  xSuitable for large scale sculpture. Can be fired higher if desired - test first. Add 1 cup vinegar per 100 pound batch.     From an SDSU grad student in spring 1991- an attempt to develop an Egyptian paste formula for larger work. This recipe should allow construction of fairly large forms. An interesting variation is to substitute 10% Mullite for the sand and grog which gives a more textured and less glossy surface thanks to the needles of mullite. Colors: Egyptian Blue: 2% Copper Carbonate; Speckled Blue: 2% Copper Carbonate + 2% granular Ilmenite; Pink Speckled: 4% Red Iron Oxide + 8% Granular Rutile; Brown Speckled: 4% granular Ilmenite + 5% Umber. She tried to get local reduction using 2% Copper Carb and 5% FFF silicon carbide, but only got a speckled blue.  LFor a 124 lb. batch (of clay & talc only): Add 16 grams Barium Octahydrate x(Barium Hydroxide?), 67 grams Soda Ash, and 390 ml Sodium Silicate to 7.5 gallons of hot water. Mix well and add clay ingredients. Add grog and mullite last and SLOWLY. Mixture should be quite thick. Cast into two-part plaster shelf mold or other form. OM-4 Ball clay is a possible substitute for Martin #5 Ball clay. Try substituting Barium Carbonate for Barium Octahydrate.   )from Val Cushing. Throws well, plastic. ZRedart can be substituted for Ocmulgee but will give a darker color and lower plasticity.  xThrows well, plastic, dense. Redart can be substituted for Ocmulgee but will give a darker color and lower plasticity.   !From Brian Gillis, Mesa College. @He uses this clay for sculpture with sizable additions of grog.   :Throws well, plastic. Add 2% Whiting for a denser body.       revised for cone 6  Can use velvacast kaolin instead of Tile #6 and Tenn. Ball Clay instead of OM-4 ball clay. Usually use Pyrax brand pyrophyllite. Originally from Val Cushing at Alfred University, modified by Richard Burkett. Mix the Darvan into hot water before adding dry clays. 0.25 lb. of Darvan is 113 grams. RB 1996  For heavy sculpture add more grog using a mixture of fine, medium and coarse sizes, and/or add up to 3 five-gallon buckets of wood planer shavings to the 230 lb. batch. Fired slowly, the clay with planer shavings can be up to 6-8 inches thick in solid section. Add 1-2 lbs. of Barium carbonate to a 230 lb batch to prevent scumming - you may want to not use it for health reasons, but there is a high probability of scumming.  ]Omitting the barium carbonate may result in scumming on the surface of the clay as it dries.  Oif the barium carbonate is omitted this clay may have scumming on the surface.  aAdd Fibrous Wollastonite 1 scoop per 130 lb. batch. Add 1% Barium Carbonate to prevent scumming.  3`@ek4Estimated Thermal Expansion:e on mouseUp global CalcAll set the cursor to busy put empty into fld "ThermalExpansion" if line 5 of fld R2O >0.005 then put "contains Lithium oxide." into GlazeKind if CantCalcThermEx(CalcAll,GlazeKind) is not empty then exit mouseup end if if line 6 of fld RO2>0.005 then put "contains Fluorine." into GlazeKind if CantCalcThermEx(CalcAll,GlazeKind) is not empty then exit mouseup end if if line 12 of fld R2O>0.005 then put "contains Strontium oxide." into GlazeKind if CantCalcThermEx(CalcAll,GlazeKind) is not empty then exit mouseup end if if fld "Surface" is empty then if CalcAll is not "Quick Calc" then answer "Is this a matte glaze?" with "Don't know" or "Yes" or "No" if it is "yes" then put "matte" into fld "Surface" else if it is "Don't know" then put "?" into fld "Surface" else put "shiny glossy" into fld "Surface" end if end if end if if fld "Surface" contains "mat" or fld "Surface" contains "Slip"\ or fld "Surface" contains "Engobe" then put "is a matte glaze." into GlazeKind if CantCalcThermEx(CalcAll,GlazeKind) is not empty then exit mouseup end if set numberFormat to 0.00 put fld "R2O" into Fluxes put fld "R2O3" into Stabilizers put fld "RO2" into GlassFormers put theThermExpansion(Fluxes,Stabilizers,GlassFormers) into fld "ThermalExpansion" end mouseUp function CantCalcThermEx CalcAll,GlazeKind if GlazeKind contains "Lithium" or GlazeKind contains "Strontium" then put "The thermal expansion should be lower with increasing amounts, but large amounts may have an unpredictable effect." into GlazeEffect if CalcAll is not "Quick Calc" then answer "This glaze " & GlazeKind & return & "The thermal expansion cannot be accurately calculated."\ & return & return & "Do you want to calculate it anyway?" with "Don't Calc" or "Calculate" if it is "Don't Calc" then return "exitMouseup" else return "" else return "" end CantCalcThermEx function theThermExpansion Fluxes,Stabilizers,GlassFormers -- 1990-1992 Richard Burkett -- This one works! 6/24/92 Script for Glaze Cards and the Glaze Calculator. put 0.000 into TotSum put 0.000 into TExp put "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0," into myFlux put "0,0,0,0,0,0,0,0,0," into myStabilizer put "0,0,0,0,0,0,0,0,0," into myGlass put 0.000 into myMolWt put 0.000 into temp put 0.000 into myTemp put empty into CoeffTE put empty into mystring put Fluxes into myFlux put Stabilizers into myStabilizer put GlassFormers into myGlass repeat with i=1 to 12 if line i of myFlux is empty then put "0.00" into line i of myFlux end repeat repeat with i=1 to 7 if line i of myStabilizer is empty then put "0.00" into line i of myStabilizer end repeat repeat with i=1 to 6 if line i of myGlass is empty then put "0.00" into line i of myGlass end repeat put "94.192,61.98,56.08,40.32,39.88,153.36, 223.21,81.38,79.54,74.94,74.69,103.62,"\ into FluxWts repeat with i=1 to 12 put line i of myFlux into myString put myString^1 into myTemp put (item i of FluxWts)^1 into MyMolWt put myTemp*myMolWt into temp add temp to TotSum put temp into line i of MyFlux end repeat put "101.94,69.64,159.694,141.6, 291.52,152.02,181.9," into StabWts repeat with i=1 to 7 put line i of myStabilizer into myString put myString^1 into myTemp put (item i of StabWts)^1 into MyMolWt put myTemp*myMolWt into temp add temp to TotSum put temp into line i of myStabilizer end repeat put "60.06,79.9,123.22,150.69,86.93,18.998," into GlassWts repeat with i=1 to 6 put line i of myGlass into myString put myString^1 into myTemp put (item i of GlassWts)^1 into MyMolWt put myTemp*myMolWt into temp add temp to TotSum put temp into line i of myGlass end repeat put "3.3,3.9,1.5, 0.3,2.0,1.3, 0.8,1.0,2.2, 4.4,4.0,1.372," into FluxCoeffs repeat with i=1 to 12 put line i of MyFlux into myString put (myString)^1 into myTemp put (item i of FluxCoeffs)^1 into CoeffTE add (myTemp/TotSum)*CoeffTE to TExp end repeat put "0.61,0.29, 4.0,2.0, 3.6, 5.1," into StabCoeffs repeat with i=1 to 6 put line i of MyStabilizer into myString put myString^1 into myTemp put (item i of StabCoeffs)^1 into CoeffTE add myTemp/TotSum*CoeffTE to TExp end repeat put "0.37,1.5,0.7,2.0,2.2," into GlassCoeffs repeat with i=1 to 5 put line i of MyGlass into myString put myString^1 into myTemp put (item i of GlassCoeffs)^1 into CoeffTE add myTemp/TotSum*CoeffTE to TExp end repeat put TExp*10 into TExp return TExp end theThermExpansion 1scThermal Expansion cREVGeneral revUniqueID 1095538163456 5Date:`E on mouseUp if the optionKey is down then put the date into field "date" else answer "Hold down the Option [ALT] Key and click for today's date!" with "OK" end mouseUp 2&+option [ALT] - click to enter today's dateE cREVGeneral revUniqueID 1095538163457 7thermalExpansione &a cREVGeneral revUniqueID 1095538163458                                                     8HazardsIh )rT) cREVGeneral revUniqueID 1095538163459  ATalc: wear a NIOSH approved dust mask when handling dry material   NFlint: free silica-wear a NIOSH approved dust mask when handling dry material    NFlint: free silica-wear a NIOSH approved dust mask when handling dry material   ]Tennessee Ball Clay: free silica -wear a NIOSH approved dust mask when handling dry material NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  XXX Sagger Clay: free silica -wear a NIOSH approved dust mask when handling dry material  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material Barium Carbonate: HIGHLY Toxic-avoid ingestion. Glazes containing barium may not be safe for ware intended for use with food - test them for barium release. lSodium Silicate: alkaline material - wear eye protection and gloves when handling. Avoid contact with skin. ISoda Ash: caustic-avoid contact with skin or eyes or inhalation of mists   OSilica: free silica-wear a NIOSH approved dust mask when handling dry material ISoda Ash: caustic-avoid contact with skin or eyes or inhalation of mists  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  RBall Clay: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  "RedArt Clay: possible free silica XOM-4 Ball Clay: free silica -wear a NIOSH approved dust mask when handling dry material GNytal Talc: wear a NIOSH approved dust mask when handling dry material bBarium Carbonate: HIGHLY Toxic-avoid ingestion. Do not use in glazes intended for use with food.  ATalc: wear a NIOSH approved dust mask when handling dry material  ISoda Ash: caustic-avoid contact with skin or eyes or inhalation of mists NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material ISoda Ash: caustic-avoid contact with skin or eyes or inhalation of mists MBorax: moderately toxic-avoid ingestion or contact with open cuts or wounds. TSilica Sand: free silica-wear a NIOSH approved dust mask when handling dry material   ATalc: wear a NIOSH approved dust mask when handling dry material TSilica Sand: free silica-wear a NIOSH approved dust mask when handling dry material  ATalc: wear a NIOSH approved dust mask when handling dry material TSilica Sand: free silica-wear a NIOSH approved dust mask when handling dry material  ATalc: wear a NIOSH approved dust mask when handling dry material  XXX Sagger Clay: free silica -wear a NIOSH approved dust mask when handling dry material MBorax: moderately toxic-avoid ingestion or contact with open cuts or wounds. ISoda Ash: caustic-avoid contact with skin or eyes or inhalation of mists NFlint: free silica-wear a NIOSH approved dust mask when handling dry material TSilica Sand: free silica-wear a NIOSH approved dust mask when handling dry material  ATalc: wear a NIOSH approved dust mask when handling dry material  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material   NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  "RedArt Clay: possible free silica ATalc: wear a NIOSH approved dust mask when handling dry material \Foundry Hill Creme: free silica -wear a NIOSH approved dust mask when handling dry material NFlint: free silica-wear a NIOSH approved dust mask when handling dry material    NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  ATalc: wear a NIOSH approved dust mask when handling dry material TSilica Sand: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material lSodium Silicate: alkaline material - wear eye protection and gloves when handling. Avoid contact with skin.   ATalc: wear a NIOSH approved dust mask when handling dry material  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  TSilica Sand: free silica-wear a NIOSH approved dust mask when handling dry material  NFlint: free silica-wear a NIOSH approved dust mask when handling dry material  ATalc: wear a NIOSH approved dust mask when handling dry material  ATalc: wear a NIOSH approved dust mask when handling dry material Barium Carbonate: HIGHLY Toxic-avoid ingestion. Glazes containing barium may not be safe for ware intended for use with food - test them for barium release.  XXX Sagger Clay: free silica -wear a NIOSH approved dust mask when handling dry material NFlint: free silica-wear a NIOSH approved dust mask when handling dry material ATalc: wear a NIOSH approved dust mask when handling dry material Barium Carbonate: HIGHLY Toxic-avoid ingestion. Glazes containing barium may not be safe for ware intended for use with food - test them for barium release.   ISoda Ash: caustic-avoid contact with skin or eyes or inhalation of mists 9`@e*R:nextC?  on mouseup if the hilite of btn "viewMarked" is true then go to next marked card if the result is not empty then answer "There are no marked cards!" Send mouseup to btn "viewMarked" end if else go to next card end if end mouseup  U cREVGeneral revUniqueID 1095538163460 ;prevC? eon mouseup if the hilite of btn "viewMarked" is true then go to previous marked card if the result is not empty then answer "There are no marked cards!" Send mouseup to btn "viewMarked" end if else go to the previous card end if end mouseup  T  cREVGeneral revUniqueID 1095538163461 =Date iH Y8 cREVGeneral revUniqueID 1095538163462              10/18/02        4/4/2001                            7/22/96      >lb/gmK on mouseup global BatchSize put the short name of the target into myField if field myField is not in "lb,gm,lb/oz" then put "Gm" into field myField get field myField if it is "lb" then put "Gm" into field myField set numberformat to 0.000 put field "TotBatch"*453.592 into BatchSize put BatchSize into field "TotBatch" else if it is "gm" then put "lb/oz" into field myField set numberformat to 0.000 put fld "TotBatch"/453.592 into BatchSize put BatchSize into field "TotBatch" else if it is "lb/oz" then put "Lb" into field myField set numberformat to 0.000 end if doNewBatch if it is empty then put "gm" into field myField end mouseup M$ Z cREVGeneral revUniqueID 1095538163463  Lb  gm  lb  Lb  Lb  Lb  Lb  lb  Lb  Lb  Lb  lb  Lb  Lb  Lb  Lb  Lb  lb  Gm  Lb  Lb  Gm  Gm  Lb  Lb  Gm  Gm  Lb  Lb  Lb  Lb  Gm  Lb  lb  Gm  Gm  Lb  Lb  lb  Gm  Lb  Lb  Lb  Lb  Lb  Lb  Lb  Lb  Lb  Lb  Lb  Lb ?CHX --on changeC -- if charToNum(field "C")=67 -- then -- put "c" into field "C" -- else -- put "C" into field "C" -- end if --end changeC on mouseup if the optionkey is down then if charToNum(field "C")=67 then put "c" into field "C" else put "C" into field "C" end if else answer "Hold down the Option [ALT] key and click to change cone size." end mouseup @0!*click to change from large to small coneD cREVGeneral revUniqueID 1095538163464  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  C  CI CommentsE  Aon mouseUp send mouseup to button "Unity Formula" end mouseUp [r9 cREVGeneral revUniqueID 1095538163465 LUTILITIES LISTAon mouseUp global HGUtilities,glazeList set the hilite of me to not the hilite of me if the hilite of me is true then put cd fld "IDPrintList" of cd "GlazeIndex" into glazeList -- if glazeList is empty -- then -- push card -- set lockmessages to true -- set lockrecent to true -- lock screen -- go to card "GlazeIndex" -- send "closecard" to card "GlazeIndex" -- pop card -- unlock screen -- set lockmessages to false -- set lockrecent to false if glazeList is empty then answer "There are no glazes in the Utilities List." send mouseup to me end if -- end if set the showName of me to true answer "Now using the Utilities List of glazes. (on the Glaze Index)" & return & return & "The Arrow buttons at the lower left will ONLY go to glazes on this list when this button is highlighted." put true into HGUtilities else put false into HGUtilities set the showName of me to false end if end mouseUp \# cREVGeneral revUniqueID 1095538163466 MHealth Hazardse   33r4possible health hazards for ingredients appear here;Possible Health Hazards cREVGeneral revUniqueID 1095538163467 S Batch Cost@E -- bg btn for Batch Cost on mouseUp if fld "Cost" is empty then answer "Please calculate this clay first to retrieve cost information from the Materials stack." exit mouseup end if if the optionKey is down then put true into BaseOnly else put false into BaseOnly hide message set the cursor to busy put empty into noPrices put empty into totalCost if the short name of btn "monetary unit" is "$" then if field "Lb/Gm" is "gm" then put 453.59237 into conversionFactor else put 1 into conversionFactor else if field "Lb/Gm" is "gm" then put 1000 into conversionFactor else put 2.2046226 into conversionFactor end if if BaseOnly then put 10 into HowManyIngred else put 14 into HowManyIngred set numberFormat to 0.00 if fld "TotBatch" >0 and fld "Cost" is not ("X" & return) then put Cost(HowManyIngred,conversionFactor) into CostOfItems -- XFcn:Cost put item 1 of CostOfItems into TotalCost if baseOnly then put totalCost*1 & " (base glaze)" into fld "BatchCost" else put totalCost*1 into fld "BatchCost" if item 2 of CostOfItems is not empty then -- put "No price info on: " & item 2 to 15 of CostOfItems put "+ Unknown: " & (item 2 to 15 of CostOfItems) after fld "batchCost" end if else if fld "Cost" is ("X" & return) then put "unknown" into fld "BatchCost" else put "0.00" into fld "BatchCost" end mouseUp function Cost HowManyIngred,conversionFactor -- 1990-1993 Richard Burkett -- this is the current version 8/18/93 for the HyperGlaze (Glaze & Clay) stack put 0 into i put 0.00 into totalCost put 0.000 into amount put empty into noPrices put "" into TheIngredients put "" into TheAmounts -- set the numberformat to 0 repeat with i=1 to HowManyIngred put ("amount" & i) into whichField put ("ingredient" & i) into whichIngred if field whichIngred is not empty then put field whichingred & return after TheIngredients put field whichField & return after TheAmounts end if end repeat -- set the numberformat to 0.00 put (field "totBatch")/100.0 into batchFactor repeat with i=1 to number of lines of TheIngredients if line i of TheIngredients is not empty then if char 1 of line i of field "cost" is not in " 1234567890." then if char 1 of line i of TheIngredients is not "(" and char 1 of line i of TheIngredients is not "[" then put (line i of TheIngredients) & ", " after NoPrices next repeat end if next repeat end if else next repeat put (line i of TheAmounts)*batchFactor into amount add ((amount)*(line i of field "cost"))/(conversionFactor) to TotalCost end repeat put TotalCost & "," before noPrices return noPrices end Cost 2$Ccalculates batch costj cREVGeneral revUniqueID 1095538163468 T BatchCost)H } =k cREVGeneral revUniqueID 1095538163469  10.39   19.76  (2.75+ Unknown: C-1 Clay, 70 mesh sand,  /11.21+ Unknown: Hawthorn Bond Clay, Pyrotrol,  87.56+ Unknown: Goldart, Hawthorn Bond clay, Fine Grog,  0.59+ Unknown: Stoneware Clay,   G5.79+ Unknown: #6 Tile Clay, Newman Red Clay, fine grog or molochite,  Q4.79+ Unknown: #6 Tile Clay, Ocmulgee, 200m molochite grog, 30m molochite grog,  Q5.01+ Unknown: #6 Tile Clay, Ocmulgee, 200m molochite grog, 30m molochite grog,  )11.59+ Unknown: Avery Kaolin, PBX Clay,  K7.16+ Unknown: Lincoln 60 clay, Imco 400 clay, McNamee kaolin, fine grog,  K5.67+ Unknown: #6 Tile clay, molochite, (200 mesh), molochite, (30 mesh),  10.04+ Unknown: Ione Grog 412,  4.27+ Unknown: #6 Tile Clay,  :9.13+ Unknown: #6 Tile Clay, Hot Water, Sodium Silicate,  '6.77+ Unknown: Cedar Heights GoldArt,  (5.75+ Unknown: Darvan #811, HOT Water,  8.58  4.41+ Unknown: F-4 Feldspar,   '0.04+ Unknown: #6 Tile Clay, Goldart,   "10.70+ Unknown: Silica Sand 35m,  0.62+ Unknown: F-4 Feldspar,  -0.28+ Unknown: Tennessee #1 SGP Ball Clay,  11.79+ Unknown: "G" Grog,  $6.58+ Unknown: Hawthorn Bond Clay,  .12.31+ Unknown: Cedar Heights Goldart, sand,  15.53  )0.56+ Unknown: #6 Tile Clay, Fine Grog,  p4.07+ Unknown: Martin #5 Ball Clay, 20-40 mesh firebrick grog, 35 Mesh Mullite, plus ingredients in comments!,  )6.51+ Unknown: #6 Tile clay, molochite,  M0.00+ Unknown: Goldart, Pine Lake Fireclay, Ocmulgee clay, grog (optional),  M0.02+ Unknown: Goldart, Pine Lake Fireclay, Ocmulgee Clay, Grog (optional),   3.95  !3.05+ Unknown: Newman red clay,  0.11+ Unknown: Macaloid,  '9.74+ Unknown: Cedar Heights Goldart,  !3.01+ Unknown: Sodium Silicate,  !0.37+ Unknown: Newman Red Clay,  0.74  ,0.25+ Unknown: #6 Tile Clay, Pyrophyllite,  )4.16+ Unknown: C-1 clay, sand, 70 mesh,  )4.11+ Unknown: pyrophyllite, Darvan #7,  &16.41+ Unknown: Silica Sand or Grog,  %8.45+ Unknown: Silica Sand or Grog,  7.56+ Unknown: fine grog,  6.53+ Unknown: Goldart,  +5.75+ Unknown: "N" brand sodium silicate, JUnity Formula  on mouseUp show fld "GlazeType" show fld "Comments" show fld "hazards" show button "Health Hazards" set the scroll of fld "Comments" to 0 end mouseUp 1O0the unity molecular formula for this clay (UMF): cREVGeneral revUniqueID 1095538163470 W GlazeType)H y r cREVGeneral revUniqueID 1095538163471    Very Plastic                                                  XSurfaceA Ion mousedown set hilite of me to true put item 2 of the bottomRight of me into myTop put item 1 of the topleft of me into myLeft put "Shiny or Glossy;Semi-Gloss;Semi-Matte or Satin;Matte;Dry Matte;-);Crystalline;Luster;Texture;Slip or Engobe;Stain;-);Help with Surface Descriptions" 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 set hilite of me to false if myChoice is empty then exit mousedown if myChoice is "Help with Surface Descriptions" then Answer "Shiny/Glossy: very bright and smooth" & return &\ "SemiGloss: slightly dulled surface" & return &\ "Satin: waxy mat or satiny feel & low sheen" & return &\ "Matte: little sheen, dull surface" & return & \ "Dry Matte: almost slip-like, very dull surface" & return & \ "Luster: metallic sheen" & return & \ "Texture: crawl, etc. (specify)" else if field "surface" is not empty then put " " & myChoice after field "surface" else put myChoice into field "surface" if the mouse is down then exit mousedown click at 340,50 end if end mousedown >s cREVGeneral revUniqueID 1095538163472 `SrA on adjustBar newPct -- Set these parameters to be specific to your needs, same as above put 306 into maxHt -- these are the max/min pixel locations of the TOP of the graph bar put 346 into minHt put 40 into totHt -- total pixel height of bar graph put 1 into MaxCount -- this is the maximum amount the graph will register in whatever units --end parameters put item 1 of the bottomRight of me into MyBase put the rect of me into myRect put myBase-((newPct/MaxCount)*totHt) into myHeight put round(myHeight) into myHeight if myHeightminHt then put minHt into myHeight put myHeight into item 1 of myRect set the rect of me to myRect end adjustBar 2~~Z cREVGeneral revUniqueID 1095538163473 sUse on menupick myItem if myItem is not empty then put myItem into fld "Surface" select after last word of fld "Surface" end if end menupick @"popup menu of a list of clay usesUseWhandbuilding throwing handbuilding or throwing slip casting tilemaking heavy sculpture cREVGeneral revUniqueID 1086713045716 tPercent Analysisd -- 1988-2004 Richard Burkett on mouseUp set cursor to watch lock screen if fld "RO2" is not empty then CalcPercentAnalysis else answer "Please calculate this glaze first!" unlock screen end mouseUp on CalcPercentAnalysis put PercentageAnalysis() into myPercentages if myPercentages is empty then put "No Unity formula available. You must calculate this glaze first." into myPercentages put myPercentages into field "percentAnalysis" formatPercentageAnalysis end CalcPercentAnalysis function PercentageAnalysis put "94.192,61.98,56.08,40.32,29.88,153.36,223.21,81.38,79.54,79.94,74.69,103.62" into myROMolWts put "101.94,69.44,159.68,141.6,291.52,152.02,181.9" into myR2O3MolWts put "60.06,79.9,123.22,150.69,86.93,18.998" into myRO2MolWts put " K2O, Na2O, CaO, MgO, Li2O, BaO, PbO, ZnO, CuO, CoO, NiO, SrO,Al2O3, B2O3,Fe2O3, P2O5,Sb2O3,Cr2O3, V2O3, SiO2, TiO2, ZrO2, SnO2, MnO2, F" into myOxideList put empty into myPA put empty into myTotal set numberformat to 0.00000000 repeat with i=1 to 12 get (line i of fld "R2O")*(item i of myROMolWts) add it to myTotal put it & return after myPA end repeat repeat with i=1 to 7 get (line i of fld "R2O3")*(item i of myR2O3MolWts) add it to myTotal put it & return after myPA end repeat repeat with i=1 to 6 get (line i of fld "RO2")*(item i of myRO2MolWts) add it to myTotal put it & return after myPA end repeat if myTotal=0 then answer "Please calculate this glaze first." exit PercentageAnalysis end if put myTotal/100 into myTotal repeat with i=the number of lines of myPA down to 1 get line i of myPA if it>0 then put (it/myTotal) into line i of myPA end repeat set numberformat to 0.00 repeat with i=1 to the number of lines of myPA put (line i of myPA)*1 & " % " & item i of myOxideList into line i of myPA end repeat put line 20 of myPA & return into tempPA put line 13 of myPA & return after tempPA put line 14 of myPA & return after tempPA delete line 20 of myPA delete line 14 of myPA delete line 13 of myPA put tempPA before myPA repeat with i= the number of lines of myPA down to 1 get word 1 of line i of myPA if it=0 then delete line i of myPA else if it<10 then put " " & it into word 1 of line i of myPA else put " " & it into word 1 of line i of myPA end if end repeat return myPA end PercentageAnalysis on formatPercentageAnalysis -- formats chemical subscripts of oxides repeat with i=1 to the number of lines of fld "percentAnalysis" get offset ("2", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if get offset ("3", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if get offset ("5", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if end repeat end formatPercentageAnalysis |[3the percentage analysis of this claybody by weightPercentage Analysis cREVGeneral revUniqueID 1086714315743                                                     vFiring ]lon menupick myItem if myitem is not empty then put myItem into fld "firing" end if end menupick 8@ %popup menu of a list of firing typesPoxidation reduction oxidation or reduction Raku salt or soda wood luster saggar cREVGeneral revUniqueID 1086715376978 wTesting ]lon menupick myItem if myitem is not empty then put myItem into fld "tested" end if end menupick @"popup menu of tested and untestedTested Untested cREVGeneral revUniqueID 1086715840391  Plasticity mon menupick myItem if myItem is not empty then put myItem after fld "GlazeType" end if end menupick yT#popup menu of plasticity qualities Plasticity:_Extremely Plastic Very Plastic Moderately Plastic Somewhat Plastic Non-plastic - Casting only  cREVGeneral revUniqueID 1087525800822 mattGloss.jpg@'#)MSJFIFHHExifMM*bj(1r2iHHAdobe Photoshop CS Macintosh2004:06:17 19:41:18#)&(.LHHJFIFHH Adobe_CMAdobed            )#"?   3!1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw5!1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ?~uK^9gMnYv=d[]٘VʬV:VvV_O >\kr}ۉVN'ϳ݇Q>tޡ}Z)ȥd L@eٕe;;bQUgc3=/79mYt}ۻ#Ӌu?c~RSӾa=޵LٗU8dT٧;:˕~>GH*ηl^r7TΣ};䵕6rkWVkY[o\E9XQGɏ߭y`ѓVcmx7^} r~Of纝?Ҟ$IOUPjϯd.81~f=<, ߍw꾭/Sª߲t[ksY{ ;uSEж #]1z}ﱆcdE]c,~.?Y3}МL^z^(v\]m9Y6cm~E?guY]:1>?Lȫd1cQQO}n~o'~z?0Ĭݟkk{]}G! +e]ҺWUM-d]GO=:]Q^/b]W:/ZgSmkAǾX[u~)I$SUS7Y8 dmߺ--/[J/cۏFV7I$$I))Photoshop 3.08BIM%8BIM com.apple.print.PageFormat.PMHorizontalRes com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMHorizontalRes 72 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PageFormat.PMOrientation com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMOrientation 1 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PageFormat.PMScaling com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMScaling 1 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PageFormat.PMVerticalRes com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMVerticalRes 72 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PageFormat.PMVerticalScaling com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMVerticalScaling 1 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.subTicket.paper_info_ticket com.apple.print.PageFormat.PMAdjustedPageRect com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMAdjustedPageRect 0.0 0.0 734 576 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PageFormat.PMAdjustedPaperRect com.apple.print.ticket.creator com.apple.printingmanager com.apple.print.ticket.itemArray com.apple.print.PageFormat.PMAdjustedPaperRect -18 -18 774 594 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PaperInfo.PMPaperName com.apple.print.ticket.creator com.apple.print.pm.PostScript com.apple.print.ticket.itemArray com.apple.print.PaperInfo.PMPaperName na-letter com.apple.print.ticket.client com.apple.print.pm.PostScript com.apple.print.ticket.modDate 2003-07-01T17:49:36Z com.apple.print.ticket.stateFlag 1 com.apple.print.PaperInfo.PMUnadjustedPageRect com.apple.print.ticket.creator com.apple.print.pm.PostScript com.apple.print.ticket.itemArray com.apple.print.PaperInfo.PMUnadjustedPageRect 0.0 0.0 734 576 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PaperInfo.PMUnadjustedPaperRect com.apple.print.ticket.creator com.apple.print.pm.PostScript com.apple.print.ticket.itemArray com.apple.print.PaperInfo.PMUnadjustedPaperRect -18 -18 774 594 com.apple.print.ticket.client com.apple.printingmanager com.apple.print.ticket.modDate 2004-06-18T02:39:58Z com.apple.print.ticket.stateFlag 0 com.apple.print.PaperInfo.ppd.PMPaperName com.apple.print.ticket.creator com.apple.print.pm.PostScript com.apple.print.ticket.itemArray com.apple.print.PaperInfo.ppd.PMPaperName US Letter com.apple.print.ticket.client com.apple.print.pm.PostScript com.apple.print.ticket.modDate 2003-07-01T17:49:36Z com.apple.print.ticket.stateFlag 1 com.apple.print.ticket.APIVersion 00.20 com.apple.print.ticket.privateLock com.apple.print.ticket.type com.apple.print.PaperInfoTicket com.apple.print.ticket.APIVersion 00.20 com.apple.print.ticket.privateLock com.apple.print.ticket.type com.apple.print.PageFormatTicket 8BIMxHH@Rg(HH(dh 8BIMHH8BIM&?8BIM x8BIM8BIM 8BIM 8BIM' 8BIMH/fflff/ff2Z5-8BIMp8BIM8BIM8BIM@@8BIM8BIMI)# Untitled-1#)nullboundsObjcRct1Top longLeftlongBtomlong)Rghtlong#slicesVlLsObjcslicesliceIDlonggroupIDlongoriginenum ESliceOrigin autoGeneratedTypeenum ESliceTypeImg boundsObjcRct1Top longLeftlongBtomlong)Rghtlong#urlTEXTnullTEXTMsgeTEXTaltTagTEXTcellTextIsHTMLboolcellTextTEXT horzAlignenumESliceHorzAligndefault vertAlignenumESliceVertAligndefault bgColorTypeenumESliceBGColorTypeNone topOutsetlong leftOutsetlong bottomOutsetlong rightOutsetlong8BIM( ?8BIM8BIM8BIM h#)lLLJFIFHH Adobe_CMAdobed            )#"?   3!1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw5!1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ?~uK^9gMnYv=d[]٘VʬV:VvV_O >\kr}ۉVN'ϳ݇Q>tޡ}Z)ȥd L@eٕe;;bQUgc3=/79mYt}ۻ#Ӌu?c~RSӾa=޵LٗU8dT٧;:˕~>GH*ηl^r7TΣ};䵕6rkWVkY[o\E9XQGɏ߭y`ѓVcmx7^} r~Of纝?Ҟ$IOUPjϯd.81~f=<, ߍw꾭/Sª߲t[ksY{ ;uSEж #]1z}ﱆcdE]c,~.?Y3}МL^z^(v\]m9Y6cm~E?guY]:1>?Lȫd1cQQO}n~o'~z?0Ĭݟkk{]}G! +e]ҺWUM-d]GO=:]Q^/b]W:/ZgSmkAǾX[u~)I$SUS7Y8 dmߺ--/[J/cۏFV7I$$I)8BIM!SAdobe PhotoshopAdobe Photoshop CS8BIMhttp://ns.adobe.com/xap/1.0/ 4294967295 35 41 1 72/1 72/1 2 2004-06-17T19:41:18-07:00 2004-06-17T19:41:18-07:00 2004-06-17T19:41:18-07:00 Adobe Photoshop CS Macintosh adobe:docid:photoshop:a1ec217c-c228-11d8-90da-f1c4e34552a2 image/jpeg Adobed            )#"?   3!1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw5!1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ?~uK^9gMnYv=d[]٘VʬV:VvV_O >\kr}ۉVN'ϳ݇Q>tޡ}Z)ȥd L@eٕe;;bQUgc3=/79mYt}ۻ#Ӌu?c~RSӾa=޵LٗU8dT٧;:˕~>GH*ηl^r7TΣ};䵕6rkWVkY[o\E9XQGɏ߭y`ѓVcmx7^} r~Of纝?Ҟ$IOUPjϯd.81~f=<, ߍw꾭/Sª߲t[ksY{ ;uSEж #]1z}ﱆcdE]c,~.?Y3}МL^z^(v\]m9Y6cm~E?guY]:1>?Lȫd1cQQO}n~o'~z?0Ĭݟkk{]}G! +e]ҺWUM-d]GO=:]Q^/b]W:/ZgSmkAǾX[u~)I$SUS7Y8 dmߺ--/[J/cۏFV7I$$I) cREVGeneral revUniqueID 1087526763733 ColorPopup on menupick myItem if myItem is not empty then if fld "color" is not empty then put " " after fld "color" put myItem after fld "Color" select after last word of fld "Color" end if end menupick @$popup list of common colorsColorWhite Off-white Gray Black - Light Brown Med. Brown Dark Brown Orange-brown - Light red Med. red Dark red - Colored - Purple Colored - Blue Colored - Blue-green Colored - Green Colored - Yellow Colored - Orange Colored - Red cREVGeneral revUniqueID 1087527540223 IndexMe!`; cREVGeneral revUniqueID 1087659206300   true                                                   Calculate GlazeEpon mouseup global bailout push card lock screen put the visible of stack "materials" into MaterialsState hide stack "materials" findPercent grambatch doUnity set the visible of stack "materials" to MaterialsState pop card unlock screen unlock messages unlock recent if bailout is empty then send mouseup to btn "Batch Cost" send mouseup to btn "Percent Analysis" send mouseup to btn "Si/Al" makeClayGlobals send "adjustGraph" to btn "Graph UMF" end if end mouseup  cREVGeneral revUniqueID 1087660388098 Cost!`5=F4 cREVGeneral revUniqueID 1087679419936  .126 .103 0.00   .31 .1175 .1095 0.00 .152  X .126 .15 .1175 .152 X  .126 X .1175 .15 X .152  X .126 X .19 .1175 .1095 X 0.00  .66 0.12 X .126 .19  .31 .06 .1585 .126 .06 .06 .1225 .152 X  X .15 .126 .1095 .1175 .1225 X 0.00 X  X .126 .31 .197 .1225 X .1095 0.00 X X  X .126 .31 .197 .1225 X .1095 0.00 X X  .138 .15 X X .1975 .17  X X .15 X .126 .1175 .1095 X  X .126 .15 .1095 .1975 X X  0.07 .1095 .126 .1175 X 0.00  X .126 .1095 .1175 0.00  X .15 .126 .1095 .1175 .059 .5973 X X .50  X 0.12 .126 .1175 .17 0.00  .1175 .15 .126 .1095 .059 X .50 X  .31 .15 .1175 .1095 .1225 .152 0.00  .31 .1975 .1095 X .126 0.00  X X .19 .126 .66 .30 X  X .15 .126 X .1975 .1095 .152  X .19 X .126 .103 .152 .5973  0.12 .126 .103 X 0.00  X .50 .5375 .15 .1095 .152 4.05  .1095 .1975 .152 X .50 .51 1.00 .058  0.12 .126 .1175 .19 .152 .30 X  .126 X .103 .058  .19 .103 X 0.12 .126 .29 X .058  .126 .103 .15  X .126 .138 .5375 .51 .50 .1095 .1175 .152 .058 X  .103 .15 X X X  X .1175 .126 .1975 .1095 X  X X X X  X X .126 X .1975 .1095 X  X .19 X X .06 .1975 X .06  .19 .126  X .126 .1975 .1225  .31 .16 .1225 .1095 .152 X  .103 .29 0.12 .126 X .058 0.00  .15 .126 .1175 .1095 .1975 X 0.00  X .19 0.12 .126  .19 .126 .103 .1075  X .1175 .1095 X .152 0.00  X .126 .15 .1175 X .058 .152  .31 0.178 .15 .126 .1095 .60 X .1975 0.00 X  .19 0.12 .103 .126 .30 X  .19 0.12 .103 .30 X .5973  .19 .138 0.12 .1095 .103 .4925 .1975 .5973 X  0.12 X .28  .19 0.00 .50 X Import Glaze FileEp,on mouseup importglazefile end mouseup  cREVGeneral revUniqueID 1087758703677  Graphic 2KF( cREVGeneral revUniqueID 1087767887834 Graphic 3KF&+ cREVGeneral revUniqueID 10877678963141 Graph UMF`E  on mouseUp set cursor to watch set hilite of me to not hilite of me put "K,Na,Ca,Mg,Li,Ba,Pb,Zn,Sr" into RO put "Al,B,Fe,P" into R2O3 put "Si,Ti" into RO2 if the hilite of me is true then hide fld "R2O" hide fld "R2O3" hide fld "RO2" show btn "UMFHide1" show btn "UMFHide2" show btn "UMFHide3" --show btn "MatGloss" repeat with i=1 to 8 show btn (item i of RO) graph line i of fld "R2O",item i of RO end repeat show btn "Sr" graph line 12 of fld "R2O", "Sr" repeat with i=1 to 4 show btn (item i of R2O3) graph line i of fld "R2O3",item i of R2O3 end repeat repeat with i=1 to 2 show btn (item i of RO2) graph line i of fld "RO2",item i of RO2 end repeat show btn "SiRatio" put line 1 of fld "R2O3" into myAl if myAl>0 then graph (line 1 of fld "RO2")/myAl,"SiRatio" else graph 0,"SiRatio" else repeat with i=1 to 8 hide btn (item i of RO) end repeat hide btn "Sr" repeat with i=1 to 4 hide btn (item i of R2O3) end repeat repeat with i=1 to 2 hide btn (item i of RO2) end repeat hide btn "SiRatio" hide btn "UMFHide1" hide btn "UMFHide2" hide btn "UMFHide3" -- hide btn "matGloss" show fld "R2O" show fld "R2O3" show fld "RO2" end if end mouseUp on adjustGraph set cursor to watch put "K,Na,Ca,Mg,Li,Ba,Pb,Zn" into RO put "Al,B,Fe,P" into R2O3 put "Si,Ti" into RO2 repeat with i=1 to 8 graph (line i of fld "R2O"),(item i of RO) end repeat graph (line 12 of fld "R2O"), "Sr" repeat with i=1 to 4 graph (0.5*(line i of fld "R2O3")),(item i of R2O3) end repeat repeat with i=1 to 2 graph (0.5*(line i of fld "RO2")),(item i of RO2) end repeat put line 1 of fld "R2O3" into myAl if myAl>0 then graph ((line 1 of fld "RO2")/myAl),"SiRatio" else graph 0,"SiRatio" end adjustGraph on graph what,where send ("AdjustBar " & what) to btn where end graph OB&shows the UMF of clays as a bar graph cREVGeneral revUniqueID 1095538163474 i> cREVGeneral revUniqueID 1087769167272 Also Add:D H 6 (add additional ingredients for the clay cREVGeneral revUniqueID 1087525400075                                                      Show Lines@e on mouseUp set the showlines of fld "name" to not the showLines of fld "name" put the showlines of fld "name" into ShowOrHide repeat with i=1 to 14 set the showlines of field ("amount" & i) to ShowOrHide set the showlines of field ("ingredient" & i) to ShowOrHide set the visible of btn ("PopIngred" & i) to ShowOrHide end repeat if ShowOrHide is false then set the label of me to "Show Lines" else set the label of me to "Hide Lines" end if set the showlines of fld "totBatch" to ShowOrHide set the showlines of fld "date" to ShowOrHide set the showlines of fld "cone" to ShowOrHide set the showlines of fld "batch2" to false set the showlines of fld "batch" to false set the showlines of fld "color" to false set the showlines of fld "R2O" to false set the showlines of fld "R2O3" to false set the showlines of fld "RO2" to false end mouseUp 25C6shows or hides dotted lines showing ingredient fieldsj Hide Lines cREVGeneral revUniqueID 1087770819091 Shrinkage label1eX on mouseUp if fld "ShrinkAll" is not empty and fld "Shrinkfired" is not empty then put fld "ShrinkAll" - fld "shrinkFired" into fld "ShrinkDry" else answer "Please enter both overall and firing shrinkages first." end mouseUp 0X -enter the drying shrinkage of this clay bodyShrinkage-Drying : cREVGeneral revUniqueID 1087866967561  ShrinkLABELH@ cREVGeneral revUniqueID 1087867369984 %Shrinkage label2eX on mouseUp if fld "ShrinkDry" is not empty and fld "ShrinkAll" is not empty then put fld "ShrinkAll" - fld "shrinkDry" into fld "ShrinkFired" else answer "Please enter both drying and overall shrinkages first." end mouseUp 4 ,enter the firing shrinkage of this claybodyFiring: cREVGeneral revUniqueID 1088095638944 Shrinkage label2eX on mouseUp if fld "ShrinkDry" is not empty and fld "Shrinkfired" is not empty then put fld "ShrinkDry"+ fld "shrinkFired" into fld "ShrinkAll" else answer "Please enter both drying and firing shrinkages first." end mouseUp 4 @enter the overall (drying + firing) shrinkage for this claybody Overall: cREVGeneral revUniqueID 1088095663469  ShrinkDrymhC, cREVGeneral revUniqueID 1088095708747                                                       ShrinkLABELH@o cREVGeneral revUniqueID 1088095833171 % " ShrinkLABELH@ cREVGeneral revUniqueID 1088095983319 % # ShrinkFiredmh, cREVGeneral revUniqueID 1088095991336                                                      $ ShrinkAllmh, cREVGeneral revUniqueID 1088096030069                                                      1 ViewMarked`%*X on mouseup set the hilite of me to not the hilite of me if the hilite of me is false then if char 1 to 2 of line 11 of btn ID 1289 is "!c" then delete char 1 to 2 of line 11 of btn ID 1289 -- "Find" menu button end if else if char 1 to 2 of line 11 of btn ID 1289 is not "!c" then put "!c" before line 11 of btn ID 1289 end if end if end mouseup 333A 6if highlighted, arrow buttons go only to marked cards View Marked cREVGeneral revUniqueID 1088100995562 2 Clays Label ̙ff cREVGeneral revUniqueID 1088113493401 )C L A Y R E C I P E PopIngred1f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick [+popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105324  PopIngred2f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick j+popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105325  PopIngred3f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick y+popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105326  PopIngred4f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105327  PopIngred5f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105328  PopIngred6f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105329  PopIngred7f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105330  PopIngred8f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105331  PopIngred9f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105332  PopIngred10f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put " " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick +popup menu of a list of common ingredients  Kaolin Ball Clay Stoneware Clay Red Earthenware (- Potash Feldspar Soda Feldspar Nepheline Syenite Cornwall Stone (- Frits 3124 3134 3110 3195 (- Whiting Dolomite Silica Talc (- Barium carbonate Strontium carbonate Magnesium carbonate Wollastonited cREVGeneral revUniqueID 1088702105333  PopIngred11f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put ", " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick .popup menu of a list of common clay additives  Bentonite Macaloid (- Grog 30 mesh 60 mesh 200 mesh Sand 30 mesh 60 mesh 90 mesh Molochite (- Cobalt carbonate Cobalt oxide (- Red iron oxide Black iron oxide Yellow ochre (- Rutile Titanium dioxide (- Copper carbonate Copper oxide d cREVGeneral revUniqueID 1088702105334  PopIngred12f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put ", " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick .popup menu of a list of common clay additives  Bentonite Macaloid (- Grog 30 mesh 60 mesh 200 mesh Sand 30 mesh 60 mesh 90 mesh Molochite (- Cobalt carbonate Cobalt oxide (- Red iron oxide Black iron oxide Yellow ochre (- Rutile Titanium dioxide (- Copper carbonate Copper oxide d cREVGeneral revUniqueID 1088702105335  PopIngred13f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put ", " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick #.popup menu of a list of common clay additives  Bentonite Macaloid (- Grog 30 mesh 60 mesh 200 mesh Sand 30 mesh 60 mesh 90 mesh Molochite (- Cobalt carbonate Cobalt oxide (- Red iron oxide Black iron oxide Yellow ochre (- Rutile Titanium dioxide (- Copper carbonate Copper oxide d cREVGeneral revUniqueID 1088702105336  PopIngred14f]on menuPick myItem put the short name of me into myName delete char 1 to 9 of myName put ("ingredient" & myName) into myField put myItem into myIngredient get offset ("|",myIngredient) if it>0 then put ", " into char it of myIngredient if fld myField is not empty then answer "Replace '" & fld myField & "' with '" & myIngredient & "'?" with "Replace" or "Cancel" if it is "Replace" then put myIngredient into fld myField end if else put myIngredient into fld myField end menuPick 2.popup menu of a list of common clay additives  Bentonite Macaloid (- Grog 30 mesh 60 mesh 200 mesh Sand 30 mesh 60 mesh 90 mesh Molochite (- Cobalt carbonate Cobalt oxide (- Red iron oxide Black iron oxide Yellow ochre (- Rutile Titanium dioxide (- Copper carbonate Copper oxide d cREVGeneral revUniqueID 1088702105337 ^PercentAnalysish|j cREVGeneral revUniqueID 1095538163475   62.28 % SiO2     15.18 % Al2O3        0.59 % K2O      0.21 % Na2O      4.05 % CaO  16.25 % MgO  0.70 % Fe2O3        0.66 % TiO2     0.08 % MnO2       70.42 % SiO2     24.28 % Al2O3        3.77 % K2O      0.86 % Na2O      0.13 % CaO  0.16 % MgO  0.37 % Fe2O3        0.02 % TiO2      69.47 % SiO2     26.12 % Al2O3        1.37 % K2O      0.73 % Na2O      0.61 % CaO  0.48 % MgO  0.72 % Fe2O3        0.05 % P2O5        0.46 % TiO2      61.02 % SiO2     34.49 % Al2O3        1.50 % K2O      0.34 % Na2O      0.28 % CaO  0.38 % MgO  0.94 % Fe2O3        0.09 % P2O5        0.97 % TiO2      63.51 % SiO2     29.39 % Al2O3        2.28 % K2O      0.35 % Na2O      0.30 % CaO  0.61 % MgO  1.94 % Fe2O3        0.04 % P2O5        1.59 % TiO2      60.53 % SiO2     32.38 % Al2O3        1.28 % K2O      0.29 % Na2O      0.32 % CaO  0.49 % MgO  2.73 % Fe2O3        0.01 % P2O5        1.75 % TiO2     0.23 % MnO2      73.10 % SiO2  22.37 % Al2O3  2.66 % K2O  0.69 % Na2O  0.18 % CaO  0.15 % MgO  0.44 % Fe2O3  0.01 % P2O5  0.41 % TiO2   66.57 % SiO2     27.41 % Al2O3        3.10 % K2O      0.84 % Na2O      0.28 % CaO  0.23 % MgO  0.88 % Fe2O3        0.03 % P2O5        0.65 % TiO2      63.89 % SiO2     30.52 % Al2O3        2.69 % K2O      0.62 % Na2O      0.38 % CaO  0.36 % MgO  0.82 % Fe2O3        0.72 % TiO2      63.73 % SiO2     30.84 % Al2O3        2.71 % K2O      0.61 % Na2O      0.37 % CaO  0.35 % MgO  0.70 % Fe2O3        0.69 % TiO2      58.35 % SiO2     33.26 % Al2O3        2.30 % K2O      4.02 % Na2O      0.42 % CaO  0.15 % MgO  0.93 % Fe2O3        0.04 % P2O5        0.54 % TiO2      62.39 % SiO2     33.45 % Al2O3        1.63 % K2O      0.48 % Na2O      0.20 % CaO  0.24 % MgO  0.94 % Fe2O3        0.04 % P2O5        0.62 % TiO2      64.37 % SiO2     30.31 % Al2O3        1.30 % K2O      2.02 % Na2O      0.41 % CaO  0.30 % MgO  0.51 % Fe2O3        0.04 % P2O5        0.74 % TiO2      73.75 % SiO2     19.68 % Al2O3        3.33 % K2O      1.27 % Na2O      0.19 % CaO  0.11 % MgO  1.34 % Fe2O3        0.33 % TiO2      68.86 % SiO2     25.65 % Al2O3        2.82 % K2O      0.81 % Na2O      0.34 % CaO  0.32 % MgO  0.37 % Fe2O3        0.83 % TiO2      67.94 % SiO2     25.30 % Al2O3        2.86 % K2O      0.79 % Na2O      1.79 % CaO  0.23 % MgO  0.05 % BaO  0.40 % Fe2O3        0.03 % P2O5        0.60 % TiO2      60.72 % SiO2     33.21 % Al2O3        1.74 % K2O      0.42 % Na2O      0.30 % CaO  0.38 % MgO  1.42 % Fe2O3        1.81 % TiO2      72.18 % SiO2     21.90 % Al2O3        3.16 % K2O      0.85 % Na2O      0.85 % CaO  0.15 % MgO  0.43 % Fe2O3        0.05 % P2O5        0.41 % TiO2      66.25 % SiO2     28.25 % Al2O3        3.69 % K2O      0.89 % Na2O      0.18 % CaO  0.14 % MgO  0.42 % Fe2O3        0.05 % P2O5        0.12 % TiO2      65.71 % SiO2     28.15 % Al2O3        2.52 % K2O      2.11 % Na2O      0.55 % CaO  0.22 % MgO  0.53 % Fe2O3        0.21 % TiO2      63.21 % SiO2  26.21 % Al2O3  1.16 % K2O  0.30 % Na2O  0.34 % CaO  0.64 % MgO  5.90 % Fe2O3  0.19 % P2O5  1.54 % TiO2  0.51 % MnO2   63.98 % SiO2     30.80 % Al2O3        1.34 % K2O      1.18 % Na2O      0.36 % CaO  0.37 % MgO  0.81 % Fe2O3        0.03 % P2O5        1.12 % TiO2      64.95 % SiO2  22.25 % Al2O3  2.51 % K2O  0.45 % Na2O  1.18 % CaO  2.85 % MgO  4.50 % Fe2O3  0.07 % P2O5  1.23 % TiO2  0.01 % MnO2   58.69 % SiO2     29.77 % Al2O3        0.46 % K2O      0.31 % Na2O      1.72 % CaO  6.30 % MgO  1.19 % Fe2O3        1.51 % TiO2     0.03 % MnO2      72.45 % SiO2     13.00 % Al2O3        2.43 % K2O      10.94 % Na2O      0.91 % CaO  0.06 % MgO  0.14 % Fe2O3        0.03 % P2O5        0.04 % TiO2      65.49 % SiO2     15.13 % Al2O3        5.10 % B2O3        1.85 % K2O      7.79 % Na2O      3.68 % CaO  0.20 % MgO  0.34 % Fe2O3        0.41 % TiO2      61.01 % SiO2     29.92 % Al2O3        2.64 % K2O      0.77 % Na2O      0.34 % CaO  0.54 % MgO  3.37 % Fe2O3        0.03 % P2O5        1.37 % TiO2      57.82 % SiO2     30.12 % Al2O3        1.15 % K2O      0.18 % Na2O      1.64 % CaO  6.18 % MgO  1.26 % Fe2O3        0.06 % P2O5        1.56 % TiO2     0.02 % MnO2      63.53 % SiO2     20.89 % Al2O3        2.32 % K2O      0.32 % Na2O      2.61 % CaO  5.27 % MgO  3.77 % Fe2O3        0.09 % P2O5        1.19 % TiO2     0.02 % MnO2      61.58 % SiO2     13.61 % Al2O3        0.46 % K2O      0.20 % Na2O      4.55 % CaO  18.37 % MgO  0.61 % Fe2O3        0.52 % TiO2     0.09 % MnO2      63.98 % SiO2     27.01 % Al2O3        0.05 % B2O3        0.93 % K2O      5.44 % Na2O      0.38 % CaO  0.46 % MgO  0.63 % Fe2O3        1.12 % TiO2      62.10 % SiO2     20.31 % Al2O3        0.80 % K2O      0.16 % Na2O      3.06 % CaO  12.19 % MgO  0.59 % Fe2O3        0.05 % P2O5        0.68 % TiO2     0.06 % MnO2      67.37 % SiO2     25.10 % Al2O3        3.01 % K2O      2.89 % Na2O      0.42 % CaO  0.27 % MgO  0.30 % Fe2O3        0.64 % TiO2      63.33 % SiO2     28.28 % Al2O3        1.38 % K2O      0.31 % Na2O      0.34 % CaO  0.54 % MgO  3.93 % Fe2O3        1.77 % TiO2     0.11 % MnO2      65.40 % SiO2     27.18 % Al2O3        1.46 % K2O      0.80 % Na2O      0.37 % CaO  0.46 % MgO  2.79 % Fe2O3        1.48 % TiO2     0.06 % MnO2      65.26 % SiO2  22.71 % Al2O3  1.80 % K2O  0.76 % Na2O  0.23 % CaO  2.45 % MgO  5.53 % Fe2O3  0.03 % P2O5  1.16 % TiO2  0.07 % MnO2   66.65 % SiO2     20.50 % Al2O3        3.57 % K2O      0.38 % Na2O      0.29 % CaO  1.35 % MgO  5.95 % Fe2O3        0.14 % P2O5        1.18 % TiO2      65.54 % SiO2     24.21 % Al2O3        1.46 % K2O      1.28 % Na2O      0.18 % CaO  0.25 % MgO  6.14 % Fe2O3        0.96 % TiO2      67.67 % SiO2     26.81 % Al2O3        2.62 % K2O      1.82 % Na2O      0.48 % CaO  0.16 % MgO  0.41 % Fe2O3        0.03 % TiO2      60.43 % SiO2     15.68 % Al2O3        0.56 % K2O      0.22 % Na2O      6.06 % CaO  15.34 % MgO  0.79 % Fe2O3        0.84 % TiO2     0.09 % MnO2      69.17 % SiO2     25.41 % Al2O3        2.80 % K2O      1.18 % Na2O      0.29 % CaO  0.17 % MgO  0.47 % Fe2O3        0.07 % P2O5        0.44 % TiO2      63.81 % SiO2     26.33 % Al2O3        1.57 % K2O      0.30 % Na2O      0.20 % CaO  0.57 % MgO  5.86 % Fe2O3        0.04 % P2O5        1.31 % TiO2      66.52 % SiO2     18.37 % Al2O3        3.21 % K2O      0.35 % Na2O      1.03 % CaO  4.36 % MgO  5.02 % Fe2O3        0.12 % P2O5        1.01 % TiO2     0.01 % MnO2      66.81 % SiO2     26.83 % Al2O3        3.51 % K2O      1.08 % Na2O      0.34 % CaO  0.36 % MgO  0.32 % Fe2O3        0.75 % TiO2      69.53 % SiO2     23.79 % Al2O3        3.64 % K2O      1.32 % Na2O      0.53 % CaO  0.30 % MgO  0.52 % Fe2O3        0.03 % P2O5        0.34 % TiO2      68.32 % SiO2     24.73 % Al2O3        0.22 % B2O3        1.92 % K2O      3.28 % Na2O      0.58 % CaO  0.22 % MgO  0.34 % Fe2O3        0.01 % P2O5        0.38 % TiO2      59.91 % SiO2     23.36 % Al2O3        2.13 % K2O      0.35 % Na2O      0.91 % CaO  3.60 % MgO  8.35 % Fe2O3        0.08 % P2O5        1.29 % TiO2     0.01 % MnO2      59.30 % SiO2     24.02 % Al2O3        2.06 % K2O      0.36 % Na2O      0.89 % CaO  3.58 % MgO  8.35 % Fe2O3        0.08 % P2O5        1.34 % TiO2     0.01 % MnO2      67.61 % SiO2     21.10 % Al2O3        2.34 % K2O      0.76 % Na2O      0.60 % CaO  2.16 % MgO  0.16 % Li2O      0.35 % BaO  3.69 % Fe2O3        0.08 % P2O5        1.13 % TiO2     0.01 % MnO2      54.45 % SiO2     40.62 % Al2O3        0.99 % K2O      0.25 % Na2O      0.21 % CaO  0.29 % MgO  1.40 % Fe2O3        1.78 % TiO2      67.51 % SiO2     17.24 % Al2O3        4.27 % K2O      0.43 % Na2O      0.24 % CaO  1.62 % MgO  7.39 % Fe2O3        0.18 % P2O5        1.11 % TiO2    bigSmallWindowCon mouseup if the platform is "MacOS" then put 325 into myMinHeight put 625 into myMaxHeight else -- for Windows with menus in window put 350 into myMinHeight put 650 into myMaxHeight end if if the icon of me is 201186 then set the icon of me to 200951 revChangeWindowSize 525,myMinHeight else set the icon of me to 201186 revChangeWindowSize 525,myMaxHeight end if end mouseup Iclick to show or hide comments cREVGeneral revUniqueID 1089385837278  Import ASCII@E Bon mouseUp importAscii end mouseUp on importAscii myFileName global importingGlazeBase put true into importingGlazeBase if myFileName is empty then answer file "Find the text file (.txt) of clay recipes to import:" -- of type "TEXT.*.txt" if the result is not empty then exit importAscii put it into myFile else put myFileName into myFile open file myFile for read set itemDelimiter to ":" put empty into Comments put empty into Materials put empty into Amounts put empty into Colorants put empty into colorAmounts put false into NewGlaze put empty into NumberOfColorants put empty into continueData put empty into numberLast put empty into includesBatch 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, yellow ochre, 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, silicon carbide,grog,molochite,sand" into colorantList repeat set cursor to busy read from file myFile until return if it is empty then exit repeat put it into tempText if last char of tempText is return then delete last char of TempText put stripSpaces(tempText) into tempText repeat the number of chars of tempText -- strip tabs get offset(tab,tempText) if it>0 then put space into char it of tempText else exit repeat end repeat if tempText is empty then next repeat -- 2/22/97 if char 1 of tempText is ">" then delete char 1 of tempText if word 1 of tempText is ">" then delete word 1 of tempText if char 1 of word 1 of tempText is ">" then delete char 1 of word 1 of tempText if item 1 of tempText contains "Comments" then put "Comments" into ContinueData if tempText is "Also Add:" then next repeat if TempText contains "Totals:" then next repeat -- put myHeader && item 1 of tempText -- delete later -- wait until the mouse is down -- delete later if (":" is not in tempText and ContinueData is not "recipe") then -- -- or (":" is in tempText and (item 1 of tempText is not in "recipe, glaze, name, comment, color, surface, cone, firing, tested, date " -- or "Material #" is not in item 1 of TempText)) then -- 2/22/97 if myHeader contains "Comments" or (myHeader contains "recipe" and "source" is not in myHeader) then if myHeader is "Comments" then put "Comments" into ContinueData if myHeader is "recipe" and "source" is not in myHeader then put "recipe" into ContinueData end if else if myHeader is not empty then put empty into ContinueData put empty into myHeader if "recipe" is not in ContinueData then if offset(":", tempText)>0 or offset("-", tempText)>0 then if item 1 of tempText is "comments" then delete item 1 of tempText --8/8/97 put return & tempText after Comments else put " " & tempText after Comments end if else put item 1 of tempText into myHeader get offset(">", myHeader) if it>0 then delete char it of myHeader if myHeader is "Glaze Name" or myHeader is "Clay Name" then if NewGlaze then finishImport materials,amounts,Colorants,ColorAmounts,comments -- then initialize variables for the next recipe put empty into NumberOfColorants put empty into Materials put empty into Amounts put empty into Colorants put empty into colorAmounts put empty into comments put empty into continueData put empty into NumberLast put empty into includesBatch end if doMenu "New Card" if the result is not empty then answer "Can't make a new card. Import Canceled!" close file myFile put empty into importingGlazeBase set itemdelimiter to "," exit importAscii end if put true into NewGlaze delete item 1 of TempText put stripSpaces(tempText) into tempText put tempText into fld "name" next repeat end if if not NewGlaze then next repeat if myHeader is "Cone" then delete item 1 of TempText put empty into continueData if tempText contains "small" then put "c" into fld "C" end if put FormatCones(tempText) into tempText put tempText into fld "cone" -- else if myHeader contains "Cone Size" then -- delete item 1 of TempText -- if tempText contains "small" then -- put "c" into fld "C" -- end if else if myHeader is "Color" and the number of words of myHeader=1 then delete item 1 of TempText put deleteExtraChars(TempText) into TempText put empty into continueData if the number of chars of tempText>40 then put "Color: " & tempText & return after comments put char 1 to 32 of tempText into fld "Color" else if myHeader is "Testing" and the number of words of myHeader=1 then delete item 1 of TempText put deleteExtraChars(TempText) into TempText put empty into continueData if the number of chars of tempText>9 or tempText is not in " Tested , Untested " then put "Testing: " & tempText & return after comments put word 1 of tempText into fld "Tested" else if (myHeader contains "Surface Quality" or myHeader contains "Surface") and "variations" is not in myHeader then delete item 1 of TempText put deleteExtraChars(TempText) into TempText put stripSpaces(tempText) into tempText put empty into continueData if the number of chars of tempText>40 then put "Surface: " & tempText & return after comments put char 1 to 32 of tempText into fld "Surface" else if myHeader is "Firing Type" or myHeader contains "FIring" or myHeader contains "atmosphere" then put deleteExtraChars(TempText) into TempText put empty into continueData if the number of chars of tempText>25 then put "Firing: " & tempText & return after comments delete item 1 of TempText put char 1 to 12 of tempText into fld "Firing" else if myHeader contains "kiln" then put empty into continueData put tempText & return after comments else if myHeader contains "Total" then next repeat -- delete item 1 of tempText -- put first word of tempText into cd fld "TotBatch" else if myHeader contains "Material #" or (myHeader is "recipe" and "source" is not in myHeader) or ContinueData contains "recipe" then if myHeader is "recipe" and "source" is not in myHeader then put "recipe" into ContinueData if ContinueData is empty then delete item 1 of TempText if myHeader is "recipe" and TempText contains ":" then next repeat if last char of tempText is "%" then delete last char of tempText if last word of tempText is "gram" or last word of temptext is "grams" or last word of tempText is "lb" or last word of temptext is "gm" or last word of tempText is "lbs" or last word of temptext is "oz" then delete last word of tempText -- find out recipe format if NumberLast is empty and ContinueData contains "recipe" then if isNumber(last word of tempText) is true then put true into NumberLast else put false into NumberLast end if end if put (the number of words of temptext)-1 into pctAmount -- don't delete - needed later if (includesBatch is empty) and numberLast is true and ContinueData contains "recipe" then if pctAmount>1 and isNumber(word pctAmount of temptext) and word pctAmount of temptext contains "." then put true into includesBatch else put false into includesBatch end if if includesBatch is true then delete last word of TempText put stripSpaces(tempText) into tempText -- if offset(tab,temptext)>0 and ContinueData contains "recipe" then -- put tab into myDelimitChar -- else if includesBatch is true then -- put space into myDelimitChar -- else put the itemDelimiter into myDelimitChar -- put the itemDelimiter into theDelimitChar -- set the itemdelimiter to myDelimitChar -- if the number of items of tempText>2 and item 2 of tempText is not empty then -- delete last item of tempText -- else if includesBatch is true then delete last word of TempText -- set the itemdelimiter to theDelimitChar if numberLast is true then put last word of tempText into myWord else put first word of tempText into myWord put empty into tempWord repeat with i= the number of chars of myWord down to 1 if char i of myWord is not in "0123456789 ." then put char i of myWord before tempWord delete char i of myWord end if end repeat put myWord into tempAmount if numberLast is true then delete last word of tempText else delete first word of TempText if tempWord is not empty then put tempText & " " & tempWord into tempText else put tempText into tempText -- strip tabs & spaces was here if continueData is "recipe" or (tempText is not empty and tempText is not " " and tempText is not " ") then if (colorantList contains tempText or tempText contains "stain") and NumberOfColorants<5 then put tempAmount & return after ColorAmounts put tempText & return after Colorants add 1 to NumberOfColorants else put tempAmount & return after Amounts put tempText & return after Materials end if end if -- else if myHeader contains "Clay Color/Type" then -- these are used only by GlazeBase Stack -- put deleteExtraChars(TempText) into TempText -- if there is a fld "ClayType" then -- delete item 1 of TempText -- put tempText into fld "ClayType" -- else -- put return & tempText after comments -- end if -- else if myHeader contains "Clarity" then -- put deleteExtraChars(TempText) into TempText -- if there is a fld "Opacity" then -- delete item 1 of TempText -- put tempText into fld "Opacity" -- else -- put return & tempText after comments -- end if -- else if myHeader contains "Crystals" then -- put deleteExtraChars(TempText) into TempText -- if there is a fld "Crystals" then -- delete item 1 of TempText -- put tempText into fld "Crystals" -- else -- put return & tempText after comments -- end if -- else if myHeader contains "Glaze Flow" then -- put deleteExtraChars(TempText) into TempText -- if there is a fld "GlazeFlow" then -- delete item 1 of TempText -- put tempText into fld "GlazeFlow" -- else -- put return & tempText after comments -- end if -- else if myHeader contains "Glaze Contributor" then -- if there is a fld "Submitter" then -- delete item 1 of TempText -- put tempText into fld "Submitter" -- else -- put return & tempText after comments -- end if -- else if myHeader contains "Date of Submission" then -- delete item 1 of TempText -- put tempText into fld "Date" else if myHeader contains "cone type" then put deleteExtraChars(TempText) into TempText if myHeader contains "Bubbles Within Glaze" then put deleteExtraChars(TempText) into TempText if offset(":", tempText)>0 or offset("-", tempText)>0 then put return & tempText after Comments else put " " & tempText after Comments end if end if end repeat if NewGlaze then FinishImport materials,amounts,Colorants,ColorAmounts,comments else answer "This was not a properly formatted GlazeBase recipe." close file myFile set itemdelimiter to "," put empty into importingGlazeBase end importAscii on finishImport materials,amounts,Colorants,ColorAmounts,comments put the number of lines of Materials into NumberOfMaterials put empty into MaterialOverFlow if NumberOfMaterials>10 then repeat with i=11 to NumberOfMaterials if line i of materials is not empty or line i of materials is not " " then put line i of materials && line i of amounts & return after MaterialOverFlow end repeat put "Too many ingredients (these ingredients are also to be added to the recipe):" & return & MaterialOverFlow before comments put 10 into NumberOfMaterials end if repeat with i=1 to NumberOfMaterials if the number of words of line i of Materials>0 then put line i of Materials into fld ("ingredient" & i) put line i of Amounts into fld ("amount" & i) end if end repeat put the number of lines of Materials into NumberOfMaterials if NumberOfColors>4 then put 4 into NumberOfColors repeat with i=1 to NumberOfColors if the number of words of line i of Colorants>0 then put line i of Colorants into fld ("ingredient" & i+10) put line i of ColorAmounts into fld ("amount" & i+10) end if end repeat if the number of chars of comments>29900 then put char 1 to 29900 of comments into fld "Comments" -- put " > GlazeBase recipe < " & return before fld "Comments" ask file "Too many comments." & return & "Save the remainder as:" with char 1 to 20 of fld "name" && "Comments" if the result is not empty then put it into CommentFile open file CommentFile write char 29901 to (the number of chars of Comments) of Comments to file CommentFile close file commentFile end if else if word 1 of comments is "comments" or word 1 of comments is "comments:" then delete word 1 of comments --8/8/97 if char 1 of comments is ":" then delete char 1 of comments --8/8/97 repeat the number of lines of comments if line 1 of comments is empty then delete line 1 of comments else exit repeat end repeat put comments into fld "Comments" -- put "> ClayArt Listserv recipe <" & return & -- "If you find this glaze useful, please consider submitting it to the GlazeBase project with full documentation. " & -- "Use one of the GlazeBase submission formats available on the CeramicsWeb web page. " & return -- before fld "Comments" end if if fld "Date" is empty then put the short date into fld "Date" end if end finishImport function FormatCones myText put false into CheckNext repeat with i=the number of words of myText down to 1 get word i of myText put true into NotNumber repeat with x=1 to the number of chars of it if char x of it is in "0123456789 ,-" then put false into NotNumber end repeat if NotNumber then delete word i of myText end repeat put stripSpaces(myText) into myText repeat with i= the number of chars of myText down to 1 -- if char i of myText is " " then delete char i of myText if char i of myText is not in "a0123456789 ,-" then put "," into char i of myText get char i of myText if checkNext then if it is not " " then put " " after char i of myText put false into CheckNext if it is "-" then if char i+1 of myText is not " " then put " " after char i of myText put true into checkNext end if if it is "," then if char i+1 of myText is not " " then put " " after char i of myText end if end repeat put stripSpaces(myText) into myText return myText end FormatCones function deleteExtraChars myText -- get offset(">", myText) -- if it>0 then put empty into char it of myText get offset("[", myText) if it>0 then repeat put empty into char it of myText get offset("[",myText) if it<=0 then exit repeat end repeat end if get offset("]", myText) if it>0 then repeat put empty into char it of myText get offset("]",myText) if it<=0 then exit repeat end repeat end if return myText end deleteExtraChars function isNumber mytext repeat with x=1 to the number of chars of mytext if char x of mytext is in "1234567890. " then put true into myResult else put false into myResult exit repeat end if end repeat return myResult end isNumber GCjcREVTempMaster; traversalOnfalseinksrcCopythreeDtrue hiliteBorderfalserect306,311,373,327 mnemonic0armFillfalse visitedIcon0 patterns showNametrue showIconfalsecolors hilitedfalse sharedHilitetrueshadowfalse textAligncenterarmedfalsemenuMouseButton1id1263altId106 labelWidth0 accelKey armedIcon0 textStyleboldlockLocfalsevisitedfalse showHilitefalselabel Show Lines autoHilitetruestyle rectangle disabledIcon0 armBorderfalsename Show Linesicon0toolTiphides or shows recipe underlinelayer109 accelTextvisibletrue cantSelectfalse borderWidth2 menuLines5margins4opaquetrue accelModstext shadowOffset4defaultfalse menuName hiliteFilltrue showBordertrue textSize10 hiliteIcon0 disabledfalseautoArmfalse menuModefamily0 textFontArialshowFocusBordertrue menuHistory1 cREVGeneral revUniqueID 1094485948773 Import InsightD !on mouseup answer file "Please locate the Insight recipe file (.RCP or .RCX file) to open:" --with filter "????,*.rcp" if the result is not empty then exit mouseup put it into myFileName put the number of chars of myFileName into myFileChars put (char (myFileChars-3) to myFileChars of myFileName) into myFileExtension if myFileExtension = ".RCP" then importInsight myFileName else if myFileExtension = ".RCX" then importNewInsight myFileName else answer "This doesn't appear to be an Insight recipe file." & return & " It does not end in '.RCP' or '.RCX'" end mouseup on importInsight myFileName 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 dixoide, manganese carbonate, manganese dioxide, yellow ochre, 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, grog, sand, molochite" into colorantList put 0 into NumberOfColorants put empty into colorants put empty into materials put empty into colorantAmounts put empty into materialAmounts put false into isColorant if myFileName is empty then answer file "Please locate the Insight recipe file (.RCP or .RCX file) to open:" --with filter "????,*.rcp" if the result is not empty then exit importInsight put it into myFileName end if set the cursor to watch open file myFileName for read read from file myFileName until return put char 1 of word 1 of it into INSGHTver read from file myFileName until return if "RCP" is not in it then put "Sorry, " & myFileName & " wasn't an insight glaze recipe." play boing close file myFileName exit importInsight end if doMenu "New Card" read from file myFileName until return read from file myFileName until return if last char of it is return then delete last char of it put it into fld "Name" repeat with i = 1 to 14 read from file myFileName until return put it into tempText if tempText contains "EOF" then repeat with x=1 to the number of lines of materials put line x of materials into fld ("ingredient" & x) put line x of materialAmounts into fld ("amount" & x) end repeat repeat with x= 1 to the number of lines of colorants put line x of colorants into fld ("ingredient" & x+10) put line x of colorantAmounts into fld ("amount" & x+10) end repeat checkForNotes myFileName close file myFileName exit importinsight end if if last char of tempText is return then delete last char of tempText put stripSpaces(tempText) into tempText if colorantList contains tempText and NumberOfColorants<4 then put true into isColorant put tempText & return after Colorants add 1 to NumberOfColorants else put tempText & return after Materials end if read from file myFileName until return if INSGHTver<4 then read from file myFileName until return put it into tempText if last char of tempText is return then delete last char of tempText if isColorant then put tempText & return after colorantAmounts put false into isColorant else put tempText & return after materialAmounts end repeat repeat read from file myFileName until return if it is empty or it contains "EOF" then exit repeat if last char of it is return then delete last char of it put it & " " after theRestOfRecipe read from file myFileName until return if it is empty or it contains "EOF" then exit repeat read from file myFileName until return if INSGHTver<4 then read from file myFileName until return if it is empty or it contains "EOF" then exit repeat if last char of it is return then delete last char of it put it & ", " after theRestOfRecipe end repeat if theRestOfRecipe is not empty then answer "Sorry, this Insight recipe contains more than 14 ingredients. The additional ingredients will appear in the comments." put "Truncated recipe, translated from Insight recipe." && "Additional ingredients include: " & theRestOfRecipe after fld "Comments" play boing checkForNotes myFileName close file myFileName exit importInsight end if close file myFileName end importInsight on checkForNotes myFileName read from file myFileName until return read from file myFileName until end repeat with i=1 to the number of lines of it if line i of it is "NOTES" or line i of it is "ENDNOTES" then delete line i of it end repeat put it into fld "Comments" end CheckForNotes on importNewInsight myFileName 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 dixoide, manganese carbonate, manganese dioxide, yellow ochre, 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" into colorantList put 0 into NumberOfColorants put empty into colorants put empty into materials put empty into colorantAmounts put empty into materialAmounts put false into isColorant if myFileName is empty then answer file "Please locate the Insight recipe file (.RCP or .RCX file) to open:" --with filter "????,*.rcp" if the result is not empty then exit importNewInsight put it into myFileName end if set the cursor to watch open file myFileName for read read from file myFileName until ">" if char 2 to 4 of it is not "RCX" then answer "This is not an Insight 'RCX' file." exit importNewInsight end if doMenu "New Card" read from file myFileName until "" if it is empty then bailOutImport myFileName exit importNewInsight end if read from file myFileName until "" if it is empty then bailOutImport myFileName exit importNewInsight end if repeat 10 delete last char of it end repeat put it into fld "Name" put it into myGlaze get offset("Cone", myGlaze) if it>0 then put char 1 to (it-2) of myGlaze into NewGlazeName delete char 1 to (it+4) of myGlaze get offset(" ",myGlaze) put char 1 to (it-1) of myGlaze into fld "Cone" delete char 1 to (it-1) of myGlaze put NewGlazeName before myGlaze put myGlaze into fld "Name" end if read from file myFileName until "" if it is empty then bailOutImport myFileName exit importNewInsight end if read from file myFileName until "" if it is empty then bailOutImport myFileName exit importNewInsight end if repeat 7 delete last char of it end repeat put it into fld "Date" read from file myFileName until "" if it is empty then bailOutImport myFileName exit importNewInsight end if put it into myRecipe repeat with i=1 to 14 get offset("",myRecipe) if it =0 then then exit repeat delete char 1 to (it+9) of myRecipe get offset("",myRecipe) if it is empty then exit repeat put char 1 to (it-1) of myRecipe into myMaterial --delete char 1 to it of myRecipe put myMaterial into fld ("Ingredient" & i) get offset("",myRecipe) if it =0 then then exit repeat delete char 1 to (it+7) of myRecipe get offset("",myRecipe) if it is empty then exit repeat put char 1 to (it-1) of myRecipe into myMaterial --delete char 1 to it of myRecipe put myMaterial into fld ("Amount" & i) end repeat read from file myFileName until "" --put it if it is empty then bailOutImport myFileName exit importNewInsight end if read from file myFileName until "" if it is empty then bailOutImport myFileName exit importNewInsight end if repeat 8 delete last char of it end repeat put it into fld "Comments" close file myFileName end importNewInsight on bailOutImport myFileName close file myFileName end bailOutImport )GNjcREVTempMaster; traversalOnfalseinksrcCopythreeDtrue hiliteBorderfalse mnemonic0rect306,311,373,327armFillfalse patterns visitedIcon0colors showIconfalse showNametruehilitedfalseshadowfalse sharedHilitetrue textAligncenterarmedfalsemenuMouseButton1id1263altId106 labelWidth0 accelKey armedIcon0 textStyleboldlockLocfalse autoHilitetruelabel Show Lines showHilitefalsevisitedfalse disabledIcon0style rectangle armBorderfalseicon0name Show LinestoolTiphides or shows recipe underline accelTextlayer109 borderWidth2 cantSelectfalsevisibletrue menuLines5margins4 accelModsopaquetruedefaultfalse shadowOffset4text hiliteFilltrue menuName showBordertrue disabledfalse hiliteIcon0 textSize10autoArmfalsefamily0 menuMode textFontArial menuHistory1showFocusBordertrue cREVGeneral revUniqueID 1094489753711                                                     ClaysMenubarI cREVGeneral revUniqueID 1095538163476FileU- --The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Open" if the platform is "MacOS" then answer file "Select the HyperGlaze stack to open:" of type "RSTK" else if the platform is "Win32" then answer file "Select the HyperGlaze stack to open:" with filter "Stack file,*.rev" end if if it is empty then exit menuPick open stack it show stack it break case "Close" close stack the topstack break case "Save" set cursor to busy save stack "Glazes" if the result is not empty then answer "The Glazes stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Glaze Index" if the result is not empty then answer "The Glaze Index stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Materials" if the result is not empty then answer "The Materials stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Materials Index" if the result is not empty then answer "The 'Glazes' stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "clays" if the result is not empty then answer "The 'Glazes' stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Clay Index" if the result is not empty then answer "The 'Glazes' stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Glaze Limits" if the result is not empty then answer "The Glaze Limits stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Glaze Calculator" if the result is not empty then answer "The Glaze Calculator stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Complex Search" if the result is not empty then answer "The Complex Search stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "QuadBlender" if the result is not empty then answer "The QuadBlender stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Bibliography" if the result is not empty then answer "The Bibliography stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if break case "Import|HyperGlaze file" send mouseup to btn "import Glaze File" --hidden break case "Import|Insight file" send mouseup to btn "import Insight" --hidden break case "Import|GlazeBase TEXT file" send mouseup to btn "import ASCII" --hidden break case "Export|as HyperGlaze file" saveAsClayFile break case "Export|as Text file" saveAsTextFile break case "Export|as Insight RCP file" saveInsight break case "Export Marked Cards|as HyperGlaze file" saveMarkedClays break case "Export Marked Cards|as Text file" saveMarkedTextClays break case "Page Setup" answer printer break case "Print Card" if the showLines of fld "name" is true then send mouseup to btn "Show Lines" set printMargins to 36,18,18,41 -- 0.5,0.25,0.25,0.56 inches open printing with dialog if the result is not empty then exit menuPick print this card close printing break case "Print Marked Cards" if the number of marked cards of stack "Clays" <=0 then answer "There are no marked Clay recipe cards!" exit menuPick end if if the showLines of fld "name" is true then send mouseup to btn "Show Lines" set printMargins to 36,18,18,41 -- 0.5,0.25,0.25,0.56 inches open printing with dialog if the result is not empty then exit menuPick print marked cards close printing break case "Print Special|Marked Clays as Labels 3.3x4" hide stack "Label ClayPrinting" open stack "Label ClayPrinting" send mouseup to btn "Print Glazes" of stack "Label ClayPrinting" break case "Print Special|Marked Clays as Labels with Hazards" hide stack "Label ClayHazards" open stack "Label ClayHazards" send mouseup to btn "Print ClayHazards" of stack "Label ClayHazards" break case "Quit" -- set the itemDelimiter to "." -- versions are of the form "x.y.z" -- if the platform is "MacOS" and item 1 of the systemVersion >= 10 then put true into myComputerIsOSX -- if myComputerIsOSX is not true then -- 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 busy -- save stack "Glazes" -- if the result is not empty then -- answer "The Glazes stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Glaze Index" -- if the result is not empty then -- answer "The Glaze Index stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Materials" -- if the result is not empty then -- answer "The Materials stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Materials Index" -- if the result is not empty then -- answer "The 'Glazes' stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "clays" -- if the result is not empty then -- answer "The 'Glazes' stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Clay Index" -- if the result is not empty then -- answer "The 'Glazes' stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Glaze Limits" -- if the result is not empty then -- answer "The Glaze Limits stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Glaze Calculator" -- if the result is not empty then -- answer "The Glaze Calculator stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Complex Search" -- if the result is not empty then -- answer "The Complex Search stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "QuadBlender" -- if the result is not empty then -- answer "The QuadBlender stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Bibliography" -- if the result is not empty then -- answer "The Bibliography stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- end if quit -- end if break end switch end menuPick FileV&Open/0 &Close/W - &Save/S (- Import HyperGlaze file Insight file GlazeBase TEXT file Export as HyperGlaze file as TEXT file as Insight RCP file Export Marked Cards as HyperGlaze file as TEXT file - Page Setup &Print Card/P Print Marked Cards Print Special Marked Clays as Labels 3.3x4 Marked Clays as Labels with Hazards - &Quit/Q cREVGeneral revUniqueID 1095538163477 EditU >--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 "Copy Recipe as Text|Recipe Only" copyRecipeAsText "RecipeONLY" break case "Copy Recipe as Text|Include Comments" copyRecipeAsText "Comments" break case "Copy Recipe as Text|Include Analysis" copyRecipeAsText "Analysis" break case "Paste" if the clipboard is "text" then paste break case "Clear" delete break case "Add Comment to Marked Cards" if the number of marked cards=0 then answer "There are no marked clay recipe cards." exit menuPick end if ask "Type the text to be added to the comments of all currently marked clays:" if it is empty then exit menuPick put it into myComment repeat the number of marked cards go to next marked card put " " & myComment after fld "comments" end repeat break case "New Card" create card break case "Duplicate Card" copy this card paste set the clipBoardData to empty put "True" into fld "indexMe" break case "Delete Card" if (the number of cards of stack "Clays") =1 then answer "This is the last card in the Clays stack. It cannot be deleted." & return & "Make a new card first, then delete this card." exit menupick end if answer "Delete this Clay recipe permanently?" with "Delete" or "Cancel" if it is "Delete" then delete this card break case "Delete Marked Cards" answer "Delete all marked Clay recipes permanently?" with "Delete" or "Cancel" if it is "Delete" then lock messages repeat the number of marked cards set cursor to busy go next marked card if (the number of cards of stack "Clays") =1 then answer "This is the last card in the Clays stack. It cannot be deleted." & return & "Make a new card first, then delete this card." exit repeat end if delete this card end repeat unlock messages send mouseup to btn "Update Index" of stack "Clay Index" end if break case "Delete ALL Clay Recipes" DeleteAllCards break case "Preferences" open stack "Preferences" break end switch end menuPick  Edit&Undo/Z (- Cu&t/X &Copy/C Copy Recipe as Text Recipe Only Include Comments Include Analysis &Paste/V Clea&r - Add Comment to Marked Cards - &New Card/N &Duplicate Card/D (- D&elete Card/E Delete Marked Cards (- Delete ALL Clay Recipes (- Preferences cREVGeneral revUniqueID 1095538163478 GoU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Go Back" go back 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 ?GoGo &Back/[ Go &Forward/] (- Index (- Glazes Glaze Index (- Glaze Limits Glaze Calculator (- (Clays Clay Index (- Materials Materials Index (- Unity Explained Bibliography QuadBlender Potter's Friend  cREVGeneral revUniqueID 1095538163479  FindU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich global gFindWord, gFindWhich switch pWhich case "Find" ask "What would you like to find?" with gFindWord titled "Find" if it is empty then exit menuPick put it into gFindWord put empty into gFindWhich find string gFindWord if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found." break case "Find by Name" ask "Enter a glaze name to find:" with gFindWord titled "Find by Name" if it is empty then exit menuPick put it into gFindWord put "Name" into gFindWhich find string it in fld "Name" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Name field." break case "Find by Cone" ask "Enter a cone number to find:" with gFindWord titled "Find by Cone" if it is empty then exit menuPick put it into gFindWord put "Cone" into gFindWhich find whole it in fld "Cone" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Cone field." break case "Find by Color" ask "Enter a color to find:" with gFindWord titled "Find by Color" if it is empty then exit menuPick put it into gFindWord put "Color" into gFindWhich find string it in fld "Color" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Color field." break case "Find by Usage" ask "Enter a usage (thow, cast, hand) to find:" with gFindWord titled "Find by Usage" if it is empty then exit menuPick put it into gFindWord put "Surface" into gFindWhich find string it in fld "Surface" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Usage field." break case "Find by Firing" ask "Enter a firing type to find:" & return & "(oxidation, reduction, soda, salt, wood, luster, raku, saggar)"\ with gFindWord titled "Find by Firing" if it is empty then exit menuPick put it into gFindWord put "Firing" into gFindWhich find string it in fld "Firing" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Firing field." break case "Find in Comments" ask "Enter comment phrase to find:" with gFindWord titled "Find in Comments" if it is empty then exit menuPick put it into gFindWord put "Comments" into gFindWhich find string it in fld "Comments" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Comments field." break case "Find Again" if gFindWhich is not empty then if gFindWhich is "Cone" then find whole gFindWord in fld gFindWhich if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the " & gFindWhich & " field." end if else find string gFindWord in fld gFindWhich if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the " & gFindWhich & " field." end if end if else find string gFindWord if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found." end if break case "View ONLY Marked Cards" send mouseup to btn "ViewMarked" if the hilite of btn "ViewMarked" is false then if char 1 to 2 of line 11 of btn ID 1289 is "!c" then delete char 1 to 2 of line 11 of btn ID 1289 --the Find button end if else if char 1 to 2 of line 11 of btn ID 1289 is not "!c" then put "!c" before line 11 of btn ID 1289 end if end if break case "Complex Search" open stack "Complex Search" show stack "complex Search" go to cd "Clays" break end switch end menuPick Z#Find&Find/F (- Find by Name Find by Cone Find by Color Find by Usage Find by Firing Find in Comments Find A&gain/G !c(- View ONLY Marked Cards - Complex Search cREVGeneral revUniqueID 1095538163480  ClaysU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Calculate" send mouseup to btn "calculate Glaze" -- hidden break case "New Batch" doNewBatch break case "Set Batch Size for Marked Cards" send "setBatchSizeMarked" to stack "Clays" break case "Calculate Marked Cards" push card go to stack "Clays" go to first marked card global gCalcAll put "Quick Calc" into gCalcAll repeat the number of marked cards send "mouseup" to btn "Calculate Glaze" go to next marked card end repeat put empty into gCalcAll pop card break case "Calculate All Cards" push card go to stack "Clays" go to first card global gCalcAll put "Quick Calc" into gCalcAll repeat the number of cards send "mouseup" to btn "Calculate Glaze" go to next card end repeat put empty into gCalcAll pop card break case "Mark Card" mark this card put the id of this cd into myID get word 1 of fld "Cone" if it >6 and char 1 of it is not "0" then put "highfire" into myField else if it >2 and char 1 of it is not "0" then put "midrange" into myField else put "lowfire" into myField push card go to stack "Clay Index" find empty find myID in fld (myField & "ID") put word 2 of the foundline into myLine if char 1 of line myLine of fld myField is not "+" then put "+" before char 1 of line myLine of fld myField set the foregroundColor (line myLine of fld myField) to "#990000" end if pop card break case "Mark ALL Cards" Mark All Cards push card go to stack "Clay Index" put "lowfire,midrange,highfire" into myIndexes repeat with i=1 to 3 put item i of myIndexes into myField repeat with x=1 to the number of lines of fld myField set cursor to busy if char 1 of line x of fld myField is not "+" then put "+" before line x of fld myField set the foregroundColor (line x of fld myField) to "#990000" end if end repeat end repeat pop card break case "Unmark Card" unmark this card put the id of this cd into myID get word 1 of fld "Cone" if it >6 and char 1 of it is not "0" then put "highfire" into myField else if it >2 and char 1 of it is not "0" then put "midrange" into myField else put "lowfire" into myField push card go to stack "Clay Index" find empty find myID in fld (myField & "ID") of stack "Clay Index" put word 2 of the foundline into myLine if char 1 of line myLine of fld myField is "+" then delete char 1 of line myLine of fld myField set the foregroundColor (line myLine of fld myField) to "#000000" end if pop card break case "Unmark ALL Cards" answer "Unmark all cards in the Clays stack?" with "Unmark" or "Cancel" if it is "Unmark" then unmark all cards push card lock messages go to stack "Clay Index" put "lowfire,midrange,highfire" into MyIndexFields repeat with x=1 to 3 put item x of MyIndexFields into myField repeat with i=1 to the number of lines of fld myField if char 1 of line i of fld myField is "+" then delete char 1 of line i of fld myField set the foregroundColor (line i of fld myField) to "#000000" end if end repeat end repeat pop card unlock messages break case "Compare Clays" open stack "Compare Clays" show stack "Compare Clays" break case "Sort by Name" sort by fld "name" break case "Sort by Cone" sort by fld "cone" break case "Sort by Color" sort by fld "color" break case "Sort by Usage" sort by fld "surface" break case "Sort by Firing" sort by fld "firing" break case "Send to Blender" sendToBlender break case "Send to Calculator" SendToGlazeCalculator break case "Send to Limits" SetLimits break end switch end menuPick }/ClaysCalculate/= New Batch (- Set Batch Size for Marked Cards Calculate Marked Cards Calculate All Cards - Mar&k Card/K Mark ALL Cards Unmark Card/J Unmark ALL Cards (- Compare Clays (- Sort by Name Sort by Cone Sort by Color Sort by Usage Sort by Firing cREVGeneral revUniqueID 1095538163481  HelpUF--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Help with HyperGlaze" open stack "HyperGlaze Help" show stack "HyperGlaze Help" break case "About HyperGlaze" open stack "HG Splash" show stack "HG Splash" break end switch end menuPick $Help*&Help with HyperGlaze - &About HyperGlaze cREVGeneral revUniqueID 1095538163482  Clay Index" -- 2004 Richard Burkett -- all rights reserved worldwide on keydown myKey global gLastKeyDown put false into myFoundLine get the menuHistory of btn "whichIndex" if it is 1 then put "lowfire" into myField else if it is 2 then put "midrange" into myField else put "highfire" into myField if the selectedLine is empty or myKey is not gLastKeyDown then put 1 into myStartingLine else put (word 2 of the selectedLine)+1 into myStartingLine put myKey into gLastKeyDown if myKey is in "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,*" then repeat with i=myStartingLine to the number of lines of fld myField put first word of (line i of fld myField) into myWord if char 1 of myWord is "+" and myKey is not "+" then if char 2 of myWord is myKey then select line i of fld myField put true into myFoundLine exit repeat end if else if char 1 of myWord is myKey then select line i of fld myField put true into myFoundLine exit repeat end if end repeat if myFoundLine is false then -- try again from the top repeat with i=1 to the number of lines of fld myField put first word of (line i of fld myField) into myWord if char 1 of myWord is "+" and myKey is not "+" then if char 2 of myWord is myKey then select line i of fld myField exit repeat end if else if char 1 of myWord is myKey then select line i of fld myField exit repeat end if end repeat end if end if end keydown on openstack updateIndexNumbers if the platform is "MacOS" then put 510 into myMinHeight else -- if the platform is Win32 -- Windows with menus in window put 535 into myMinHeight end if revChangeWindowSize 340,myMinHeight put "highfire,midrange,lowfire" into myIndexes repeat with i=1 to 3 put item i of myIndexes into myIndex if the visible of fld myIndex is true then if the hilitedLine of fld myIndex is empty then set the hilitedLine of fld myIndex to 1 select line (the hilitedLine of fld myIndex) of fld myIndex end if end repeat end openstack on updateIndexNumbers put the number of lines of fld "Lowfire" into fld "numberOfLowfire" put the number of lines of fld "Midrange" into fld "numberOfMidrange" put the number of lines of fld "Highfire" into fld "numberOfHighfire" end updateIndexNumbers ̙}T Clay IndexTT ULucida GrandeWArial WArial WArial UArial UArial UArialClayIndexMenubar cREVGeneralcREVGeometryCachestackID1031@TcREVGeometryCacheIDs108801509016110191088015090162102010880150901631021108801509016410221088015090165102310880150901661024108752183482310061087521961400101110884923785871029108766062904510151088458153535102610884581535361027108845815353710281088010089654101810876606318491016108766057879310141087521947423100910875222021251013108920601979210301087663807385101710883588902741025cREVGeometrycacheorder 1087522202125total21 lowfire!xon mouseup put the short name of me into MyListField put MyListField & "ID" into myField --put Clickline() into MyChoice put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard if the optionKey is down then if char 1 of line myLine of fld MyListField is "+" then lock screen push cd go to card ID myCard of stack "Clays" unmark this card pop cd unlock screen delete char 1 of line myLine of fld myListField set the foregroundColor (line myLine of fld MyListField) to empty else lock screen push cd go to card ID myCard of stack "Clays" mark this card pop cd unlock screen put "+" before line myLine of fld MyListField set the foregroundColor (line myLine of fld MyListField) to "#990000" end if else go to card id myCard of stack "Clays" go to stack "Clay Index" select line myLine of fld MyListField end if end mouseup on enterInField put the short name of me into MyListField put MyListField & "ID" into myField select line (item 1 of the hilitedLine of fld myListField) of fld myListField put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard go to card id myCard of stack "Clays" go to stack "Clay Index" end enterInField Z4\ cREVGeneral revUniqueID 1087521834823  Ball/Talc Clay C06 - 1 Earthenware Sculpture C01 - 2 Egyptian Paste C016 Egyptian Paste C05 Egyptian Paste C08 Low Fire Salt #1 C1 Low Fire Salt #2 C1 Pete's Earthenware C04 Raku - Large Scale C08 ? Raku Body C06 - 04 Raku C08 - 06 Red Earthenware C04 - 01 Red Sculpture Clay C04 - 1 Red Sculpture Clay C04 RedArt Casting Slip C04 - 1 Slab Sculpture Body C2 Terra Cotta C04 Terracotta C04 - 03 White Earthenware C04`7[ Z  midrange)xon mouseup put the short name of me into MyListField put MyListField & "ID" into myField --put Clickline() into MyChoice put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard if the optionKey is down then if char 1 of line myLine of fld MyListField is "+" then lock screen push cd go to card ID myCard of stack "Clays" unmark this card pop cd unlock screen delete char 1 of line myLine of fld myListField set the foregroundColor (line myLine of fld MyListField) to empty else lock screen push cd go to card ID myCard of stack "Clays" mark this card pop cd unlock screen put "+" before line myLine of fld MyListField set the foregroundColor (line myLine of fld MyListField) to "#990000" end if else if the visible of stack "Clays" is false then show stack "Clays" go to card id myCard of stack "Clays" go to stack "Clay Index" select line myLine of fld MyListField end if end mouseup on enterInField put the short name of me into MyListField put MyListField & "ID" into myField select line (item 1 of the hilitedLine of fld myListField) of fld myListField put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard go to card id myCard of stack "Clays" go to stack "Clay Index" end enterInField Z4[ cREVGeneral revUniqueID 1087521947423   White Casting Slip C3 Black Throwing Body C6 Casting Slip C5 - 6 Dark Throwing Body C6 Easy Plastic Body C6 H-White revised C6 Porcelain C6 Red Clay C6 Red Yxing-type clay C6 White Clay C6 @#000000 White Plastic Throwing Body C6 White Stoneware C6`7[ Y  highfire!xon mouseup put the short name of me into MyListField put MyListField & "ID" into myField --put Clickline() into MyChoice put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard if the optionKey is down then if char 1 of line myLine of fld MyListField is "+" then lock screen push cd go to card ID myCard of stack "Clays" unmark this card pop cd unlock screen delete char 1 of line myLine of fld myListField set the foregroundColor (line myLine of fld MyListField) to empty else lock screen push cd go to card ID myCard of stack "Clays" mark this card pop cd unlock screen put "+" before line myLine of fld MyListField set the foregroundColor (line myLine of fld MyListField) to "#990000" end if else go to card id myCard of stack "Clays" go to stack "Clay Index" select line myLine of fld MyListField end if end mouseup on enterInField put the short name of me into MyListField put MyListField & "ID" into myField select line (item 1 of the hilitedLine of fld myListField) of fld myListField put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard go to card id myCard of stack "Clays" go to stack "Clay Index" end enterInField Z6^ cREVGeneral revUniqueID 1087521961400  #2C Dark Flash C10 - 11 #6 Tile Flash C10 - 11 #6 Tile Flash Dark C10 - 11 "#6 Tile Wood Kiln - SDSU C10 - 11 B Porcelain C9 - 10 Black Stoneware C10 Castable Refractory C6 at least Cone 8 Porcelain C8 Grolleg Porcelain C10 @#000000 Hopkins White C10 III Clay version D C10 Shop Casting Slip C10 SoCal Porcelain C10 @#000000 Stoneware C10 @#000000 Stoneware C10 @#000000 Tile Clay Casting Slip C10 - 11 Tile Clay Porcelain C10 - 11 @#000000 White Stoneware C10 - 11 White stoneware C10 White Stoneware C10`7[ \ WhichIndex} on menupick myitem lock screen hide fld "midrange" hide fld "numberOfMidrange" hide fld "highfire" hide fld "numberOfhighfire" hide fld "Lowfire" hide fld "numberOfLowfire" show fld (myItem) show fld ("NumberOf" & myItem) if the hilitedLine of fld (myItem) is empty then set the hilitedLine of fld (myItem) to 1 select line (the hilitedLine of fld myItem) of fld myItem unlock screen end menupick 8@Lowfire Midrange Highfire cREVGeometry Master,scalebottomDistanceMaster,expectedRect 10,8,388,388Master,movevDistancefalseMaster,movehDistancefalseMaster,dontClipTextfalseMastertrueMaster,scalerightDistanceMaster,cardRanking0Master,scaletopDistanceMaster,scaleleftDistance cREVGeneral revUniqueID 1087522202125  lowfireID!h . cREVGeneral revUniqueID 1087660578793  1670 1682 1674 1675 1676 1715 1716 1684 1688 1685 1679 1692 1693 1680 1686 1719 1689 1690 1681   MidrangeID!h >0 cREVGeneral revUniqueID 1087660629045  1717 1703 1706 1707 1708 1709 1710 1729 1730 1722 1725 1726   HighfireID!h p, cREVGeneral revUniqueID 1087660631849  1731 1732 1734 1736 1738 1740 1704 1742 1749 1751 1697 1760 1757 1745 1764 1766 1767 1770 1746 1769   Update Indexepon mouseup lock screen lock messages go to stack "Clays" push cd go to first card of stack "Clays" repeat the number of cards of stack "Clays" set cursor to busy put char 1 to 36 of line 1 of fld "name" && fld "C" & line 1 of fld "cone" into NewClay put the short id of this cd into NewID put line 1 of fld "Cone" into NewCone if (((word 1 of NewCone >7) or (last word of NewCone >9)) and char 1 of NewCone is not "0") then put NewClay & return after HighfireClays put newID & return after HighfireIDs else if word 1 of NewCone >2 and char 1 of NewCone is not "0" then put NewClay & return after MidrangeClays put newID & return after MidrangeIDs else put NewClay & return after LowfireClays put newID & return after LowfireIDs end if if fld "indexMe" contains "true" then put empty into fld "indexMe" go next end repeat pop card go to stack "Clay Index" unlock screen unlock messages put HighfireClays into fld "highFire" put HighfireIDs into fld "highFireID" put MidrangeClays into fld "Midrange" put MidrangeIDs into fld "MidrangeID" put LowfireClays into fld "Lowfire" put LowfireIDs into fld "LowfireID" sortIndex "lowfire" sortIndex "midrange" sortIndex "highfire" updateIndexNumbers end mouseup on sortIndex WhichIndex put empty into sortClays put (WhichIndex & "ID")into WhichID repeat with i=1 to the number of lines of fld WhichIndex set cursor to busy put line i of fld WhichIndex & " " & line i of fld WhichID & return after sortClays end repeat sort lines of sortClays put empty into fld WhichIndex put empty into fld WhichID repeat with i=1 to the number of lines of sortClays set cursor to busy put last word of line i of sortClays into line i of fld WhichID delete last word of line i of sortClays put line i of sortClays into line i of fld WhichIndex end repeat end sortIndex d Update Index cREVGeneral revUniqueID 1087663807385  NewGlazeNote@  cREVGeneral revUniqueID 1088010089654  * denotes a newly added clayClayIndexMenubarI cREVGeneral revUniqueID 1088015090161FileU)8--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Open" if the platform is "MacOS" then answer file "Select the HyperGlaze stack to open:" of type "RSTK" else if the platform is "Win32" then answer file "Select the HyperGlaze stack to open:" with filter "Stack file,*.rev" end if if it is empty then exit menuPick open stack it show stack it break case "Close" close stack the topstack break case "Save" set cursor to busy save stack "Glazes" if the result is not empty then answer "The Glazes stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Glaze Index" if the result is not empty then answer "The Glaze Index stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Materials" if the result is not empty then answer "The Materials stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Materials Index" if the result is not empty then answer "The 'Glazes' stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "clays" if the result is not empty then answer "The 'Glazes' stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Clay Index" if the result is not empty then answer "The 'Glazes' stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Glaze Limits" if the result is not empty then answer "The Glaze Limits stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Glaze Calculator" if the result is not empty then answer "The Glaze Calculator stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Complex Search" if the result is not empty then answer "The Complex Search stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "QuadBlender" if the result is not empty then answer "The QuadBlender stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if set cursor to busy save stack "Bibliography" if the result is not empty then answer "The Bibliography stack could not be saved." & return & \ "The file may be locked or 'Read Only.'" & return &\ "Unlock the file and try again." & return & \ "If HyperGlaze is on a CD-ROM you will not be able to save." end if break case "Import" send mouseup to btn "import Glaze File" of stack "Clays" -- hidden break case "Export" send saveAsGlazeFile to stack "Clays" break case "Page Setup" answer printer break case "Print Card" go to stack "Clays" if the showLines of fld "name" is true then send mouseup to btn "Show Lines" set printMargins to 36,18,18,41 -- 0.5,0.25,0.25,0.56 inches open printing with dialog print this card close printing break case "Print Marked Cards" go to stack "Clays" if the showLines of fld "name" is true then send mouseup to btn "Show Lines" set printMargins to 36,18,18,41 -- 0.5,0.25,0.25,0.56 inches open printing with dialog repeat the number of marked cards go next marked card print this card end repeat close printing break case "Quit" -- set the itemDelimiter to "." -- versions are of the form "x.y.z" -- if the platform is "MacOS" and item 1 of the systemVersion >= 10 then put true into myComputerIsOSX -- if myComputerIsOSX is not true then -- -- 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 busy -- save stack "Glazes" -- if the result is not empty then -- answer "The Glazes stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Glaze Index" -- if the result is not empty then -- answer "The Glaze Index stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Materials" -- if the result is not empty then -- answer "The Materials stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Materials Index" -- if the result is not empty then -- answer "The 'Glazes' stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "clays" -- if the result is not empty then -- answer "The 'Glazes' stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Clay Index" -- if the result is not empty then -- answer "The 'Glazes' stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Glaze Limits" -- if the result is not empty then -- answer "The Glaze Limits stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Glaze Calculator" -- if the result is not empty then -- answer "The Glaze Calculator stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Complex Search" -- if the result is not empty then -- answer "The Complex Search stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "QuadBlender" -- if the result is not empty then -- answer "The QuadBlender stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- set cursor to busy -- save stack "Bibliography" -- if the result is not empty then -- answer "The Bibliography stack could not be saved." & return & \ -- "The file may be locked or 'Read Only.'" & return &\ -- "Unlock the file and try again." & return & \ -- "If HyperGlaze is on a CD-ROM you will not be able to save." -- end if -- end if quit -- end if break end switch end menuPick Filet&Open/0 &Close/W - &Save/S (- Import Export Export Marked (- Page Setup &Print Card/P Print Marked Cards (- &Quit/Q cREVGeneral revUniqueID 1088015090162 EditUK--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 "Copy Recipe as Text|Recipe Only" go to stack "Clays" copyRecipeAsText "RecipeONLY" break case "Copy Recipe as Text|Include Comments" go to stack "Clays" copyRecipeAsText "Comments" break case "Copy Recipe as Text|Include Analysis" go to stack "Clays" copyRecipeAsText "Analysis" break case "Paste" if the clipboard is "text" then paste break case "Clear" delete break case "New Card" go to stack "Clays" create card break case "Duplicate Card" go to stack "Clays" copy this card paste set the clipBoardData to empty put "True" into fld "indexMe" break case "Delete Card" answer "Delete this Clay recipe permanently?" with "Delete" or "Cancel" if it is "Delete" then go to stack "Clays" if (the number of cards of stack "Clays") =1 then answer "This is the last card in the Clays stack. It cannot be deleted." & return & "Make a new card first, then delete this card." exit menupick end if delete this card end if break case "Delete Marked Cards" answer "Delete all marked Clay recipes permanently?" with "Delete" or "Cancel" if it is "Delete" then go to stack "Clays" lock messages repeat the number of marked cards set cursor to busy go next marked card if (the number of cards of stack "Clays") =1 then answer "This is the last card in the Clays stack. It cannot be deleted." & return & "Make a new card first, then delete this card." exit repeat end if delete this card end repeat unlock messages send mouseup to btn "Update Index" of stack "Clay Index" end if break case "Delete ALL Clay Recipes" send DeleteAllCards to stack "Clays" break case "Preferences" open stack "Preferences" break end switch end menuPick  EditCu&t/X &Copy/C &Paste/V Clea&r (- &New Card/N &Duplicate Card/D (- D&elete Card/E Delete Marked Cards (- Delete ALL Clay Recipes - Preferences cREVGeneral revUniqueID 1088015090163 GoU--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 ?GoGo &Back/[ Go &Forward/] (- Index (- Glazes Glaze Index (- Glaze Limits Glaze Calculator (- Clays (Clay Index (- Materials Materials Index (- Unity Explained Bibliography QuadBlender Potter's Friend cREVGeneral revUniqueID 1088015090164 FindU h--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich global gFindWord, gFindWhich switch pWhich case "Find" ask "What would you like to find?" with gFindWord titled "Find" if it is empty then exit menuPick put it into gFindWord put empty into gFindWhich find whole gFindWord if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found." break case "Find by Name" ask "Enter a claybody name to find:" with gFindWord titled "Find by Name" if it is empty then exit menuPick put it into gFindWord go to stack "Clays" put "Name" into gFindWhich find string it in fld "name" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Name field." break case "Find by Cone" ask "Enter a cone number to find:" with gFindWord titled "Find by Cone" if it is empty then exit menuPick put it into gFindWord go to stack "Clays" put "Cone" into gFindWhich find whole it in fld "Cone" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Cone field." break case "Find by Color" ask "Enter a color to find:" with gFindWord titled "Find by Color" if it is empty then exit menuPick put it into gFindWord go to stack "Clays" put "Color" into gFindWhich find string it in fld "Color" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Color field." break case "Find by Usage" ask "Enter a clay use to find:" & return & "(handbuilding, throwing, etc.)" with gFindWord titled "Find by Color" if it is empty then exit menuPick put it into gFindWord go to stack "Clays" put "Surface" into gFindWhich find string it in fld "Surface" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Usage field." break case "Find by Firing" ask "Enter a firing type to find:" & return & "(oxidation, reduction, soda, salt, wood, luster, raku, saggar)"\ with gFindWord titled "Find by Firing" if it is empty then exit menuPick put it into gFindWord go to stack "Clays" put "Firing" into gFindWhich find string it in fld "Firing" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Firing field." break case "Find in Comments" ask "Enter a comment phrase to find:" with gFindWord titled "Find in Comments" if it is empty then exit menuPick put it into gFindWord go to stack "Clays" put "Comments" into gFindWhich find string it in fld "Comments" if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the Comments field." break case "Find Again" go to stack "Clays" if gFindWhich is not empty then if gFindWhich is not "Cone" then find string gFindWord in fld gFindWhich else find whole gFindWord in fld gFindWhich if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found in the " & gFindWhich & " field." end if else find string gFindWord if the result is "not found" then answer "Sorry, '" & gFindWord & "' was not found." end if break case "Complex Search" open stack "Complex Search" go to card "Clays" break end switch end menuPick Z#Find&Find/F (- Find by Name Find by Cone Find by Color Find by Surface Find by Firing Find in Comments Find A&gain/G (- Complex Search cREVGeneral revUniqueID 1088015090165  Clay IndexU 7--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Update Index" send "mouseup" to btn "update Index" break case "Update Marked Cards" send "mouseup" to btn "update marked" break case "Mark Card" if the visible of fld "lowfire" is true then put "lowfire" into MyListField if the visible of fld "midrange" is true then put "midrange" into MyListField if the visible of fld "highfire" is true then put "highfire" into MyListField put the hilitedLine of fld myListField into MyLine if mySelectedGlaze is empty then answer "Please select a clay recipe first." exit menuPick end if --put the short name of fld (last word of mySelectedGlaze) into MyListField put MyListField & "ID" into myField put (line myLine of fld myField) into myCard if char 1 of line myLine of fld MyListField is "+" then answer "This card is already marked" else set cursor to watch lock screen push cd go to card ID myCard of stack "Clays" mark this card pop cd unlock screen set the cursor to hand put "+" before line myLine of fld MyListField set the foregroundColor (line myLine of fld MyListField) to "#990000" select line myLine of fld myListField end if break case "Unmark Card" if the visible of fld "lowfire" is true then put "lowfire" into MyListField if the visible of fld "midrange" is true then put "midrange" into MyListField if the visible of fld "highfire" is true then put "highfire" into MyListField put the hilitedLine of fld myListField into MyLine if mySelectedGlaze is empty then answer "Please select a clay recipe first." exit menuPick end if --put the short name of fld (last word of mySelectedGlaze) into MyListField put MyListField & "ID" into myField put the selectedLine into myChoice put word 2 of myChoice into MyLine put (line myLine of fld myField) into myCard if char 1 of line myLine of fld MyListField is "+" then set cursor to watch lock screen push cd go to card ID myCard of stack "Clays" unmark this card pop cd unlock screen delete char 1 of line myLine of fld myListField set the foregroundColor (line myLine of fld MyListField) to "#000000" select line myLine of fld myListField else answer "This card is not marked." end if break case "Unmark All Cards" push card go to stack "Clays" unmark all cards pop card break case "Set Batch Size for Marked Cards" send "setBatchSizeMarked" to stack "Clays" break case "Calculate Marked Cards" push card go to stack "Clays" if (the number of marked cards of stack "Clays")>0 then go to first marked card repeat the number of marked cards send "mouseup" to btn "Calculate Glaze" go to next marked card end repeat else answer "There are no marked cards in the Clays stack to calculate." end if pop card break case "Calculate All Cards" push card go to stack "Clays" go to first card repeat the number cards send "mouseup" to btn "Calculate Glaze" go to next card end repeat pop card break end switch end menuPick }D Clay IndexUpdate Index Update Marked Cards (- Mar&k Card/K Unmark Card/J Unmark All Cards (- Set Batch Size for Marked Cards Calculate Marked Cards Calculate ALL Cards cREVGeneral revUniqueID 1088358890274 HelpU --The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Help with HyperGlaze" open stack "HyperGlaze Help" break case "About HyperGlaze" open stack "HG Splash" break end switch end menuPick $Help*&Help with HyperGlaze - &About HyperGlaze cREVGeneral revUniqueID 1088015090166  NumberOfLowfire"H P, $number of glazes in this index list cREVGeneral revUniqueID 1088458153535  19 NumberOfMidrange*H P, $number of glazes in this index list cREVGeneral revUniqueID 1088458153536  12 NumberOfHighfire"H P, $number of glazes in this index list cREVGeneral revUniqueID 1088458153537  20Update MarkedEpon mouseup put "lowfire,midrange,highfire" into MyIndexFields repeat with x=1 to 3 put item x of MyIndexFields into myField repeat with i=1 to the number of lines of fld myField if char 1 of line i of fld myField is "+" then delete char 1 of line i of fld myField set the foregroundColor (line i of fld myField) to empty end if end repeat end repeat go to stack "Clays" go next marked card repeat (the number of marked cards) put the id of this cd into myID get word 1 of fld "Cone" if it >6 and char 1 of it is not "0" then put "highfire" into myField else if it >2 and char 1 of it is not "0" then put "midrange" into myField else put "lowfire" into myField go to stack "Clay Index" find empty find whole myID in fld (myField & "ID") put word 2 of the foundline into myLine if char 1 of line myLine of fld myField is not "+" then put "+" before char 1 of line myLine of fld myField set the foregroundColor (line myLine of fld myField) to "#990000" end if go back go next marked card end repeat end mouseup d cREVGeneral revUniqueID 1088492378587  NewGlazeNote@ , cREVGeneral revUniqueID 1089206019792  #+ option/alt-click a name to mark  or unmark itCompare Clays on openstack if the platform is "MacOS" then put 420 into myMinHeight else -- if the platform is Win32 -- Windows with menus in window put 445 into myMinHeight end if revChangeWindowSize 340,myMinHeight end openstack TCompare ClaysTT WArial UArialUArial W helvetica U helvetica WArial WArial ULucida Grande UArial WLucida Grande cREVGeneral @TiS cREVGeneral revUniqueID 1088912829511 NameiXon closefield put stripSpaces(fld 1) into fld 1 put stripReturns(fld 1) into fld 1 pass closefield end closefield on openfield click at 300,48 end openfield  F cREVGeneral revUniqueID 1088903940241  Ball/Talc Clay  IngredientsmH ( cREVGeneral revUniqueID 1088903956047  OM-4 Ball Clay Talc AmountsmH (H cREVGeneral revUniqueID 1088903980719  50.00 50.00 coneiXon closefield set cursor to watch put AddSpaces(fld "Cone") into fld "Cone" pass closefield end closefield function addSpaces myText put false into CheckNext repeat with i= the number of chars of myText down to 1 get char i of myText -- if it is not in "a0123456789,- " -- then answer "Please use only numbers (0-9) and ',' or '-' in the cone field" if checkNext then if it is not " " then put " " after char i of myText put false into CheckNext if it is "-" then if char i+1 of myText is not " " then put " " after char i of myText put true into checkNext end if if it is "," then if char i+1 of myText is not " " then put " " after char i of myText end if end repeat return myText end addSpaces-RB- cREVGeneral revUniqueID 1088904028572  06 - 1 label H @$&  cREVGeneral revUniqueID 1088904052318 Cone: R2OH *% cREVGeneral revUniqueID 1088904175936  0.013 0.006 0.006 0.975 R2O3l J*V& cREVGeneral revUniqueID 1088904175937  0.332 0.008 RO2l *V' cREVGeneral revUniqueID 1088904175938  2.399 0.018  ColorantsmH : cREVGeneral revUniqueID 1088904255013  water  ColorAmtsmH H< cREVGeneral revUniqueID 1088904255038  25.00 PercentAnalysish_ cREVGeneral revUniqueID 1088904281636   64.94 % SiO2    15.25 % Al2O3      0.55 % K2O     0.17 % Na2O     0.15 % CaO  17.72 % MgO  0.58 % Fe2O3      0.65 % TiO2   CloseEwion mouseup set cursor to watch save stack "Compare Clays" close stack "Compare Clays" end mouseup > cREVGeneral revUniqueID 1088904330865  ROLabels  #- cREVGeneral revUniqueID 1088904505217 K2O    Na2O    CaO MgO Li2O    BaO PbO ZnO CuO CoO NiO SrO  R2O3Labels  g3f cREVGeneral revUniqueID 1088904858045 Al2O3     B2O3     Fe2O3     P2O3     Sb2O3     Cr2O3     V2O5      RO2Labels  6^ cREVGeneral revUniqueID 1088904858046 SiO2   TiO2   ZrO2   SnO2   MnO2   F label H @4  cREVGeneral revUniqueID 1088912028015 Also add: label H @$B  cREVGeneral revUniqueID 1088912104904 Ingredients: label H @q` cREVGeneral revUniqueID 1088912148910 Percent Analysis:Get Current ClayEx con mouseup global gClayName,gClayCone,gCIngredList,gCAmounts,gCColorants,gCColorAmts,gClaySurface,gCR2O,gCR2O3,gCRO2,gCPercent if gClayName is empty then send makeClayGlobals to stack "Clays" put gClayName into fld "name" put line 1 to 10 of gCIngredList into fld "Ingredients" put line 1 to 4 of gCColorants into fld "colorants" put line 1 to 10 of gCAmounts into fld "Amounts" put line 1 to 4 of gCColorAmts into fld "colorAmts" put gClayCone into fld "Cone" put gCR2O into fld "R2O" put gCR2O3 into fld "r2o3" put gCRO2 into fld "ro2" put gCPercent into fld "PercentAnalysis" formatPercentageAnalysis end mouseup on formatPercentageAnalysis -- formats chemical subscripts of oxides repeat with i=1 to the number of lines of fld "percentAnalysis" get offset ("2", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if get offset ("3", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if get offset ("5", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if end repeat end formatPercentageAnalysis Vv cREVGeneral revUniqueID 1088913103876 Unity Molecular Formula (UMF)o cREVTempMaster; traversalOntrueinksrcCopythreeDtrue hiliteBordertrue mnemonic0rect12,248,230,263armFillfalse patterns visitedIcon0colors showIconfalse showNametruehilitedfalseshadowfalse sharedHilitetrue textAligncenterarmedfalsemenuMouseButton1id1019altId0 labelWidth0 accelKey armedIcon0 textStyleboldlockLocfalse autoHilitetruelabel showHilitefalsevisitedfalse disabledIcon0style rectangle armBordertrueicon0nameUnity Molecular Formula (UMF)toolTip accelTextlayer17 borderWidth2 cantSelectfalsevisibletrue menuLines5margins2 accelModsopaquetruedefaultfalse shadowOffset4text hiliteFilltrue menuName showBordertrue disabledfalse hiliteIcon0 textSize10autoArmfalsefamily0 menuMode textFontArial menuHistory1showFocusBordertrue cREVGeneral revUniqueID 1095825530543 Label ClayHazards1G$> WArial WArial UArial WLucida Grande WArial ULucida Grande cREVGeneral @> @> @>iL cREVGeneral revUniqueID 1094271772703 Nameon closefield put stripSpaces(fld 1) into fld 1 put stripReturns(fld 1) into fld 1 pass closefield end closefield on openfield click at 300,48 end openfield @cREVTempMaster5 tabStops traversalOntrue firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect 0,14,324,44 textHeight24 patterns colors shadowfalsehScroll0 textAlignleft vScrollbarfalse hScrollbarfalseid1003altId1autoTabtruehGridfalse textStylebold dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTextfalse showLinesfalsenoncontiguousHilitesfalse lockTexttruescroll0nameNametoolTip listBehaviorfalsevGridfalselayer2 borderWidth2 cantSelectfalsevisibletruemargins6 htmlText

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize18fixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680832  White Clay  #2C Dark Flash  Red Clay label  @ BcREVTempMaster5 tabStops traversalOnfalse firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect 2,38,68,52 textHeight13 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1022altId1autoTabfalsehGridfalse textStylebold dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTexttrue showLinestruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTip listBehaviorfalsevGridfalselayer20 borderWidth2 cantSelectfalsevisibletruemargins6 htmlText

Ingredients:

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680833 Ingredients: label  @& cREVTempMaster5 tabStops traversalOnfalse firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect 234,38,272,51 textHeight13 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1007altId1autoTabfalsehGridfalse textStylebold dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTexttrue showLinestruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTip listBehaviorfalsevGridfalselayer6 borderWidth2 cantSelectfalsevisibletruemargins6 htmlText

Cone:

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680834 Cone:  IngredientsL @cREVTempMaster5 tabStops traversalOntrue firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect 4,46,168,178 textHeight12 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1004altId3autoTabtruehGridfalse textStyleplain dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTextfalse showLinesfalsenoncontiguousHilitesfalse lockTexttruescroll0name IngredientstoolTip listBehaviorfalsevGridfalselayer3 borderWidth2 cantSelectfalsevisibletruemargins8 htmlText

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680835  #6 Tile clay Custer feldspar OM-4 ball clay Nepheline syenite silica  XX Sagger Clay EPK Avery Kaolin PBX Clay Nepheline Syenite  Newman red clay OM-4 ball clay nepheline syenite Pyrax HS AmountsL @HcREVTempMaster5 tabStops traversalOntrue firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect164,46,236,178 textHeight12 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1005altId3autoTabtruehGridfalse textStyleplain dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTextfalse showLinesfalsenoncontiguousHilitesfalse lockTexttruescroll0nameAmountstoolTip listBehaviorfalsevGridfalselayer4 borderWidth2 cantSelectfalsevisibletruemargins8 htmlText

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680836  33.33 16.67 11.11 22.22 16.67  16.67 17.78 21.11 7.78 36.67  70.00 15.00 10.00 5.00 coneJon closefield set cursor to watch put AddSpaces(fld "Cone") into fld "Cone" pass closefield end closefield function addSpaces myText put false into CheckNext repeat with i= the number of chars of myText down to 1 get char i of myText -- if it is not in "a0123456789,- " -- then answer "Please use only numbers (0-9) and ',' or '-' in the cone field" if checkNext then if it is not " " then put " " after char i of myText put false into CheckNext if it is "-" then if char i+1 of myText is not " " then put " " after char i of myText put true into checkNext end if if it is "," then if char i+1 of myText is not " " then put " " after char i of myText end if end repeat return myText end addSpaces@&0-cREVTempMaster5 tabStops traversalOntrue firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect244,48,326,114 textHeight24 patterns colors shadowfalsehScroll0 textAlignleft vScrollbarfalse hScrollbarfalseid1006altId45autoTabtruehGridfalse textStyleplain dontWrapfalselockLocfalse autoHilitetruestyleopaque sharedTextfalse showLinesfalsenoncontiguousHilitesfalse lockTexttruescroll0nameconetoolTip listBehaviorfalsevGridfalselayer5 borderWidth2 cantSelectfalsevisibletruemargins6 htmlText

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize18fixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680837  6  10 11  6 label H @cREVTempMaster5 tabStops traversalOnfalse firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect 6,166,58,180 textHeight13 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1021altId1autoTabfalsehGridfalse textStylebold dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTexttrue showLinestruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTip listBehaviorfalsevGridfalselayer19 borderWidth2 cantSelectfalsevisibletruemargins6 htmlText

Also add:

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680838 Colorants and Additives:  ColorantsL @:cREVTempMaster5 tabStops traversalOntrue firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect 4,178,168,236 textHeight12 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1011altId3autoTabtruehGridfalse textStyleplain dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTextfalse showLinesfalsenoncontiguousHilitesfalse lockTexttruescroll0name ColorantstoolTip listBehaviorfalsevGridfalselayer10 borderWidth2 cantSelectfalsevisibletruemargins8 htmlText

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680839  molochite  Grog   ColorAmtsL @H<cREVTempMaster5 tabStops traversalOntrue firstIndent0inksrcCopy dontSearchfalsescrollbarWidth20threeDtruetoggleHilitesfalsemultipleHilitesfalserect164,178,236,238 textHeight12 patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1012altId3autoTabtruehGridfalse textStyleplain dontWraptruelockLocfalse autoHilitetruestyleopaque sharedTextfalse showLinesfalsenoncontiguousHilitesfalse lockTexttruescroll0name ColorAmtstoolTip listBehaviorfalsevGridfalselayer11 borderWidth2 cantSelectfalsevisibletruemargins8 htmlText

opaquetrue threeDHilitefalse shadowOffset4 showBorderfalse disabledfalse textSize10fixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270680840  11.11  3.33  Print ClayHazardse won mouseup global gClayName,gClayCone,gClaySurface,gCIngredList,gCAmounts,gCColorants,gCColorAmts,gCR2O,gCR2O3,gCRO2,gCPercent set printMargins to 18,36,18,41 -- 0.25,0.25,0.25,0.56 inches set the printGutters to 18,3 put false into BailOut open printing with dialog if the result is not empty then close stack "Label ClayHazards" exit mouseup end if go to first card go to stack "Clays" if the number of marked cards of stack "Clays"<=0 then answer "There are no marked cards. Please select and mark which glazes to print." close stack "Label ClayHazards" exit mouseup end if go next marked card put the id of this cd into myFirstCard put fld "Hazards" into myHazards repeat the number of marked cards of stack "Clays" set cursor to busy if bailOut is not true then repeat with i=1 to 3 set cursor to busy go to stack "Label ClayHazards" if gClayName is empty then send makeGlazeGlobals to stack "Clays" put gClayName into fld "name" put gCIngredList into fld "Ingredients" put gCColorants into fld "colorants" put gCAmounts into fld "Amounts" put gCColorAmts into fld "colorAmts" put gClayCone into fld "Cone" put stripMiscChars(fld "Cone") into fld "Cone" put gCPercent into fld "Analysis" put myHazards into fld "Hazards" go next card go to stack "Clays" go to next marked card put fld "Hazards" into myHazards if the id of this cd is myFirstCard then go to stack "Label ClayHazards" if i<3 then repeat with x=(i+1) to 3 go card x of stack "Label ClayHazards" put empty into fld "Name" put empty into fld "Ingredients" put empty into fld "Colorants" put empty into fld "Amounts" put empty into fld "ColorAmts" put empty into fld "Cone" Put empty into fld "Analysis" put empty into fld "Hazards" end repeat end if put true into bailOut exit repeat end if end repeat end if go to first card of stack "Label ClayHazards" print stack "Label ClayHazards" if bailOut is true then exit repeat end repeat close printing close stack "Label ClayHazards" end mouseup function StripMiscChars myText --removes commas, hyphens, and spaces from cone field for print formatting repeat get offset(",", myText) if it>0 then put return into char it of myText else exit repeat end repeat repeat get offset("-", myText) if it>0 then put return into char it of myText else exit repeat end repeat repeat get offset(" ", myText) if it>0 then delete char it of myText else exit repeat end repeat return myText end StripMiscChars   cREVTempMaster; traversalOntrueinksrcCopythreeDtrue hiliteBordertrue mnemonic0rect82,380,228,404armFillfalse patterns visitedIcon0colors showIconfalse showNametruehilitedfalseshadowfalse sharedHilitetrue textAligncenterarmedfalsemenuMouseButton1id1020altId0 labelWidth0 accelKey armedIcon0 textStyleboldlockLocfalse autoHilitetruelabel showHilitefalsevisitedfalse disabledIcon0stylestandard armBordertrueicon0nameGet Current GlazetoolTip accelTextlayer18 borderWidth2 cantSelectfalsevisibletrue menuLines5margins4 accelModsopaquetruedefaultfalse shadowOffset4text hiliteFilltrue menuName showBordertrue disabledfalse hiliteIcon0 textSize11autoArmfalsefamily0 menuMode textFont Lucida Grande menuHistory1showFocusBordertrue cREVGeneral revUniqueID 1094270680841  Graphic 2KF   cREVGeneral revUniqueID 1094270680842 Graphic 1KF!" cREVGeneral revUniqueID 1094270680843 HazardsH @,cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight12rect 4,46,168,178multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1004altId3autoTabtrue textStyleplainhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0name IngredientstoolTipvGridfalse listBehaviorfalselayer3visibletrue cantSelectfalse borderWidth2margins8 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270692243  OSilica: free silica-wear a NIOSH approved dust mask when handling dry material  XXX Sagger Clay: free silica -wear a NIOSH approved dust mask when handling dry material   Hazardlabel @6cREVTempMaster5 tabStops traversalOnfalseinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight13rect 2,38,68,52multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1022altId1autoTabfalse textStyleboldhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinestrue sharedTexttruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTipvGridfalse listBehaviorfalselayer20visibletrue cantSelectfalse borderWidth2margins6 htmlText

Ingredients:

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270702314 Potential Health Hazards: AnalysisLabel  @I cREVTempMaster5 tabStops traversalOnfalseinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight13rect 234,38,272,51multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1007altId1autoTabfalse textStyleboldhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinestrue sharedTexttruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTipvGridfalse listBehaviorfalselayer6visibletrue cantSelectfalse borderWidth2margins6 htmlText

Cone:

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270833182 % Analysis:  AnalysisL @^cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight12rect 4,46,168,178multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1004altId3autoTabtrue textStyleplainhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0name IngredientstoolTipvGridfalse listBehaviorfalselayer3visibletrue cantSelectfalse borderWidth2margins8 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094270906896   67.37 % SiO2  25.10 % Al2O3  3.01 % K2O  2.89 % Na2O  0.42 % CaO  0.27 % MgO  0.30 % Fe2O3  0.64 % TiO2   58.35 % SiO2  33.26 % Al2O3  2.30 % K2O  4.02 % Na2O  0.42 % CaO  0.15 % MgO  0.93 % Fe2O3  0.04 % P2O5  0.54 % TiO2   65.54 % SiO2  24.21 % Al2O3  1.46 % K2O  1.28 % Na2O  0.18 % CaO  0.25 % MgO  6.14 % Fe2O3  0.96 % TiO2  Graphic 1KF  cREVGeneral revUniqueID 1094270928967Label ClayPrinting0T ULucida GrandeWArial WArial UArialUArial WLucida Grande UArial UArial UArial @ cREVGeneral @ @ @ @ @ i" Recipe Label cREVGeneral revUniqueID 1094147965333 Nameon closefield put stripSpaces(fld 1) into fld 1 put stripReturns(fld 1) into fld 1 pass closefield end closefield on openfield click at 300,48 end openfield @cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight24rect 0,14,324,44multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignleft vScrollbarfalse hScrollbarfalseid1003altId1autoTabtrue textStyleboldhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0nameNametoolTipvGridfalse listBehaviorfalselayer2visibletrue cantSelectfalse borderWidth2margins6 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize18 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971115  Ball/Talc Clay  #2C Dark Flash  Red Clay  White Clay  Reitz Black Clay  Egyptian Paste 2 label  @ BcREVTempMaster5 tabStops traversalOnfalseinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight13rect 2,38,68,52multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1022altId1autoTabfalse textStyleboldhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinestrue sharedTexttruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTipvGridfalse listBehaviorfalselayer20visibletrue cantSelectfalse borderWidth2margins6 htmlText

Ingredients:

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971116 Ingredients: label  @& cREVTempMaster5 tabStops traversalOnfalseinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight13rect 234,38,272,51multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1007altId1autoTabfalse textStyleboldhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinestrue sharedTexttruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTipvGridfalse listBehaviorfalselayer6visibletrue cantSelectfalse borderWidth2margins6 htmlText

Cone:

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971117 Cone:  IngredientsL @cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight12rect 4,46,168,178multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1004altId3autoTabtrue textStyleplainhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0name IngredientstoolTipvGridfalse listBehaviorfalselayer3visibletrue cantSelectfalse borderWidth2margins8 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971118  OM-4 Ball Clay Talc  XX Sagger Clay EPK Avery Kaolin PBX Clay Nepheline Syenite  Newman red clay OM-4 ball clay nepheline syenite Pyrax HS  #6 Tile clay Custer feldspar OM-4 ball clay Nepheline syenite silica  Goldart AP Green Fireclay Frit 3819 Ball Clay Neph Sy Barium Carbonate Manganese Dioxide Red Iron Oxide  #6 Tile Clay OM-4 Ball Clay XX Sagger Clay Sodium Bicarbonate Borax Soda Ash Flint Bentonite Custer Feldspar AmountsL @HcREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight12rect164,46,236,178multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1005altId3autoTabtrue textStyleplainhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0nameAmountstoolTipvGridfalse listBehaviorfalselayer4visibletrue cantSelectfalse borderWidth2margins8 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971119  50.00 50.00  16.67 17.78 21.11 7.78 36.67  70.00 15.00 10.00 5.00  33.33 16.67 11.11 22.22 16.67  27.90 23.25 9.30 9.30 18.60 0.50 4.65 6.51  33.33 16.67 16.67 5.56 1.11 4.44 16.67 3.33 2.22 coneJon closefield set cursor to watch put AddSpaces(fld "Cone") into fld "Cone" pass closefield end closefield function addSpaces myText put false into CheckNext repeat with i= the number of chars of myText down to 1 get char i of myText -- if it is not in "a0123456789,- " -- then answer "Please use only numbers (0-9) and ',' or '-' in the cone field" if checkNext then if it is not " " then put " " after char i of myText put false into CheckNext if it is "-" then if char i+1 of myText is not " " then put " " after char i of myText put true into checkNext end if if it is "," then if char i+1 of myText is not " " then put " " after char i of myText end if end repeat return myText end addSpaces@&0-cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight24rect244,48,326,114multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignleft vScrollbarfalse hScrollbarfalseid1006altId45autoTabtrue textStyleplainhGridfalselockLocfalse dontWrapfalse autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0nameconetoolTipvGridfalse listBehaviorfalselayer5visibletrue cantSelectfalse borderWidth2margins6 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize18 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971120  06 1  10 11  6  6  05  08 label H @cREVTempMaster5 tabStops traversalOnfalseinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight13rect 6,166,58,180multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1021altId1autoTabfalse textStyleboldhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinestrue sharedTexttruenoncontiguousHilitesfalse lockTexttruescroll0namelabeltoolTipvGridfalse listBehaviorfalselayer19visibletrue cantSelectfalse borderWidth2margins6 htmlText

Also add:

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeightfalse textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971121 Colorants and Additives:  ColorantsL @:cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight12rect 4,178,168,236multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1011altId3autoTabtrue textStyleplainhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0name ColorantstoolTipvGridfalse listBehaviorfalselayer10visibletrue cantSelectfalse borderWidth2margins8 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971122  water  Grog   molochite  Water Grog  Fine Grog Copper Carbonate  ColorAmtsL @H<cREVTempMaster5 tabStops traversalOntrueinksrcCopy firstIndent0 dontSearchfalsetoggleHilitesfalsethreeDtruescrollbarWidth20 textHeight12rect164,178,236,238multipleHilitesfalse patterns colors shadowfalsehScroll0 textAlignright vScrollbarfalse hScrollbarfalseid1012altId3autoTabtrue textStyleplainhGridfalselockLocfalse dontWraptrue autoHilitetruestyleopaque showLinesfalse sharedTextfalsenoncontiguousHilitesfalse lockTexttruescroll0name ColorAmtstoolTipvGridfalse listBehaviorfalselayer11visibletrue cantSelectfalse borderWidth2margins8 htmlText

threeDHilitefalseopaquetrue shadowOffset4 showBorderfalse textSize10 disabledfalsefixedLineHeighttrue textFontArialvScroll0 hilitedLinesshowFocusBorderfalse cREVGeneral revUniqueID 1094145971123  25.00  3.33   11.11  25.00 15.00  11.11 2.00  Print Glazese on mouseup global gClayName,gClayCone,gClaySurface,gCIngredList,gCAmounts,gCColorants,gCColorAmts,gCR2O,gCR2O3,gCRO2,gCPercent set printMargins to 18,36,18,41 -- 0.25,0.25,0.25,0.56 inches set the printGutters to 18,3 put false into BailOut open printing with dialog if the result is not empty then close stack "Label ClayPrinting" exit mouseup end if go to first card go to stack "Clays" if the number of marked cards of stack "Clays"<=0 then answer "There are no marked cards. Please select and mark which glazes to print." close stack "Label ClayPrinting" exit mouseup end if go next marked card put the id of this cd into myFirstCard repeat the number of marked cards of stack "Clays" set cursor to busy if bailOut is not true then repeat with i=1 to 6 set cursor to busy go to stack "Label ClayPrinting" if gClayName is empty then send makeGlazeGlobals to stack "Clays" put gClayName into fld "name" put gCIngredList into fld "Ingredients" put gCColorants into fld "colorants" put gCAmounts into fld "Amounts" put gCColorAmts into fld "colorAmts" put gClayCone into fld "Cone" put stripMiscChars(fld "Cone") into fld "Cone" go next card go to stack "Clays" go to next marked card if the id of this cd is myFirstCard then go to stack "Label ClayPrinting" if i<6 then repeat with x=(i+1) to 6 go card x of stack "Label ClayPrinting" put empty into fld "Name" put empty into fld "Ingredients" put empty into fld "Colorants" put empty into fld "Amounts" put empty into fld "ColorAmts" put empty into fld "Cone" end repeat end if put true into bailOut exit repeat end if end repeat end if go to first card of stack "Label ClayPrinting" print stack "Label ClayPrinting" if bailOut is true then exit repeat end repeat close printing close stack "Label ClayPrinting" end mouseup function StripMiscChars myText --removes commas, hyphens, and spaces from cone field for print formatting repeat get offset(",", myText) if it>0 then put return into char it of myText else exit repeat end repeat repeat get offset("-", myText) if it>0 then put return into char it of myText else exit repeat end repeat repeat get offset(" ", myText) if it>0 then delete char it of myText else exit repeat end repeat return myText end StripMiscChars   cREVTempMaster; traversalOntrueinksrcCopythreeDtrue hiliteBordertruerect82,380,228,404 mnemonic0armFillfalse visitedIcon0 patterns showNametrue showIconfalsecolors hilitedfalse sharedHilitetrueshadowfalse textAligncenterarmedfalsemenuMouseButton1id1020altId0 labelWidth0 accelKey armedIcon0 textStyleboldlockLocfalsevisitedfalse showHilitefalselabel autoHilitetruestylestandard disabledIcon0 armBordertruenameGet Current Glazeicon0toolTiplayer18 accelTextvisibletrue cantSelectfalse borderWidth2 menuLines5margins4opaquetrue accelModstext shadowOffset4defaultfalse menuName hiliteFilltrue showBordertrue textSize11 hiliteIcon0 disabledfalseautoArmfalse menuModefamily0 textFont Lucida GrandeshowFocusBordertrue menuHistory1 cREVGeneral revUniqueID 1094146071792 Get Current Glazeevon mouseup global gIngredList,gColorList,gIngredAmounts,gColorAmts,gGlazeName,gGlazeCone,gGlazeSurface,gR2O,gR2O3,gRO2,gPercent,gThermExpansion if gGlazeName is empty then send makeGlazeGlobals to stack "Glazes" put gGlazeName into fld "name" put gIngredList into fld "Ingredients" put gColorList into fld "colorants" put gIngredAmounts into fld "Amounts" put gColorAmts into fld "colorAmts" put gGlazeCone into fld "Cone" --put gR2O into fld "R2O" --put gR2O3 into fld "r2o3" --put gRO2 into fld "ro2" --put gThermExpansion into fld "thermalExpansion" --put gPercent into fld "PercentAnalysis" --formatPercentageAnalysis end mouseup on formatPercentageAnalysis -- formats chemical subscripts of oxides repeat with i=1 to the number of lines of fld "percentAnalysis" get offset ("2", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if get offset ("3", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if get offset ("5", last word of line i of fld "PercentAnalysis") if it>0 then set the textShift of char it of last word of line i fld "percentAnalysis" to 3 set the textSize of char it of last word of line i of fld "percentAnalysis" to "9" end if end repeat end formatPercentageAnalysis   cREVTempMaster; traversalOntrueinksrcCopythreeDtrue hiliteBordertrue mnemonic0rect82,380,228,404armFillfalse patterns visitedIcon0colors showIconfalse showNametruehilitedfalseshadowfalse sharedHilitetrue textAligncenterarmedfalsemenuMouseButton1id1020altId0 labelWidth0 accelKey armedIcon0 textStyleboldlockLocfalse autoHilitetruelabel showHilitefalsevisitedfalse disabledIcon0stylestandard armBordertrueicon0nameGet Current GlazetoolTip accelTextlayer18 borderWidth2 cantSelectfalsevisibletrue menuLines5margins4 accelModsopaquetruedefaultfalse shadowOffset4text hiliteFilltrue menuName showBordertrue disabledfalse hiliteIcon0 textSize11autoArmfalsefamily0 menuMode textFont Lucida Grande menuHistory1showFocusBordertrue cREVGeneral revUniqueID 1094146809291  Graphic 2KF   cREVGeneral revUniqueID 1094153342526 Graphic 1KF!" cREVGeneral revUniqueID 1094153342527