Path: ns-mx!uunet!spool.mu.edu!news.cs.indiana.edu!lynx!phobos.unm.edu!swalker From: swalker@phobos.unm.edu Newsgroups: comp.binaries.apple2 Subject: Gradient Demo Message-ID: <-x!d07p@lynx.unm.edu> Date: 19 Oct 91 20:42:12 GMT Organization: University of New Mexico, Albuquerque NM Lines: 140 Well, here is the first in a series of cheesy demos I wrote with Orca/Pascal. Basically this one draws a nifty title and some rects. It then shifts the color of the rects around. Source included. Send comments to swalker@phobos.unm .edu ------------------------cut----------------------------- FiLeStArTfIlEsTaRt ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789() LGRADIENT.SHK AcBwAAAACA(4NIAg32EANlALJwytAcBwAUmy GVvTlzW6BcwqAAAAJwyJJwwWtEAAblALAkADAEQAAAAAAAAAADAAAAwFAAAAAAAA GVvT3JJ2DAAPAMAABAAAAoDAAAw4AMLAAAAAAAQAAAgAbFxGAggEqAQBTsFFGAAC JwCKJwwWAEAAAAAAAAwAAAAAIAAAAAAAAAAIAAAABAAAAAAAAAAAAgMACAAAAMAA 7CAAiAAq8AAAAAgFBJ1RFlERAQlTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAb7PAr8IR2GhCQCTAAIgwUAEAwhAEABIMB4wBBCGE2AMEkPBEwhY0A4BkQKCE ABAKACw7EtaVYiDXXAi6AgwURCM7GCuz2qRBQKCGAgkCQKCJFxUxSAAAFZkoxRRT jwFMShQRKhUJTZA4h6EAjJipUUBNuqjq63oZZhW9EzTpbXiPSsSl1qGtK1tuT3WN PSXtbkqaep(NvzXvTXsaS)a9jKIsckiuevCGdfUxc2kwbFlir0HsL53Mj5Kw2IYr c4)TkTXNTNmx17UmlNTBbd0yca)cXTlGQQwsl50ksT)(uYJzcY6)wDPHT1b3c6eG XXVW35qKK8zOqjX)jqc6(cxXtWjOPIrrFY)ZeVjH7as8e2)4lljnVnn9fU0au1)3 zxNZfb8ZeZjnzSUaAUzLvMZfeCnqv4w0UsABu9CEtQtACMXNr(E9yiaB5KriQBll S97q8Ec48QUrDQkqKy(QwvOMFFnAKdOFoS8YRuEYfkwMEp(6CW7BqXJLRwKUp5BS DFNVkxYxuecsyQFZSJuq)EVecip4oURMRR8h3hyKqADtcor(nE0LOF8Uj2iSJ5qw DHLFy0cDSSbdFPjvNpGPhPlIjc87Ty488rHzQHBR0T6oC9kszTdrPMkTkqsOg6xo MLoCKVlHW09wQS6aRI1AGBoB0FuEGYEpGSV458wTWSBQGWtSyoyMPQ7yt1jTOBBJ ktWL)60DPQ(aanVVlWV1sVKYMpD1PQT)sVkTO5AZ0jf(BAmDZXOSokQY)drdD2mP CMx0OQCad9jZPp9A2A63xOXF1aT1BJlsEz7TpICPx4kCAoA6oCJQR41tJFDxGZBB hWoSh7hRGBO9qijDqQV0CCSJoBtvDIJJYFmWAcCEiVOaMQGDBJ294TPZOoJALmpH O9jjPJ4AC63RTPZ5kDUARQwAQamY5a8UplphilteAEFnAUGAAEjkGgEApVES5TVB leRpAER4EBTCkEG2IwgK3AwwDjNDMQEApTEq(9haOTG1sXqJwUE4Rurhw5ANW5(B m4E4gPhgQAUGp5vdeGWJY10PjoJcAcehIZAOY8lYZ7H)xIM4wjpZOjhRkBI(bpOT nUKEAw)xxYSEGmRKH)JPCFxHFmWM2CUHo0QajhC5AljjNOMCYBEPezwoDgX6qjDh OMISXA5FxVAKFgHQAAGAYAEUCoFE1UIQillFWUaFpuEEqRcAEERxhmE4UsXFVIKQ vJdf0)ZBgGWRaxab9da4QZBA4)x34iZGM6UKrVxbCEM2KAlthCyBIxAFApPYE0Ig QEKoggoCoLyAUyBAHwngDAIgvErkAyGeRwgHwAQgJgABBMElAAFMAhBPAIgC7LAj GAkIAjXJw6CBYRAFYg8BVFA4UsK1LNR6AwQK4nwDIsw6PEC0AA80CiaDoIAiKNAh CBYAFAGMBiNGwGwEIUTgsFABABIQHAiBgKgMApHAAuwYJQgYVAOAJjIjgTwWgy6P oSQQKoEwMCCAADAmcgGGU5Bw0NZMfMO)BD9WRSrBUWVvJDgY8kA8MApIgiAQEISh xkAAMpAlAImFDAarAApAMAgMkGBozEE3LkASjC9BswJASkUIgIYKSGDwCBlShBgC 1qHlc6oYYBYEUWq6PinCooAAtIiZJbZJaGSIBFnSAnlMo8HzFTRBShIP(GBRDGU8 8F9CmMwCKaJIi9avYsK7ZYs(cqwP7Hxs(jxq)YmKAigex1BJiPgQw97NfOF4nFOJ I4O)AYAUY4HIBbOeKilASTIAQUoi2bAAGaAkLCOrBi9CAsQAARyjaYAgIYIgAGpS LAHFgQgGAEwQJPYkAIaFE2nJWpgCV100JAxrIQIAAEnTx6Fl4YOAEQDAd6IYUAsT NAbB3hJAAPwiIDwg0YAUIGE8vxkAoDWB0dES4DIosAUaJByaZpDTyQUrabSA4q0m Igu5ACSMABWE4(LgRBoCY(EtGxQsqMRXISAgLZRBpgO4KVkwBwIDQrTAW4zh98Qo LAEbFjl25tEKiMsSKQBQTZGICGgUR25TAZ2EIfCAMpFQTYFkEUKpB1SaQikWkKhV pRQNAGYECDQNI1xAmvhgzcAUNECmDh0YAxdGICxBrdXQeEIAHAiyhWb441GDyzxg i9K4BUJfmh3GBUgII43ijGAZQBAIQBoSAQjLrp9QhqWBEcT4QAABAhLGwTeEAmDX j1A4dMEGGsF7uTuMIxGuKvxg)JAABAWZAte8bDF(4b4L(T4agECkAAuHYABE4BHB (jh7D812Ksy(AYmCiv5gQz0rQMStLEqHJDsKxCcLtxaFdvGgIhwKBQKkAVWC5ooB 1jvkAmCuDAAaCAAQYDhJwBCwiihQS9667iHjyaiQRfbkUFgg(rc(UakCjdzwDK81 tw(BU2TJOFmFfhnTACxAl1fkXGxjnsCGJFjTJzsVY8rFgDoj6qSR(hwGfBMLAA2T h20R0WGAFeAEZoWBfrBIPRMeZhlyEgSwCgAMQEGoDhVAQZKBIHzBndXQZAHMhDN8 X4))IZkAMsxAcbAnNEeuD03xbqIHUmSAAwQIaMgvg3GW3yBM(BAuAlxgWxNEJAyJ Cg3L7xJC8Yw3z6Qo0ZnLdv1phTBDwxUC4hgAAse7Ns9N27ywAvcsUmCg2ZdYZ4Kc GCP2Ah5OoVXCAxxAQwDEcHE1uhQZ8EQgMDjhzBcwwOAoctVpBdYAgVGD4Rwgyc4S )qBj2AQbtppG(o(XhdNAIMAYH6kJbujiomgul7rg35O0JA(I5az6g)(ukKCAp5Qw BOII7Ccx37j5twLAGjRdHcAQgHITuj1Y(Z1GIsj8A0hA5QEE04qljxXQ6BR6kIBJ )I4mjIL)ACnQQIlU30qvOcwwCYAgEEkWDQzBo5ACdkdoegA0VAKOE(2WAyhDoTmh X4BGIZMSJwHbUECpgrjHEnCD9goAIICpJeSWOhbEIaFAteQBDIIU4Ft2hSLDPSn7 Vz9Obc)VJ4XGCKn)gs24M6sF4kpIjbC2S8QHke3EpqU8pvuAlqXQsAE07gKnOA(J 4LEidx(Sjt8FABS0gxcg88YA2gE5hNBk0BCwAA5Ogg8VUbFgNIAQEEIuBEBoAES8 QzgGeY1IeAIEpFHwEDuBxnD9ImwAVbwAnAwFBAicEwmTAeDB0hAAr8XwkBIgF8LC AUAM6dIgPaIMIQAY3RAAKYISRYIg0BEK)dIAxdIgrABomVoQqiI2CUYgNWIyCQIA MxK8F8LyjRIF8eA(kp6ioRAaWBI6JiI2I8j6IEMkUBA0GUISIEMMFEIAFUATIEE( KQAEkBIEWUI8oVAdbAIW)HEpHR4EeFEWWFEarvDIBF0qVMI(4dAzkBIQWYIyoBAz rAA8IAs4UVIgrgg2sIgQ9)D9IA4goMjYVIIrvcA1tZATRGMa3AgQYIMJNEMWMEEa GYIgGhJMdgI2aQIbBBAiAQI8)YISdYAgaIEckAsMCYAKLAE8kVAQIEMCeQIQiZAR IBAI4dAmdcAiEFg02AAjTPEdL8(j)dL)DAKaEi0TPAu7OAVyMgFeAgVLAAP0KEeL Udl9)h2hNAjgAi2tCgwXPAFkLgQkEAY8BgSwCMQfBAQ)BQqVBCWyGCnLRBOkBgha KADqDCdANgg0ECzBCJHFHijrHiBsLCkG5AOaPA(gMAhgECu)AgtBKAgqJCfAVhzQ PAG0PcA4GAQABAdqACLTvcN0(RD3)Rx5Kc(VIe17KAvq9AQYAAFETBriAABgKAui CN94NgjzCAQyAAEsNcAeGAwyZdC09hT0BAE89l9EIA9FpADuOQxeAAhGQkHOKBFg OVnC)VxjHV(WBBIM0BtA8AsqDAA8CACMAgQGBi9GBCvACiznRgbJAAo2Cg4QVBk( IAA4KAJDVCMCPkqXQCC6FBTpBUQTNCIYBi(ZIAVIDCnBIgYOMg4nIgYPAAGxPADs RAr7Ni6NMUu7SG9G7AAM8BdaCA7qPAxaQAcDPACAAAjSeFzBGAggIBv9CBHnIACn KAiEAAgJIAknMAqEBAgyABS(KQ9jRVjrAYoMAAQhyAPoAAwtaBcmIAIiPAHEAlJb CEiRHBArAcwxAN1rKQ2LDAoBOAJmIQV(LAABMAmAKAnBOCHBCACmBAzxAI1(Nkq2 FRXuFRDNCArBGAIaOBzaUEFNAABsqAuyFQLBBUQhMMvfYBFAIEwUAAxhPBJoRBwt KAYCKU2DDML4SRmMBQgHIMCTfCInCAVAPAQCBBYUOAVATBRCzQVkAQ3VAkg)AA1t hCSxIMufAkF(IMCkAAwhAAJpQpfBGAmIiSsMAAnpAAVpgqIMIAVBKAVAKBxBAApB hWuJAAxlAoxA1oZBJYPFQBPGhCYZAUjMhKsMiqgHNogIKAHQBAQBjCDPiC)AiqbM jqVLmqwNhqOQkWkJgqELDpiBFAqgmC6)(owRmqLYdm92yMwreeazTAESAAgDfmg7 fCCSAoBVAAxBBAD0UAFoIoPAAQwJMAIyaqBjBI1(TVRhpoLAhqviJAXApCQBpqNA gqgmpCgqAAxFpSYlIA2BPV5SIUXhqCQBSUzSEoIArmEvAAioCQ7)GA42GA7AAlV8 Nkh2pSqMaC3vkCEALoPkHBghQpPRsC3nJQfkcqHzrmP6RMmDAADSsmi8sSmMTRBc uqwylq2YjCtBAAbxjemejq9OqSSopWOERpQkIAwBpCa3AU1DNAgAiCAEHpA0Ao1n np60iCgCpqRykCUBFpNeqQ7XDAKAEQ6uNMriAAD6NAgSeCa(EBNmBAIDRBLSPA0W kW4nMEWTPgTvem55vku8BAliCQiQiB(cyu9KERVpeRUCnBoIDlGbAQ4Vrq9uAR1A AAq5OUWRKAHDUBgCOAFOBAACEApCBQaiDRxLABKAARJDEApBAEKDDBbBFRQPFRoU AUqEFRsWQqteLEEJPAUFJNbRAAroWAiJNAMTCAYFFAR8ZG0B3CYT8s8HZteD2C53 eBOAIAA69Az9TAki0OfRBA6)MMHzVSmRPC9FAoGy4CxvJAHyBCkBKOWRLM40AAEg OMy0pBFQAA2gIUz4tuWPZCX9SESRAAS9TAB(6OMdjBKA7G1KTQgMCsXtAo4jwuOs VAAAEsIw7uvwXQb(Pt5w8CGbHsOwPtZz8aKO9WQCdAPAAu50Ns40Osa1Psc1RsQ1 Csw08m3HDACA8uA5(CIRFQW(Asw6(COa(Cue(COj9izj9mj7(Cuw(CO1(Cu5(CO( 9WzmAACHCs(0(yVBADIQFsCwPx5C9ej1ADudIAIAJw6EKw8ELw(EUx1EOsy0Px4E Asy09CzACDEFCsW58ywJCDKOZSW(Fs80AwQLDDibDDCgDDikDDCpDDitDDCyDDi2 DDC7DDi)AAEECsy0(y1REDKNEsGwPxZTFDAWGAKAHw8UIw(Uoy6ULsy0Ky0UNs20 Ow4UPw6UAw8U(m1GGDoHDsAwPx5aGDuRFAEAFwacAonOGsAwqARBGsGwqAVBGsMw qAZBPsAsHD(bPx5dIDncHvhzrUzVIsKwrAXBNuOw8KwuAAllIL0vAAVmPxplJDNn VyDiKwecsAYBLsEwsAbBLsKwsAfBMsAwtATBMwDhKzirKvfJNQS(NwYctAeBNsOw uATBOsEwuAWBOsKwuAZBOwNhKzixMDO8PsMwAwec8CqBAQWl8Kw9NDJFZy3dAAWJ 7OVAAAWKGPMBwApBDsGwwAsBEsJw(yl1AAWT8OwFODMUFwmoKzy8PDaXGsDwPxZ) QDgaHAAAH03AH09AI00AI06AJ0xA525APxJ9PDtnLkyl1AjBLsat1AqB1sDw8OAX 1A9v8CgB1AfwP1JJ2AxwA0AK2ATx42PL8OgZQDD1PDw3OsFw3AgBOsIwK3iOAA26 PtJtTDu7PsBwP1ZRODI)AwjoOD5BAQW(K3iTVDCHBsPwOD9BCQW(K3CWVDcKDsHw Z23XAAnO7OVpAAnR8OQrAA3s8Ow4AAHu8OA6AAHvLPA7(A)BMsLw)A2BMsPwAErJ NsDw)A7BWzNwOsf5AB)BAsatCBFCBsYtOACCIDEFAAoP8SgSZDXQUs1vGBCaD3Dn GBHCUAV9AAod7S1aAAIq7S1bXBBrL0OoHBPCH1OpIBCCOsWtY3hjOQf(KBECPsHw (2lvcDy(AsTtYDfCAk6lLBYCBsJwHBTCGsHwWDeCHQX(XDZCHQb(XDWCHQf(XDSC IQd(YDVCJQR(bH7UJAFAXDdCJQbmPBcCJsOwA0N8KwLh82A9fDoriSS(Z2nbAA59 8WQNgDx(IDkCgPS0CQdmVBuCgzMbZ6nBZB7PE0W67CrCEQe(dDhCFQR(XBgCFsEw XBjChzq)Hsd5bDvCi3o4JsV586wKaXjmERS(8WwoAAKq8WgpAA6qfXJqaBqCLsBw aBsCAwKq8WgrAA6tKXMsbBiCA0qHLXAtbBmCOwEhdBoCOsHwh7gVAE7AYXs5eB5C BsAwjD8CDQSmgB5CDsFwe7JamD0PZu3vAALTIb0EAAbY8agInDHZP0wuAArb8aAK nDfcA4AcAAbf7aVLABVg8CgEAAbhP55QAALiJ5pRAA7s8aAUpDntM4PflB8CNsCw e7pnoDP3Nsf5(61kmDP5PsRtZ70cPQammB)CPsNwn7ssAA8BP5JgrDpCB4GhoDID Bk6ljBADCwHhoBDDCsKwA4MyGwIh1BbDGsLwA4O0HsFw86A1AANe8egYAAdf8ewZ 2Z6Qt7fjp7R13BQDIsLwP5J2AAtjIfUdAAts8eQjvDTt84v55BUDMsDw86w9uD)x M4K(8(QAuDYzN4B(J9JBAAt38eApwDd4P4g5vDu(PQd(48aFvDkDx76uB8kEwDuD BQX(v)IIAAeIP5J8AAOJJ5Z6AAeKP5J3yDPLI4A(9BjDIsHw9BpDAwOk8eA3AA(j U0lbAAem8eA6zDGoP5JjAA(o8ew7AAOr8eg9AA(r8GwGzDtsvDFE)BuDA0(b8iAA AAex8iwC1Dl2wDfET)8ZP9pa2Dz6P9pW2Dc(PAOA3)AXAMvNP9pV3DJCP9JaAA)C P9JZ4DBEB8(d8(QfAA)IP9ZX4D7ME83dP9Ji5DCT4zvcFsHw)B7DFsNwP95l5Dec IABAI8WlIC8D5zFl5DVo5DVp5Dls6Dhu5DavM80dN8Yo1DyDNQf(0)Ku7nMlA0Pw 8ig1SBRAA8gf3vKTAAOA8(QxBAQEA8QuBAgFJ9sg4DMECAFA5DLE9)WMD84dP9Jz (DgQEAFA3)30BAATH3S18(g50PuL(3p2JsS5zDHEJQX((DPEJAMATCIEQAQ9QCAB LAogB0jQBxJAhHBoqBIIisxCRbB5IgTYiwAjRdIfAA4I6gRESBBVIAgIS1RJQmIS As0Aa61HElKeJAiAItpDTQIEJQR4CoHhBLC(HKgEQRCZQroOjKdjsDwAKAckiR1Z N5oE1dBqtRQmQEgVDCLmAclAYayP1sRM2qViQaMAovahKlV7eOqdWunmA4lVoZCv utUPz2swwbC7EuCP4SjQEgSSFuRPwGqgHSSW5IW)H3BLoFPcnuuPZl18qP6oA0iM KAon4oiibBALFQldIbeFg2ubIMst2NqvCDOqkAgNZScFn2Vbd3qA4APAo64hZfjA fAYPPHFAL(TTzLMw(DQbfcRg5zrfJju8)(zq41jPAAQeAAAAAAAAAAAAAAAAAAAA AEFh