Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!uakari.primate.wisc.edu!xanth!mcnc!rti!sunpix!matthew From: matthew@sunpix.UUCP ( Sun Visualization Products) Newsgroups: comp.binaries.apple2 Subject: gs finder backgrounder!!! (shrinkit appended, LONG) Message-ID: <942@friar-taac.UUCP> Date: 23 Oct 89 14:23:08 GMT Organization: Sun Microsystems, Research Triangle Park, NC Lines: 203 This was posted to 'comp.sys.apple'. Since it contains excecutables, I've reposted it here. (where it should have been posted correctly the first time). >From cit-vax!tybalt.caltech.edu!toddpw Mon Oct 23 10:00:42 EDT 1989 >Subject: gs finder backgrounder!!! (shrinkit appended, LONG) >Newsgroups: comp.sys.apple Well, I got swamped by homework after that last post, and when I came up for air I see ten people have sent me letters so far. Some of you need BINScii (how are we supposed to capitalize that?) and I'll send you stuff over the weekend. But enough people want it, so: Here it is, the first version Basic/ML combo backgrounder. This is a shrinkit archive called DESKPICTURE.SHK which unpacks to a directory called DESKPICTURE.F with three files in it: DESKPICINSTALL, BKGND8, and DESKPICTURE. DESKPICINSTALL is the basic program you run from finder to install the background. You have to do it every time the system is booted. (Annoying, right? somebody write an NDA quick! or else I will...) The program is one 80 column screen (less actually) and will look right under 40 or 80 columns. If either DESKPICTURE or BKGND8 (both defined as strings in lines 5-6) are not in the directory, the program will tell you that, beep, make you hit a key, and then go back to finder. BKGND8 is 203 bytes of assembly and it just does the tool calls. The basic part BLOADS the picture. BKGND8 is BRK-trapped to the hilt, if anything goes wrong you should hear a sysbeep as it crashes to the monitor BRK handler. DESKPICTURE is a SHRConverted pic I got from the PD ROM in our Mac lab. It's a black & write pic of Kei from dirty pair. A word of warning: any picture you use for DESKPICTURE (go ahead and replace the sample pic) must be in the standard palette 640, because the data BKGND8 passes to the system (according to instructions, it ain't my idea) only includes the pixel data, no SCBs, no palettes. I ran some cheap bit-munging assembly (read: mini-assembler) to get the Kei pic to be in standard palette, and some of the greys got mushed. I'll fix it eventually, but beware. 320 pics may look ok with the dithering but I haven't really tried that yet. In case there are any legal idiots out there, this is FREEWARE. I had fun hacking this out in a couple hours, and I'm not arrogant enough to think it's worth a fee. The information exploited by this code belongs in a tech note, and was given to me by Dave Lyons of Apple. What you do is add a message to the Message Center (part of the Tool Locator) which has a message type of 2. The message data is 6 bytes of message center overhead (looks like a linked list pointer to me), a word containing the value 1, and 32000 (NOT 32K) bytes of picture data. Send any questions/comments/whatever (and maybe the BINSCII format spec??) to Todd Whitesel toddpw @ tybalt.caltech.edu FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() ODESKPICTURE.SHKAoRcAAAACA(4PIAgzOFATBgGAoxsAoRcAERM GVvTlzW6EAzbAAAAAoBAJIRWAAAAZBgGAkgEAEAAAAA4AKAAxBAAAAgGAAAAAAAA GVvTfkB2AAAQAEAABAAAA8CAAAw4AYAAAAAAAAwDAAQAZRROAkwDGAAAQk1DAAQC AoBAJIRWAAAAAAAAUAAAFREAQt0UUNUSFJVVvYkLHtkQ4QkTAAgAAAAALDAAAAAA AAwy7jBAIBjwGEgoAAgIFiW4BIKAAIiAQGOAAAgACIKSAIiBoFOAIJQhCIgoAAgI FiW4CAJBLAAAAQ)CIQPA0jUfLAACCI6CAISCoFOAoZQhQiQhAAgAQbQBAAgAAAQq PgfjPofjAIQqPwfjAEQqP4fjAAA9PgP9IhQpIZQpAAA99hA9oIgoAAgICAZ40DAA 0DQAlCgAliECiikBiURAhDAAAIAkIUKAGUKSCIKSAICEQGOAAAgAIRQpDIgoAAgI CAZ4iCAAiMQAhDAAgtPOGVvTxmG2AAAQAEAABAAAA8CAAAw4AEMAAAAAAAAEAAgA ZZRHAgAFeAAAUklFAAACAoBAJIRWAAAAAAAAZAAAFREAQt0UUNUSFJVVvYkLTVER JB1SVR1QCUkUAIAAAAAAACAAWBAAAAQFAMn1CQw2AAQAXsPbziBBmt9ZxCOlCmVj VPQYYiDMDHGcGAMBHHopCJKjV0gBHvP)Af87ZmhMIgaCCmpkNRyHTvi)CVqch5ih IxhlN)lhfhjiHOo)P)F8AOghJRohKfGlSMfARAok)kt8NCBYAwhtUbccY(vqj3RZ ClyEZAWhXXIjUBEsHGyr7MV)DxEcJ11AnUOxL7mtH1lA5UHJWNGjuzfM53k5hJOc MwstB0AvUh1AcA8lTSxDCLnUgwzDQNoMDzEVBlwAQRJNZ9u(j0CEb7GtMCQ1whxs Y4hkzwipNkwtB6JaEESob1bmrhjENH6uf0A38)EIM69eeDTGpAsCF0O4kysqMZ48 zsDQfXT7)(gFULTGYIAhutLPMee)d0AD6YEPPoD7zCbsEmqDGPG8KuaAyMgADyKB ZkZgruDnCobAmtdAxAIEBCyLcwcb3DO))s9YQAPM3gpIzewgEwMiosAPAdEgYCzB oTUGw8B4wE2hIyqTGDMkYIQG5wAfMMCjG2AhAuR8MWuULgQGJsPPDU(4hJiZWTm3 wGA4S9vmZwvSFjGdeMjmgBGMDkSdYCAYJDUPzayT8M)AwPjMwG8kcMjhKBEMDGOF E)vhrWEmM0ul)8mZGVmzDmacG))k51K7gfi9RqFgrTlUipKAmDBh5wXhMwOYpMYB wWnmJFfMGChZcwXhMS)NTMW09y0YAXG1pOYBB3viZ92MW(8uaCsGw4OYhfY3M7bx APELqzs4GwhJ8WOAw8)f4giZcH8ABQit53EQCvzI9GQ7re1RKZXNRbGs7e3dDJIN Z(bMOjXbl7Lr4Rz0EGQKpDtJywvvh6AI6xOmTLCILSDCG4OAGiAz6Lh6ETaQAHA( OhALgAyKCAZB4dg5grGzI)3ts2AmcRglsDgSoREUgHWgMAZ2yz5sKUCsGCQYEQcG BiGw0R4ZZzIaSCBAEMbGHEJGawx4FQD4wxtpiQID0wOij7jnYTaIQAMCwjqOHr8( c20JnwyKHu5nMhXAAiIdASB)sigabHABgnn)fD(BMA2PbFjtfwIAME2sjFAmbzm9 wQADAAgZgyiBJgXAYUSmMAlFB8xvQBQBYAGuwYGPLGDmiLPSQkxsci3HkK1tn9nz URoHZLJ4Mj4S8kl5GMGwAcAjEihfAC2Bw4XQAJiQoSVCdMgQokQmBRpeKkRxbAMA eKHk)raw8YInoVDwRMAWlK5ZiZNaM4hAkonojOEOBorQ7L8gBfpmOem3EIWLAChd C8H4g6PCkijWoBYg7DvHlPtGSS64MzfAgnDbbAGAVhcAjAKSP4HUsUo)0NFEAa2Q TGzntPIDwKwvsOxVZgpaAJZAeXe43ETHmBOgA6xafLfsGraAPTRBhWFmotNA8kB4 fYPbDDMPT1DgAMsOp95jFacrAFVY(BmXg(sS75FsMLDKqBDAArPG7wqGqwq1CDIb wIgYUTDohi0OBcrA3DgROPALKsYJg(CuparAQejKIOLY46OAnMoSyARqgLybRAIG AaAA0CWGjDZGLfkyIoirklIJpg80gb942(R6wnCmdLSI1(qkgjQGfgTwgxxUs1cx GsGZahb8hh5YAinHQa2Ptq8ixi)HsMiqyCReeIoK3cAmsPaDuDbsGiB2B5xnv8iM R5fogZwazJBpTpDg00mUrwPAwmJ6Qvpa1BEukEz6iS2)(jBDvLK40saU4g2QjfjS f28sqBL2GGZMASXSDGGBx7zhgThUB(UtHqeoi5eeYBKNpuQdf2gt)4euDqf1HcY4 otC1)3yQYBaedCprzrTgIrGoSEAvaPlGNR2qAICkKvf3EZjtnE6(6KP5El57L2Vc cztwHV3QR6vibZtaI0wQm7nXhWVuTziAYfzLqlIm0nRplc(mF6vHZBoTnM(zYvtI k2OwVReApmD2xYgArCjIlkvQTTU1pPOm2rDJBQIJRhHsOCl27RMKnv)Rk18Izigq yQyl)BOqHAI2I9hziziB(FVDRfjBpvjc)pCx1mGke06ImmOY4F0)ltIAiJzO7Xuf Tm5hpqPDc7HAZspLbJjrZKTmAMFoBQgsF6)2vffgB8438DwMDEM(mNDAU4BPsfPh gNzHMUQAAi2C)NbA(bD)AA8If8LGNkpFGiMCB8L4BY(wPczmHyoH(bFPRCyEMOY2 A3gIMA8eCAMQBYIDxj(Kq8z5GQB8PAApfQdZCbxD0FN(49D2Bg)ASoPMFAsXwXgT AB)Ym(r4ceaAjsPFTSI4BeYBvlQpfCjBA8nLWv5GViE7qXcB0vGDPq1hJ9fdYuZE A0F7(PbaAGPgwO4BYMRAPDgf4JE5CM(FgxyiFSF6OkfegdAmQ)LGA8hIw37sJj8r IAw2bjKaYXQKmR7z7vXHnKwXQcguzoO5BTJoOT8DPFPmL)r6KL2)A0DnI)IGDxwB XwKwInsXpDYUfACFjjkB)PZUwzHwRqHPgBGIY29P(kSEbjhsAyrKOggKmLfIgqSy jK3AITCziIoAkPqqjiwkgryfD26xAzBSDoQK62kIS7)fKrQCONhbAErIFrI(IQA4 8KAChkp)cltp9ey(CcIFV3KYmQgM(y8OACmGCesJ7nc4RSuUmxKxqEDOYpxpHiha RSBXAworACBUkRaGcLaUxtMDmFAGZe(mUXUCsHYqsgvBqhCogwCxkJb6tCYcTEEg zIyKMZqeCVELGsDwulO(iKLAJrEqk7ZiQGyBhVuBEkxmIBJEZ6PlVy6Jxns5UwwH 486g7CDkFgBFKUzBiILVsyCMa6QGMAyJmwhav0gMkwQp6FcAVCtcJVNQb9ggOH04 Iyg5UuDLCOIv(HbSlQPH4BAGtuLcRrK7MwqR4Aj4KRnA(lCYorgqNvQC8maDVuAL EagcQKmE2GALAIrCzJhuNFgCyX0SMdynnOn8obGkNZwaOgdYC4cIjAgsjIc4lC4y txgmU8npJyejp8fOJyKA21VvDM0XfAo0bIyzQfMGnzJRCI(HTLkc9x0oPzs8XWtJ 43ArnmUuaybCnySVqaHf9AHgJNNR0FNcSPoasooLBw2VnJL2C9bEpsy8rKQJBYmY Dwmjq6PYgQqbbDyEdAbvtJifk3ptzUq7LaS2FITA(vdAHAYPzkxj()PYAMQ8wcA4 PEghIDFAAAMAeAAeyzHBwGCQhZRb3wPNMCMAmtdA5DEC)MwjBagH4TUdC71DCAQh IDkEKT(D)rxhYxUcMSiM4PQA50TIMawY55CoIADMD(NgE8vn3DO)PK(o(BMhotKw QbgEV0Rj6imDAYAdbeUkRgvwDOMsz4QqwziBziBAEDvh7wlVZd8gFEUo6OH8b5KF )njwmhReDuOcTYBt4viDgJ(9eAfucUk0TFLUL3EGbUmyBNA0uAPhou2)m9N9R5zg BTonAR2QHmIKu1RHTTq09EkpatD8Ad88)l0h3MODDGS9lLSA9PvzCh3DZ4GeZ2zv TXuce8BgpsKPTNLc(Pc9AfQVJZCQjI)p3()ebJfHDr8iPQrbvroRYwuM(eimbqe( 45xZuvrygQ7tAGIniI1oASKoojuRm5RAHmI8CkaBHkJgnipfY(Rq)mWYqIVeLcCI Hx)NEsKBEHlA6zP(BQ8ysTCHmEWmGpCJkJGGATYSRwgcGFAAHdK)JiphZU8LpAmf 65oiAEsmM0CDgRgSgpneU8ZJmgCvJE4EikisSm9)OQ5vA3E0kbMgHk55IMmNGnhv EhsOa5rZ4YcExJ4OSloBD7owMYPpojJDUGghmZWQkEPUdGBCkE1cwP(dCktKYG3w 6bKpf86ChMOkVkDIUBQPNREpCIDKISKFAmqqewAJwfwFGZNVBrRWD4zJhAsGaK2n 1OqqHiPYea5BL)KiaWVYgN0ipuhUStoJgk8iFtCIAisKWCLnPDlTiwAl7xokBAN4 KwG(UKAptedLaQkhamQbrVp1w4AtgAmYbI1nKJa7oqT3Usuo8sKNRcOJSHK4HqP9 IqJC4IN9ASjlGIC0mrHfmR9BAqKCYGmSHCoCnzvWL6Ipreu(KoCvRjAaJvEbCKLg kBkw7bgA4Fc95J29qYgKeQhm7Tn3x2qcYosGqAGCjhq6Ka9A)MADSK5v2prPh40Q q6rhtRM1gHBgceQ5BChqq0LaAaaTOCqeVAWo4CWLAzCo6fSS2UieitdZt90iinxh d7llIgLE29HwH2oGIGggZI0rnvfyJcngDrPoqfND4GIiBvZbmAWZ3AaBYe2V6fw( UYOVG4JB(vdAGDQbAAAA()Pe2sdAMCwY)ZQAAwKBADEYMAsAHvpzACMk()QGxgZ8 )e8gYATYwSGEAAYDWMAeAAkzB71YscAgRtt)AEMkS8jfhRokAEKkASRnAQT6DfGw hZki5QBg)awAzkyk4ssAP5JAeggh6DI8QDw7aqDg3QuVDHCInEAnwPAw)KC4r1lg KshwzqOYmPQAATQnHXKrYAfeYBiKC(x97hWY2zh)D9xjh1HiA5JNBC6N(BQu5vAD I76ghHSAXAe)hhhcYwwghsPMMyiGlkxH77jOaf4L(Dwnh1Z7ErCsxBDuMwgE8s9Y Tg6AIxkGTNGMvhYlQhjz)g(s7BZBATw9UnzrAIQGb4IaBfmG)r5B)3ZB)M)rNoCj wMmM8eA7bzyBvqqzNMuvCW7Bpg4YTqBiGjJAqpGzmXohjCSOYiAgXWyihtp9QAgH 84(IqZOwGHIboiMcaoNooqsIgLixAC4BqAPEoDOux8ymo4AAQPMjNtDWA94x3qka 7LRBxX8JPPkE0ZYxpAkiqfuGKIrCwS7dYGQJCxYCaxIBFAaMBtLee4pxG4GSKKA6 H3DoPKomonvNH8IpUrrlgusaTtKSqmnvGvmGApxfpXcUTpFOYhwJBgyCzBwgdEoT ti4Cm5apA6OcyjUYGcqSBPswSwrRfMfZRDICVEd7zT)caB5hVjiwyJiyP(Z9rSi0 U6YAgcIncVBBEcKVqJo7pmkn2SzuiK0nn)StKCDCaAYsXjKWav5MBNqs2zRAadAz mGTzFI2fwLrhxqMPE)hqyQNJTnSJ82CUPLLjdcQgSFVtF4W1XGCYp3jls4a3jcum MQDGAyNCmgnb7lXIgUjidawBwJKtsRx6j9BMYimgVONJQ(xj2Su7DYYsQDuErZc8 ZEAj4K7AICPY6yMJqtRZYCKKpuHnVoSohbofaqrx7j21ujEGsx9uG9WpzjA9iUWU ujWYCSoVNliGg)hAdbQ90BuBcNsXfcvxd69AFkr2aKILgZWGnrycbSIoSCW04IFu f8ayAolfeEab3EItB6Z0FzoOtdfryQ56KqqrvtJiqjhHxC6YyOANEiaAg7k2eBot sQtHzRqZDWqTmQ2ZdtUPhutaCZji3YayH)fMqQoBBg2Y2Upand4iarGYfE0Tl1FS 9H8foG65gghHG)Iq3AkYrWHAmcfAUfydmNLbT1CwFxzmvmNTJmn52AWedRr6XrKC sHNOxd6BEqP53Gzz8DPo2AwGqve0J36BRAFal5Bq(Ev)FFL04ygfGMXlPAwxxdWZ Jlv92aUvc76lD8B5NgEDAZGHuHY3S54PQwZyVI7J3cQ1NJwWAEgB7zmHYD2RwkBj YyDGBM(NDAAA4bkBGDbM))3gb2m5GDQoAbAQL5PKbDH8wbAvD6MIfH5hRgoNAywZ jOWwHUJAIGTgC8A(WE5PkrWMfEP6DAwA7BQFfNO8Od60FYzofDPou8XxE5WYGPHA QY2Dco)BpPKabE2vcp4OfSPgzTqAdyBHZ8eMHpqVg78wAzmO8oaQjAcItYxaKEZU MFP(qiBoOl6Y47fqmcXYADGAYIC9gzOACM6j8r2ejaxVIWQ4OVY4i)CA7gXSb085 h)g93YgNe42YmOOPjGrQb))StuN(JEo6(JkQlQD)8r90FICE3DkJei3AnMQQ4FJj iUKa0pZSuPJoz8hyI(wbmsdmp8BjsQaYtEgDePbaQIwk1Daia(v8qqgOYCWhXCoT Hvv1eQ4LocO4SMwBunx6htphQ2)J8y26hbukdSKrpvrQmN4B6iCCTQClhTySAomN QWcOADwA4g3)LqqSwHD(EcpuvmO2bKaG9f6RwpmBmxfRkGHcB5)44aMAJRDUaiHA nmmcA6AmgYYApOx5uFYwBKJQjjlomr0jtRIAYd6PAfqgDjabeskUJhlBdJCwMfi( kwi7k36sAoHTmBAL2ILkc76jBsMKrCKeHJyysM)2bhv40kDTxN(HkiuM6M7gYEWR zHAggojXksfKBwYNA6QkXTScLjsHiiHP9Q3Q0sEUCY6Lpwh3jlENV7qKcwJ0HbMY AJga(tIgRfK4UN(NQBNlsMTZFZ1SFRrkg6gniBqctNXsDXTAAdum7VdZFAYiIXUC 4OMPAisGAFHPBGo0pjgD8)52YFug8lnNS4rDAzRDQYNrGChWqf7dRDYtzXu6y)n3 74QRc6wwyFwRAPRXxLAoEDiGj19jEYIetiAYiEIoBCrr47goSo0k0XcjU(4HBnVr AgxgIi5CI7jc879ozatqYyQjBQaSHwvJat6he9EfTcdmlSi2Yqu815JxoXn2F08T KGkBXhlZEEopllI(0pyukSKQIRxXBYmJsZGZmZ7pvyiB6qSb8EorXhI3ML)sN2eg NgAHgFp7jmMljJZepcEgwNbs(Y2GAGan2chdNn(rgIyNGMdZwGs4ygnBYuL4RAJC hkcTRrqi(XvEFCXWNJ5DmDQc9of(KbwpJZbg4h5ZMUQc1C8KHEGfOD4WcJMkZ7X4 e2XzI6A08keSHhZdC0FKmtdAxDIN)u9YMMgAXAoKDCM0K8TbGgN8ACMgK8)fADhA zkBgAADAxgJDAB0AIBQA3PozB8N8GMjhwgBwOCKznjReYzRBDLkUnXTmIBcC2Ie0 4)fogDQAJbSMnlAk5gBCBX2YiiwfwBgDBba9(dAq4sA)EWOowdAgH0vqAKKj)z1B qzU4JbgFFEVpJQFzCoy7vuFm3kpFBCywnYAmhxJ6c5KQUKwgrzoie)F(LEAk5iDw ZFiUc()kHxPMhBTg4Txgg1UR8quUU8vmY0EkV9tmP06FcTOiNFkUfSbqnzP6rjlA jtrA4Xl9Br6e3ozPbQnkoDMkfvYB3cuPBkbPgtA2H8vaCqKKDbw1Jw2n5fP6fGul 5eosCoO8vWi7dIlAsHAMiarB2CZTggjZYsKpqyOk5AeQDuijNDrG4PEIAiaoYwhl jHRTHovJ(brg0QW8zj2TOVKpnxPJA0GhHaQOYrnFqQgAjhE0gDhDMMGSQquOQwwo DjizkLTjOOICAgsM8wYQCgJQGmSCNMMeki4OqQwAjgZ5BlSDFEMkoDEGLcgoIk3) KLAgMNNJc0MNvB4CO1IAYbU9AtHKAAAAAAQAAEAAnDwLAAAAAAQyAAAABAAACAAA Qk1DAAQCQMCAJARWAAAAZBgGAkgEAAAAAAAAAkBATVERJB1SVR1QuUkUG9iRE5US uIVRUFERAIQQAAAAAAAAAAAVAQFABAAAAMJA6CgBBkEAAAAAAAAAWAfAAwDAFRkD Qt0UJNUSUNlTMxUQwHAAmCgFEtAALNVRDlEUSVFVG5SRBAgUAYB8GEAEHtkQ4QkT VR1QuUkUAIlROBAAYbU9AZeiAAAAAAQAAEAAjDwLAAAAAAA)IEAACAAAJAAAQkFE AAQCQACAJARWAAAAZBgGAkgEAAAAAAAAAwBATVERJB1SVR1QuUkUE9iRLNVRDlEU T5USMFEVAIATAAgAAAAAAIgYCoCAgDAAbDQ3BIAjUABKECGARQDBMrMZnMQW6gRz USedDGaEREkiQiOLDOBGSgRRBbbMCACEEABAIAgBmhSu3kRzQBHZEIHFcwg2AAGN AJIyZBQAogIIFPAXJSUI8iJIQNZCvAoD8jCCIAFBAcQgeyARjE0QE5YhprjODRKu d0wFAx5QDEwkxJjRALGK1FNkdBALcDFC0FSFHGdYkscEUpdX0CLBkQmyjE1ixgQh QBUeGOUergIDQLNaGiVUilcTAQGCqULKAgE5wDR21tJu7gwhkSeZHNZMC6Ixk4AA AJAMyyNls05hCHpnmKVtcydaUqTC4shze4PINPbLAkUBAJhEK1bGBgkhkIFAaKM0 xsGhDiAbw1FsAU0hQKBNj7T4mAwOUydCe(5Pdof6BKtVAoZEBOCCIbwcYYYRBAGb aJrhPyye4CQi0FAJijiBefiIv4MYDIwo0wYwsAB2oDROOwGyIhMEHK6QjAp3oAxj GUqWJB5(DoJAoxDNqfDiMMIYg60NhQwAsMr(GFcREGBLAR0EkBipBiDRs1hRA8At ZBXBRcEoyxgfBJCyOMKkM65NqUicBAwTBVShMOCESyVMYi0AMMnYPtxyBA06wbCR dcQDrlELKzRsHCn0o4WrUEtjDBAACkUAQBZXAN2QwcBVSDywmTOyMMCowjtNQgCk hIXJmnoOMEDWoYNEdY7olAPdwKBCHYC3BYbAhAAQn0veBEG2YZLEN1oYlltFEgeA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA Ag4O -- Matthew Lee Stier | Sun Microsystems --- RTP, NC 27709-3447 | "Wisconsin Escapee" uucp: sun!mstier or mcnc!rti!sunpix!matthew | phone: (919) 469-8300 fax: (919) 460-8355 |