#!/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 "$@"  QuadBlender"61on shutdownRequest answer "Save changes to HyperGlaze before quitting?" with "Don't Save" or "Cancel" or "Save" if it is "Don't Save" then pass shutDownRequest exit shutdownRequest end if if it is "Cancel" then exit shutdownRequest if it is "Save" then send SaveHyperGlaze to stack "HyperGlaze" pass shutDownRequest end if end shutdownRequest on openstack if the platform is "MacOS" then put 440 into myMinHeight else -- if the platform is Win32 -- Windows with menus in window put 465 into myMinHeight end if revChangeWindowSize 545,myMinHeight hide stack "RecipeA" hide stack "RecipeB" hide stack "RecipeC" hide stack "RecipeD" end openstack on doGlazeBlend pA,pB,pC,pD,pTile if the optionKey is down then put pTile & return & pA*10 & " - parts A" & return & pB*10 & " - parts B" & return & pC*10 & " - parts C" & return & pD*10 & " - parts D" & return into fld pTile of stack "blend recipe grid" exit doGlazeBlend end if put deleteBlankLines(fld "amts" of stack "recipeA") into fld "Amts" of stack "recipeA" put deleteBlankLines(fld "amts" of stack "recipeB") into fld "Amts" of stack "recipeB" put deleteBlankLines(fld "amts" of stack "recipeC") into fld "Amts" of stack "recipeC" put deleteBlankLines(fld "amts" of stack "recipeD") into fld "Amts" of stack "recipeD" put deleteBlankLines(fld "ingreds" of stack "recipeA") into fld "ingreds" of stack "recipeA" put deleteBlankLines(fld "ingreds" of stack "recipeB") into fld "ingreds" of stack "recipeB" put deleteBlankLines(fld "ingreds" of stack "recipeC") into fld "ingreds" of stack "recipeC" put deleteBlankLines(fld "ingreds" of stack "recipeD") into fld "ingreds" of stack "recipeD" put fld "Amts" of stack "recipeA" into myA put fld "Amts" of stack "recipeB" into myB put fld "Amts" of stack "recipeC" into myC put fld "Amts" of stack "recipeD" into myD if myA is not empty and myB is not empty and myC is not empty and myD is not empty then put pA into A -- blend amounts put pB into B put pC into C put pD into D repeat with i=1 to the number of lines of myA put A*(line i of myA) & return after myAmts end repeat put fld "ingreds" of stack "recipeA" & return after myIngreds put (5*A) & " parts recipe A" & return after myBatch repeat with i=1 to the number of lines of myB put B*(line i of myB) & return after myAmts end repeat put fld "ingreds" of stack "recipeB" & return after myIngreds put (5*B) & " parts recipe B" & return after myBatch repeat with i=1 to the number of lines of myC put C*(line i of myC) & return after myAmts end repeat put fld "ingreds" of stack "recipeC" & return after myIngreds put (5*C) & " parts recipe C" & return after myBatch repeat with i=1 to the number of lines of myD put D*(line i of myD) & return after myAmts end repeat put fld "ingreds" of stack "recipeD" & return after myIngreds put (5*D) & " parts recipe D" & return after myBatch put myIngreds into fld "BlendIngreds" of stack "QuadBlender" put myAmts into fld "BlendAmts" of stack "QuadBlender" put return & "----- Tile " & pTile & " ------" & return & myBatch after fld "BlendIngreds" else answer "Please make sure you have entered recipes for all four glazes." end if put "Glaze Quad Blend " & pTile into fld "BlendName" simplifyGlaze end doGlazeBlend on SendBlendToGlazes put fld "BlendName" into myGlazeName put empty into myIngreds put empty into myAmts repeat with i=1 to the number of lines of fld "BlendAmts" if line i of fld "blendIngreds" is not empty then put line i of fld "BlendIngreds" & return after myIngreds put line i of fld "BlendAmts" & return after myAmts else exit repeat end repeat go to stack "Glazes" create card put myGlazeName into fld "Name" put empty into ExtraIngreds repeat with i=1 to the number of lines of myIngreds if i<=14 then put line i of myIngreds into fld ("Ingredient" & i) put line i of myAmts into fld ("Amount" & i) else put line i of myIngreds && line i of myAmts & return after ExtraIngreds end if end repeat if ExtraIngreds is not empty then put "Too many ingredients: " & return & ExtraIngreds into fld "Comments" end SendBlendToGlazes on doLineBlend pA,pB,pC,pD,pTile if the optionKey is down then put pTile into myTile put empty into myLineBlend put pTile & return after mLineBlend if pA is not 0 then put pA*8 & " - parts A" & return after myLineBlend if pB is not 0 then put pB*8 & " - parts B" & return after myLineBlend if pC is not 0 then put pC*8 & " - parts C" & return after myLineBlend if pD is not 0 then put pD*8 & " - parts D" & return after myLineBlend put pTile & return & myLineBlend into fld pTile of stack "blend recipe grid" exit doLineBlend end if put deleteBlankLines(fld "amts" of stack "recipeA") into fld "Amts" of stack "recipeA" put deleteBlankLines(fld "amts" of stack "recipeB") into fld "Amts" of stack "recipeB" put deleteBlankLines(fld "amts" of stack "recipeC") into fld "Amts" of stack "recipeC" put deleteBlankLines(fld "amts" of stack "recipeD") into fld "Amts" of stack "recipeD" put deleteBlankLines(fld "ingreds" of stack "recipeA") into fld "ingreds" of stack "recipeA" put deleteBlankLines(fld "ingreds" of stack "recipeB") into fld "ingreds" of stack "recipeB" put deleteBlankLines(fld "ingreds" of stack "recipeC") into fld "ingreds" of stack "recipeC" put deleteBlankLines(fld "ingreds" of stack "recipeD") into fld "ingreds" of stack "recipeD" put fld "Amts" of stack "recipeA" into myA put fld "Amts" of stack "recipeB" into myB put fld "Amts" of stack "recipeC" into myC put fld "Amts" of stack "recipeD" into myD if myA is not empty and myB is not empty and myC is not empty and myD is not empty then put pA into A -- blend amounts put pB into B put pC into C put pD into D if A>0 then repeat with i=1 to the number of lines of myA put A*(line i of myA) & return after myAmts end repeat put fld "ingreds" of stack "recipeA" & return after myIngreds put (8*A) & " parts recipe A" & return after myBatch end if if B>0 then repeat with i=1 to the number of lines of myB put B*(line i of myB) & return after myAmts end repeat put fld "ingreds" of stack "recipeB" & return after myIngreds put (8*B) & " parts recipe B" & return after myBatch end if if C>0 then repeat with i=1 to the number of lines of myC put C*(line i of myC) & return after myAmts end repeat put fld "ingreds" of stack "recipeC" & return after myIngreds put (8*C) & " parts recipe C" & return after myBatch end if if D>0 then repeat with i=1 to the number of lines of myD put D*(line i of myD) & return after myAmts end repeat put fld "ingreds" of stack "recipeD" & return after myIngreds put (8*D) & " parts recipe D" & return after myBatch end if put myIngreds into fld "BlendIngreds" of stack "QuadBlender" put myAmts into fld "BlendAmts" of stack "QuadBlender" put return & "----- Tile " & pTile & " ------" & return & myBatch after fld "BlendIngreds" else answer "Please make sure you have entered recipes for all four glazes." end if put "Glaze Line Blend " & pTile into fld "BlendName" simplifyGlaze end doLineBlend function deleteBlankLines myText repeat with i=(the number of lines of myText) down to 1 if line i of myText is empty then delete line i of myText end repeat if the last char of myText is return then delete last char of myText return myText end deleteBlankLines on SimplifyGlaze put the number of lines of fld "BlendIngreds" into MyCount put fld "BlendIngreds" into tempIngreds put fld "BlendAmts" into tempAmts -- repeat with i=1 to MyCount -- put line i of tempIngreds into myingred -- put line i of tempAmts into myAmt -- if i < myCount then -- repeat with x = (i+1) to MyCount -- if char 1 of line x of TempIngreds is "!" then next repeat -- if myingred is (line x of tempIngreds) then -- put ((line x of tempAmts) + myAmt) into line i of tempAmts -- put "! " before line x of TempIngreds -- put "! " before line x of tempAmts -- end if -- end repeat -- end if -- end repeat -- repeat with i= (the number of lines of TempIngreds) down to 1 -- if char 1 of line i of tempIngreds is "!" then delete line i of tempIngreds -- if char 1 of line i of tempAmts is "!" then delete line i of tempAmts -- end repeat repeat with i=myCount down to 2 put line i of tempingreds into myIngred put line i of tempAmts into myAmt repeat with x= (i-1) down to 1 if line x of tempIngreds is myIngred then delete line i of tempIngreds delete line i of tempAmts add myAmt to line x of tempAmts exit repeat end if end repeat end repeat repeat with i=1 to the number of lines of tempAmts add line i of tempAmts to myTot end repeat set numberformat to 0.0 repeat with i=1 to the number of lines of tempAmts put ((line i of tempAmts)/myTot)*100 into line i of TempAmts end repeat repeat with i= the number of lines of tempAmts down to 1 if line i of tempAmts is "0.0" then delete line i of tempAmts delete line i of tempIngreds end if end repeat put "_____" & return & "100" after tempAmts put tempAmts into fld "Blendamts" put tempingreds into fld "Blendingreds" end SimplifyGlaze on exportBlend put empty into NewBlend -- do the four base glazes put "Quadraxial and line blends between the following glazes:" & return & return after NewBlend put "Recipe A:" & return & fld "name" of stack "recipeA" & return & return after NewBlend send mouseup to btn "A" repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend put "Recipe B:" & return & fld "name" of stack "recipeB" & return & return after NewBlend send mouseup to btn "B" repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend put "Recipe C:" & return & fld "name" of stack "recipeC" & return & return after NewBlend send mouseup to btn "C" repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend put "Recipe D:" & return & fld "name" of stack "recipeD" & return & return after NewBlend send mouseup to btn "D" repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend -- do quadraxial blends repeat with i=1 to 36 set the cursor to busy send mouseup to btn ("T" & i) put "*** Blend tile " & i & " ***" & return after NewBlend repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend end repeat -- do line blends put return & return & "---------" & return & "Line Blends:" & return & return & return after NewBlend repeat with i=1 to 6 set the cursor to busy send mouseup to btn ("AB" & i) put "*** Blend " & "AB" & i & " ***" & return after NewBlend repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend end repeat repeat with i=1 to 6 set the cursor to busy send mouseup to btn ("BC" & i) put "*** Blend " & "BC" & i & " ***" & return after NewBlend repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend end repeat repeat with i=1 to 6 set the cursor to busy send mouseup to btn ("CD" & i) put "*** Blend " & "CD" & i & " ***" & return after NewBlend repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend end repeat repeat with i=1 to 6 set the cursor to busy send mouseup to btn ("DA" & i) put "*** Blend " & "DA" & i & " ***" & return after NewBlend repeat with x=1 to the number of lines of fld "BlendIngreds" put line x of fld "BlendAmts" & tab & line x of fld "BlendIngreds" & return after NewBlend end repeat put return & return after NewBlend end repeat set the fileType to "ttxtTEXT" ask File "Save the new blend chart as:" with "New Blend.txt" if it is empty then exit exportBlend else put it into myFile end if open file myFile write NewBlend to file myFile close File myFile end exportBlend ̙f! QuadBlender!!! U Arial BlackU Arial BlackU Arial BlackU Arial Black UArial UArial WLucida Grande$U Arial BlackHU Arial Black0U Arial Black UArial ULucida Grande U Arial BlackU Arial Black ULucida Grande(U Arial Black WArial WArialWArialU Arial BlackUArial$UArial$WArialWArialWarial$UarialUarialUarialWarialWarialWarialUarial0UarialWClays,Clays.rev Glazes,Glazes.rev Materials,Materials.rev QuadBlender,QuadBlender.rev QuadBlendercRevStandaloneSettingscREVGeometryCachestackID1188 cREVGeneral @! cREVReport paperverticalmargin36paperleftmargin72papertopmargin72 printrange All Cardspaperbottommargin72viewerobjects0sourceobjectlistpaperhorizontalmargin36paperrightmargin72 onetoonetruecREVGeometryCacheIDsZ108646104004311441086461040045114510864610400471146108646104004911471086461040051114810864617511751156108645454975510871086461040054114910864545571481088108646154599411501088446023820118010863984103841053108638856374510181086401356915106310864620263131157108640135691710641086462026315115810864013569191065108640135692110661086462026317115910864620263191160108646202632111611086462026323116210864673873771163108646738737811641086467387379116510864673873801166108845594912011811086460291294114110864602981621143108844466335111781086454848608112010864548486101121108639781155910521086454848612112210864548486141123108645484861511241086454848617112510864548486181126108646156460811541086454848620112710864548486221128108645484862311291089424779936118810864548486251130108645484862611311088544007406118310884446922091179108854398707511821088545010679118510863881491151005108646028199911391086454766980109010864547669791089108646029447511421086397806405105110864547669821091108646156148011531086454766983109210864547669851093108645477437710951086454766987109410864615521081151108638935066910231086454774379109610864615673111155108645477438110971086404585135107010863891059101020108645477438310981086454774385109910887825241081186108645477438611001086454780160110110864547801621102108640136591010671086454780164110310864547801651104108646155678811521086454780168110510864547801691106108640458216610691089423931955118710864045692711068108646028544511401086397802244105010865570754701176108645959363611321086557291260117710863890235021019cREVGeometrycacheorder total90 i, cREVGeneral revUniqueID 1086389576774 Field 1)h 0 cREVGeneral revUniqueID 1086389428113 AAmts-h * cREVGeneral revUniqueID 1086389464424 AAmts-h  * cREVGeneral revUniqueID 1086389555412ABCDbtn group id 1053h: cREVGeneral revUniqueID 1086398410384 recipe A`%x on mouseup --if the highlight of me is true then if the visible of stack "recipeA" is false then open stack "recipeA" show stack "recipeA" else hide stack "recipeA" end mouseup @P recipe A cREVGeneral revUniqueID 1086389350669  recipe A`%x on mouseup --if the highlight of me is true then if the visible of stack "recipeB" is false then open stack "recipeB" show stack "recipeB" else hide stack "recipeB" end mouseup @P recipe B cREVGeneral revUniqueID 1086397802244  recipe C`%x on mouseup --if the highlight of me is true then if the visible of stack "recipeC" is false then open stack "recipeC" show stack "recipeC" else hide stack "recipeC" end mouseup @P recipe C cREVGeneral revUniqueID 1086397806405  recipe D`x on mouseup --if the highlight of me is true then if the visible of stack "recipeD" is false then open stack "recipeD" show stack "recipeD" else hide stack "recipeD" end mouseup @P cREVGeneral revUniqueID 1086397811559  QuadBlenderI cREVGeneral revUniqueID 1086467387377FileU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Open" answer file "Select the HyperGlaze stack to open:" of type "RSTK" if it is empty then exit menuPick open stack it show stack it break case "Close" hide stack "QuadBlender" hide stack "RecipeA" hide stack "RecipeB" hide stack "RecipeC" hide stack "RecipeD" break case "Save" save stack "RecipeA" save stack "RecipeB" save stack "RecipeC" save stack "RecipeD" break case "Export Blend Chart" exportBlend break case "Page Setup" answer printer break case "Print" open printing with dialog print this card into 36,36,36,41 close printing break case "Quit" -- answer "Save the recipe stacks, A, B, C & D before quitting?" with "Cancel" or "Quit" or "Save" -- if it is "Cancel" then -- exit menuPick -- else -- if it is "Save" then -- save stack "RecipeA" -- save stack "RecipeB" -- save stack "RecipeC" -- save stack "RecipeD" -- end if -- end if quit break end switch end menuPick FileO&Open/0 &Close/W - Save (- Export Blend Chart - Page Setup &Print/P (- &Quit/Q cREVGeneral revUniqueID 1086467387378 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 "Paste" if the clipboard is "text" then paste break case "Clear" delete break case "New Card" create card break case "Preferences" open stack "Preferences" break end switch end menuPick  Edit8&Undo/Z (- Cu&t/X &Copy/C &Paste/V Clea&r - Preferences cREVGeneral revUniqueID 1086467387379 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 1088455949120  QuadBlenderU--The following menuPick handler was generated by the Menu Builder. on menuPick pWhich switch pWhich case "Recipe A" open stack "recipeA" show stack "recipeA" break case "Recipe B" open stack "recipeB" show stack "recipeB" break case "Recipe C" open stack "recipeC" show stack "recipeC" break case "Recipe D" open stack "recipeD" show stack "recipeD" break case "Blend Recipe Grid" open stack "Blend Recipe Grid" show stack "Blend Recipe Grid" break end switch end menuPick ZQ QuadBlender9Recipe A Recipe B Recipe C Recipe D (- Blend Recipe Grid cREVGeneral revUniqueID 1088782524108 HelpU--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 "QuadBlender Help" open stack "QuadBlender Help" show stack "QuadBlender Help" break case "About QuadBlender" open stack "about QuadBlender" show stack "about QuadBlender" break case "About HyperGlaze" open stack "HG Splash" show stack "HG Splash" break end switch end menuPick $Helpc2457 :?K.XNqqל!,@@Hx#׏Ç#J65ՈGǏÖQ#G(S>y1F0aZ,=y9L'Q֣7o[pxJ7fPdԓo85%U Q$Iݫ[snZ%ƚ+'O[i}ӭɕoI+^xҦ` N:v3Wǹϟ%zu:pߺuC93pc˞M{Ϸ֫gpK[2yٲ} μy_a/QblX=$=cΧ6$,p3OzCO^u8GzdN8t@3sS<؜N<ꨣОn>z<:lN7ףXhN:OgCmÍW1WҮF0H|x G6ZnF۬嘏8~O>â@h374pO{] 57Ӎ68tē5E;,܏?jvoRA,ieJ8M6#@o*Gn|ͯp#OR :c>jM=0R(O7:P`<:]1-Ru7xjs9lN=,jf=^Y72*A@m?!?4]fA.4E(@~ j-K8/mj<"\P0W6|jYfaS@ɼ~i^6D"Lhw`[Gc͈Ue<jEOAB& ~R꒤0)aY(L"ӀC @pjO4 ěԨ;r%jN{)I$X)LɆhO^_$P=*OzVj+JWC<; cREVGeneral revUniqueID 1086557075470Recipe group id 1179i ! cREVGeneral revUniqueID 1088444692209 title zz**@*%& cREVGeneral revUniqueID 1086388563745 QuadBlender  BlendAmts-hc8H cREVGeneral revUniqueID 1086389105910  44.3 20.9 1.6 5.6 4.8 2.4 20.3 _____ 100 QBiconSM.gif @%  GIF89a f3̙f3f3ffffff3f3333f333f3f3̙f3̙̙̙̙f̙3̙ffffff3f3333f333f3̙f3̙̙f3̙f3ff̙ffff3f33̙33f333̙f3ffffff3ffff̙fff3fffffff3ffffffffffff3fff3f3f3f3ff33f3ffffff3f3333f333333̙3f3333333f3333f3f3f3ff3f33f33333333f333333333f333f3̙f3f3ffffff3f3333f333f3%"( 1 .5.+00/0C>c2457 :?K.XNqqל!, M|*\PྂJ"†p6͠; +90I澄W[ ̟ qJ52}ɴ)S3O<{Xj*im0y] 5,cnu .rJFpƎCKrmذV#a=Ǐ~g 9O 8 l{'޶jc5tp-wqZ مą .;p7<1nm[uP=فlXfon mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 1.0 into A put 1.0 into B put 0.0 into C put 0.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup x##6 cREVGeneral revUniqueID 1086454557148 AT7%+x 5on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.8 into A put 0.0 into B put 0.2 into C put 1 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup  ##7 cREVGeneral revUniqueID 1086454766979 BT8%+x 9on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.8 into A put 0.2 into B put 0.2 into C put 0.8 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup B##8 cREVGeneral revUniqueID 1086454766980 CT9%+x =on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.8 into A put 0.4 into B put 0.2 into C put 0.6 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup d##9 cREVGeneral revUniqueID 1086454766982 DT10%+x >on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.8 into A put 0.6 into B put 0.2 into C put 0.4 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##10 cREVGeneral revUniqueID 1086454766983 ET11%+x 5on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.8 into A put 0.8 into B put 0.2 into C put 0.2 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##11 cREVGeneral revUniqueID 1086454766985 FT12%+x 2on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.8 into A put 1 into B put 0.2 into C put 0.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##12 cREVGeneral revUniqueID 1086454766987 GT13%+x :on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.6 into A put 0.0 into B put 0.4 into C put 1.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup  ##13 cREVGeneral revUniqueID 1086454774377 HT14%+x 4on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.6 into A put 0.2 into B put 0.4 into C put 0.8 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup B##14 cREVGeneral revUniqueID 1086454774379 IT15%+x @on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.6 into A put 0.4 into B put 0.4 into C put 0.6 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup d##15 cREVGeneral revUniqueID 1086454774381 JT16%+x :on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.6 into A put 0.6 into B put 0.4 into C put 0.4 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##16 cREVGeneral revUniqueID 1086454774383 KT17%+x 9on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.6 into A put 0.8 into B put 0.4 into C put 0.2 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##17 cREVGeneral revUniqueID 1086454774385 LT18%+x 2on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.6 into A put 1 into B put 0.4 into C put 0.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##18 cREVGeneral revUniqueID 1086454774386 MT19%+x 2on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.4 into A put 0.0 into B put 0.6 into C put 1.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup  ##19 cREVGeneral revUniqueID 1086454780160 NT20%+x 0on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.4 into A put 0.2 into B put 0.6 into C put 0.8 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup B##20 cREVGeneral revUniqueID 1086454780162 OT21%+x 6on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.4 into A put 0.4 into B put 0.6 into C put 0.6 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup d##21 cREVGeneral revUniqueID 1086454780164 PT22%+x 0on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.4 into A put 0.6 into B put 0.6 into C put 0.4 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##22 cREVGeneral revUniqueID 1086454780165 QT23%+x /on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.4 into A put 0.8 into B put 0.6 into C put 0.2 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##23 cREVGeneral revUniqueID 1086454780168 RT24%+x -on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.4 into A put 1 into B put 0.6 into C put 0.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##24 cREVGeneral revUniqueID 1086454780169 `T25%+x 2on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.2 into A put 0.0 into B put 0.8 into C put 1.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup  ##25 cREVGeneral revUniqueID 1086454848608 aT26%+x /on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.2 into A put 0.2 into B put 0.8 into C put 0.8 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup B##26 cREVGeneral revUniqueID 1086454848610 bT27%+x 0on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.2 into A put 0.4 into B put 0.8 into C put 0.6 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup d##27 cREVGeneral revUniqueID 1086454848612 cT28%+x 3on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.2 into A put 0.6 into B put 0.8 into C put 0.4 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##28 cREVGeneral revUniqueID 1086454848614 dT29%+x /on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.2 into A put 0.8 into B put 0.8 into C put 0.2 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##29 cREVGeneral revUniqueID 1086454848615 eT30%+x 4on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.2 into A put 1.0 into B put 0.8 into C put 0.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup ##30 cREVGeneral revUniqueID 1086454848617 fT31%+x 3on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.0 into A put 0.0 into B put 1.0 into C put 1.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup  "##31 cREVGeneral revUniqueID 1086454848618 gT32%+x 3on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.0 into A put 0.2 into B put 1.0 into C put 0.8 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup B"##32 cREVGeneral revUniqueID 1086454848620 hT33%+x 0on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.0 into A put 0.4 into B put 1.0 into C put 0.6 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup d"##33 cREVGeneral revUniqueID 1086454848622 iT34%+x /on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.0 into A put 0.6 into B put 1.0 into C put 0.4 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup "##34 cREVGeneral revUniqueID 1086454848623 jT35%+x 0on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.0 into A put 0.8 into B put 1.0 into C put 0.2 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup "##35 cREVGeneral revUniqueID 1086454848625 kT36%+x 0on mouseup repeat with i=1 to the number of buttons set the hilite of button i to false end repeat set the hilite of me to not the hilite of me put 0.0 into A put 1.0 into B put 1.0 into C put 0.0 into D put the label of me into pTile doGlazeBlend A,B,C,D,pTile end mouseup "##36 cREVGeneral revUniqueID 1086454848626