global myToolID
on mouseUp
put the short name of the target into tTool
switch tTool
case "pencil"
choose pencil tool
set the penColor to the backgroundColor of grc "tColor"
break
case "brush"
choose brush tool
set the brush to 7
set the brushColor to the backgroundColor of grc "tColor"
break
case "bucket"
choose bucket tool
set the brushColor to the backgroundColor of grc "tColor"
break
case "eraser"
set the eraser to 12
choose eraser tool
break
case "spray can"
choose spray can tool
set the spray to 30
set the brushColor to the backgroundColor of grc "tColor"
break
end switch
myTool
end mouseUp
on myTool
send "myTool" to me in 500 milliseconds
put the result into myToolID
if within(image "browse",the mouseLoc) then
choose browse tool
cancel myToolID
end if
end myTool
on mouseEnter
if the short name of the target is not "baseGrc" then
set the showborder of the target to true
end if
end mouseEnter
on mouseLeave
set the showborder of the target to false
end mouseLeave
baseGrc K@ cREVGeneral revUniqueID 1084399031707 browse @ Browse Tool GIF89a eee ! , hܾ@8!0DĠѲJl)pv4nCpD r;TE:`7u *e {E/9mf{qF kumqg;#$9{fQ !qof :[zfeW $# ; cREVGeneral revUniqueID 1084397780322 bucket @ g Bucket Tool GIF89a ggg"""! , ܾ ASD yG$ ,k ڲ,@8@aPzRSg6(y,7@nڰrP!sRc0$3?wK}^=z$W>J~i+w I~<\y gQ }~e/ /~+sw' Vͧ ; cREVGeneral revUniqueID 1084397792248 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script eraser @ Eraser Tool GIF89a VVVeee! , Xܾ@8D( Ǡjp-.6E:܂R2"[`hì8џJb7JЄt\VQDŽ҆^w< bv{xy |/zmhoEAYA < ; cREVGeneral bookmarks revUniqueID 1084397802330 handlerList scriptSelection char 1 to 0 prevHandler tempScript script spray can @ Spray Can Tool GIF89a iii! , Hܾ a(X;DPU&hy_M[jx~LKZ @%*< @H9S"von mouseUp
answer color with backColor of me
if the result is "Cancel" then
put the backgroundColor of me into fld "tColor"
else
set the backgroundColor of me to it
put it into fld "tColor"
end if
end mouseUp
tColor , p cREVGeneral revUniqueID 1084458157630 128,128,128 eText1 m cREVTable currentview 0Color Palette:
cREVGeneral revUniqueID 1084460365304 Color Palette: save ep on mouseUp ask file "" with "myPainting.jpg" if the result is not "cancel" then export image "myPainting" to file IT as JPEG if platForm() is "MacOS" then set the fileType to "prewJPEG" end if end mouseUp e p ] Save Painting cREVGeneral scriptChecksum 쟨Q`[f+?L bookmarks revUniqueID 1084464450931 handlerList mouseUpscriptSelection char 42 to 41 prevHandler mouseUp tempScript script Gon mouseUp
ask file "" with "myPainting.jpg"
if the result is not "cancel" then
export image "myPainting" to file IT as JPEG
if platForm() is "MacOS" then set the fileType to "prewJPEG"
end if
end mouseUp
eText2 1 + cREVTable currentview ~Select browse tool (left finger icon)
before change tools
cREVGeneral revUniqueID 1084465048631 'Select browse tool (left finger icon) & before change tools newpaper ew on mouseUp -- put the rect of img "whitePaper" into tRect -- create img "myPainting" -- set the rect of img "myPainting" to item 1 of tRect +1, item 2 of tRect +1, \ -- item 3 of tRect -1, item 4 of tRect -1 put img "whitePaper" into image "myPainting" end mouseUp G p Y New Paper cREVGeneral scriptChecksum E?z (]nR bookmarks revUniqueID 1216499486201 handlerList mouseUpscriptSelection char 14 to 13 prevHandler mouseUp tempScript script on mouseUp
-- put the rect of img "whitePaper" into tRect
-- create img "myPainting"
-- set the rect of img "myPainting" to item 1 of tRect +1, item 2 of tRect +1, \
-- item 3 of tRect -1, item 4 of tRect -1
put img "whitePaper" into image "myPainting"
end mouseUp
frame K h cREVGeneral revUniqueID 1216499858148 whitepaper D f LPNG IHDR f P gAMA =-f PLTEfff f# tRNS @* IDATxA @Dhg2ͣ - mD 2'dNȜ9!sB KSK,S+ eg,>Ce*˼PY}Vy2_A 2'dNȜ9!sB 2 \N IENDB` f cREVGeneral revUniqueID 1216500309775 myPainting D f PNG IHDR f P gAMA =-f PLTEc/ tRNS S 0IDATx &Ъff[H,B[E MIHx <==0E ހyI$`0'-yI$`^џW,$D=m[ݳݖn\yle0ߙM\:L'`~0{1u;N\0]`^A(9Xc۠W! k̴sRfdFօy0ySg560OcbFa x6qc c] w23qGeAReքf* <kݠƴθ):{ݠxF8"Kþ'GX܌uyܸVa {3>-d13a 7Y9l1Dc *bi##\ļ y:fj#t we5 cnV</`^:so0y