1
0
mirror of synced 2026-01-12 00:42:56 +00:00
Interlisp.medley/lispusers/KINETIC.TEDIT
2020-11-15 19:22:14 -08:00

9 lines
6.3 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

en·vÅos KINETIC
2
4
1
KINETIC
1
4
By: Anon.
Recompiled for Medley by Larry Masinter (Masinter.PA@Xerox.COM)
INTRODUCTION
An ancient graphics hack, converted to work with idle.
OPERATION
(KINETIC WINDOW) [Function]
to randomly invert rectangles on WINDOW, or on KINETICWINDOW (set up first time). Choosing the Kinetic on the Idle Choose Display menu will select the KINETIC function as the Idle display.
CHECKSHADE [Variable]
If non-nil, CHECKSHADE is a texture which is used for some of the rectangles sometimes. Defaults to 63903.
ê<00>ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ_ÿ¿ÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ{¿ÿîÿ÷;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀŸwÿÿïÿ÷;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀŸo´xÂã÷;hñpîïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ_³·nÝú×gnonïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿/·°nßú×ooou_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀw··îßú×ooou_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿{··nÝýïono{¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¸òãýïoqpû¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ?ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ@8@YÏþÿà?þÿà?€>xÿÿàþ@ ?ÿàðÿÀÿÿÿÿ€ÿÿøþ@¸PÿÀþ3,Ìó3LÌÌÌÌÿþÿðú@¸`ÿÀþ3,Ìó3LÌÌÌÌÿþÿðú@ÿÿÿàðÿÀÿÿøÿ÷@Y™ÿÿÿàðÿÀÿÿøÿ÷@9‰ÿþÿàüÌÓ32³334Ìÿþÿ÷@V€ÿàþ3,ÌìÍLÌÌË3ÿ÷@QÿþàþüÿÀÿ€ÿÈä@9qÿþàþüÿÀÿ€ÿÈä@X<>ÿþàÁüÏ,Ìó2´ÌÌË3ÿÈâ@<18>ÿþàÁüÏ,Ìó2´ÌÌË3ÿÈâ@¸ÁÿþàÁÏüÿÀ‡ÿÿø<>ÿÈâ@ÁÿþàÁÏüÿÀ‡ÿÿø<>ÿÈæ@¹AþÁÃ0Ó3 ÍK334Ìÿ<C38C>ÿÈæ@ÁþÁÃ0Ó3 ÍK334Ìÿ<C38C>ÿÈæ@™>‡þÿà>0à?þxÿ€~ÿÿø7@™>‡þÿà>0à?þxÿ€~ÿÿø7@
xþàÁÃ0Ó3 ÍK334Ã~ÿÿø7@Y
tÍ2³3ÁÄÏ,Ìó2´ÌÌË<ÿ<>þ7@
ÿßÁÈ|ÿÀ‡ÿÿø€~ÿøþ7@9=þÿßÁÈ|ÿÀ‡ÿÿø€~ÿøþ7@ýs2ÍK,Ìà>;O,Ìó2´ÌÌË<ÿ<>øÈš@ýs2ÍK,Ìà>;O,Ìó2´ÌÌË<ÿ<>øÈš@8<>þ‡à >7ƒà?þxð<C3B0>øÈš@<18>þ‡ßÿßÁÈ|ÿÀøð~~ÿøÈš@X@þxÿÓ
ÿÿøÍ<>ÿýÈš@6@~‡à,ò÷œÿÀð2~ÿø6š@™:€~‡à >7œÿÀð~~ÿø6š@™:€~‡à >7œÿÀð~~ÿø6š@E¿<45>þxÿÐòðcà?ÿøÿøÍ<>ÿü6š@¹E¿<45>þxÿÐòðcà?ÿøÿøÍ<>ÿü6š@I<49>þxÿÜ>0cà?ÿøÿø<0F><>ÿü6š@¹I<49>þxÿÜ>0cà?ÿøÿø<0F><>ÿü6š@E¿<45>þxÿÐòðcà?ÿøÿøÍ<>ÿü6š@YqsM2´à/
œÿÀð2~ÿøÉz@8Ž€~x #ÁÏœÿÀð~~ÿøÉz@Ž€~x #ÁÏœÿÀð~~ÿøÉz@þŒ²Ê´à/
œÿÀð2~ÿøÉz@8þŒ²Ê´à/
œÿÀð2~ÿøÉz@Xþ€~x #ÁÏœÿÀð~~ÿøýÉz@þ€~x ,>0cà?ÿøàð~~ÿøýÉz@¸þŒ²Ê´à òðcà?ÿøàð2~ÿø1Éz@¸Í¿<C38D>ù‡à òðcà?ÿ÷€øÍ<>ÿÎ6†@Á<C381>ù‡à,>?œÿÀð<01>ÿ6†@XÁ<C381>ù‡à,>?œÿÀð<01>ÿ6†@8Í¿€x òóPÓ3 Ìij,Ë<Í<>ÿÎ6†@Í¿€x òóPÓ3 Ìij,Ë<Í<>ÿÎ6†@Á€x ÿÓÁÀcà?ÿ÷€øþ~ÿùÿ6†@8Áx ÿÓÁÀcà ð¾ÿùÿ6†@XÌ þàÿß
¯,ÌìÌij,Ë<;ÿùÿÎ6†@Ì þàÿß
¯,ÌìÌij,Ë<;ÿùÿÎ6†@¸ÀàþàÿÓÁÀcà ð¾ÿùÿÂ6†@ÀàþàÿÓÁÀcà óþA=Ά@¸Ì þàÿß
¯,ÌìÌij,Ë?þ<>ÌÊÌý†@Ã߀øÿß
¯,ÌìÌ»LÓ4Àr353}†@˜ÏøÿÓÁÀcà w€ø ¾ÿùÿ½Î†@˜ÏøÿÓÁÀcà w€ø ¾ÿùÿ½Î†@Ã߀øÿß
¯,ÌìÌ»LÓ4Àr353}†@XÃ߀øÿß
¯,Ìë3D³,Ë?þ<>ÌÕ3}†@Ï`þà,>?œÿØw€ø ¾ÿæ]Ά@8Ï`þà,>?œÿØw€ø ¾ÿæ]Ά@àþà òóPÓ3Ì´³,Ë?þ<>ÌÕ3bùz@Ë þàÿß
¯,Ìë34³,Ë?þ<>ÌÕ3bùz@8Ç`þàÿÓÁÀcà'ÿøàóþAÿ¢1z@Ç`þàÿÓÁÀcà'ÿøàóþAÿ¢1z@XË þàÿß
¯,Ìë34³,Ë?þ<>ÌÕ3bùz@Ë þàÿß
3PÓ3ÌËLÓ4À
ÌÕ3bùz@˜Ç`þàÿÓÁÿœÿØø Áÿ¢1z@˜8Ÿ€ø,>'ÿøàóþ>ÿ¢1z@4_ÿþàÿß
3PÓ3ÌËLÓ4À
3*Ì<>z@¸'lÌÍ4ÓÌì>`ÿØø ÌòÌÕ3bÇz@'ŸÿþàÿÓÁÿŸà'ÿøà >ÿ¢z@¸'ŸÿþàÿÓÁÿŸà'ÿøà >ÿ¢z@'“32Ë,3ÁÿŸà8øà ÌÍ3*Ì<>Çz@X'“32Ë,3ÁÿŸà8øà ÌÍ3*Ì<>Çz@8'ŸÀø,>`ÿÇ€€` ÿæ]z@'ŸÀø,>`ÿÇ€€` ÿæcz@'“ Í4ÓÌì>`ÿÀøŸÿó32ÌÊ̯Çz@8'“ Í4ÓÌì>`ÿÀøŸÿó32ÌÊ̯Çz@X'ŸÀøþ?€€` ÿùÿŸz@'ŸÀøþ?€€` ÿùÿŸz@¸'“ Í0þ?€€` ÌÍ353SÇz@¸(ló2Èñÿ€ÿÀøŸÿó32ÌÊÌÓÇz@(`?þñÿ€ÿÀøŸÿóÿþz@X(`?þñÿ€ÿÀ€` ÿùÿàz@8(ló50þ?ÿøŸÿó32ÌÊÌÓ8Ž@(c ÊÈþ?ÿøŸÿó32ÌÊÌÓ8ö@+ŸÀÿÿà?ÿøŸÿüÿùÿà@9ÓŸÀÿÿÿàÿ€ÿÀ€`ÿþðþ@YÓ“ Í7ÿÿàÿ€ÿÀ€`32ÌÊÌÓ8ú@Ó“ Í7ÿÿàÿ€ÿÀ€`32ÌÊÌÓ8ú@¹ì`?þÿÿà?ÿøŸÿüÿùÿàú@ì`?þÿÿà?ÿøŸÿüÿùÿàú@¹ìló2ÌÓÌì>?ÿøŸÿüÌÍ353,Àú@ìc Í3,3Á€à?ÿøŸÿüÌÍ353,Àú@™êoÀÿàÿÓÁ€à?ÿøŸÿüÿùÿàú@™é˜?ù€ ÿÐ>?ÿøŸÿüÿùÿàú@æTót³,3>?ÿøŸÿüÌÍ353,Àú@X« Lì3>?ÿøŸÿüÌÍ353,Àú@XG€ÿÐ>?ÿøàÿþÿàþ@8X@ßÿßÁÿ€ÿÀÿþÿàþ@ÌŒ³,´ÀAÿ€ÿÀ32ÌË\¬Ã¾@ÌŒ³,´ÀAÿ€ÿÀ32ÌË#Lþ@8@àxAÿÿà?ÿøÿÿüÿÿï€ ¾@€‡ÿ¾ÿßÿøÿÿÿÿþó¾@X̳LÌË?¾ÿÀøÿÿÿÿþóú@øÿÿ€À@ÿÀøÿÿÿÿÿÿÿà¿üJ@˜ àÿÿàÿßþÿÿÿÿÿÿÿÿÿü>@˜@@¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ³l@°0ð@" >0` DH€"(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 116) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# NIL) (0 0 612 792) ((HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC) STARTINGPAGE# NIL) (0 0 612 792) ((HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))),È 3ÈÈT2ÈÈ2ÈÈ,È,ŠŠ8,ŠŠ8HÈÈ PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSICMODERN
MODERN
MODERN MODERN
MODERN HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN
 HRULE.GETFNMODERN  HRULE.GETFNMODERN  A 7
 
!l* BMOBJ.GETFN3MODERN
H2zº