home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Curves.Obj < prev    next >
Encoding:
Text File  |  1996-01-25  |  7.9 KB  |  37 lines  |  [TEXT/.Ob4]
  1. ¯6¢ 
  2. ˇ–@ÿ≥$”MCurvesÇéº<lÇ∂E∫ZÎÜÉNewlMakeLine<MakeCircleºMakeEllipseÑÖ;‚ÜDisplay$…¢ãFiles$Ù…/Printer$ `<Oberon$ !Texts;‚WêFonts;ı‰ƒViewers$“ΔGraphics2ılxModules$”MGraphicFramesÜ ˇÓ˛≠ˇˇ˙i¸Å¸i¸M¸˚Â˚À
  3. ˙€
  4. ˙ ˙Ç
  5. ˙~
  6. ˙y˙[˙U˙O
  7. ˙I˙C    ˙= ˙7˙1áNewCurvesà|¶øaˇÏêî!ˇ∞;·8êA;√;§;Ö;f8~8ù8º8€8‡99 ÄBˇ‘HÄAÄ Ä!|¶ªaˇÏO‡ |¶æ°ˇ‘êî!ˇà;·8êA;√;§;Ö;f;G;(;    |ô–@‰l~¸“|z»|up/ˇˇ@˙{ ú∏@¸H8~8ù8º8€8‡ÄBˇ‘HÄA3ú,ï@‰ ~µ C‡|ö»~µ"{¬C‡ˇ∏C‡h~€ |π–|µp/ˇˇ@˙ú“õ∞@¸H8~8ù8º8€8‡ÄBˇ‘Kˇˇ)ÄA3{,ï@‰ ~µ“C‡|Ÿ–~µ2ú¬C‡ˇ∏ÄHÄ!|¶∫°ˇ‘O‡ |¶æ·ˇ‹êî!ˇê;·8êA;√;§;Ö;f;G"˙;:;»A˘h8~8ù|¸ 8ß}¬8»8‡ÄBˇ‘Kˇ˛¡ÄA8~8ù}<¬8©}[ 8 8‡ÄBˇ‘Kˇ˛!ÄA8~8ù}x‡8´}õ 8Ã8‡ÄBˇ‘Kˇ˝˘ÄA8~8ù|π‡|€¬8‡ÄBˇ‘Kˇ˝—ÄA8~8ù|˘‡8ß}ÿ8»8‡ÄBˇ‘Kˇ˝±ÄA8~8ù}8‡8©}Yÿ8 8‡ÄBˇ‘Kˇ˝âÄA8~8ù}|¬8´}ôÿ8Ã8‡ÄBˇ‘Kˇ˝aÄA8~8ù|º |ÿÿ8‡ÄBˇ‘Kˇ˝9ÄA/ó@¸W<1~˜BC‡}9¿U*<1j~˜Z39ˇˇ3C‡˛òÄ@Ä!|¶∫·ˇ‹O‡ |¶æ!ˇƒêî!ˇh;·8êA;√;§;Ö;f;G;(~∫—÷~ô…÷~¨p|y©÷|É`~$¢µ    |¶p˘}©÷}(0~I¢;:˘,í@‰Ù8~8ù}\¬8™}{∫8À8‡ÄBˇ‘Kˇ˝ÄA8~8ù}ò‡8¨|€∫8‡ÄBˇ‘Kˇ¸9ÄA8~8ù|¯‡8ß}ÿ8»8‡ÄBˇ‘Kˇ¸ÄA8~8ù}<¬8©}Wÿ8 8‡ÄBˇ‘Kˇ˚ÌÄA/@¯W <1ã~l°÷~RöC‡0W<0É|§°÷0◊ˇˇT«<}©÷~h(V©<}SJ~RR2˜ˇˇ~1ö3C‡ˇ :◊~ãp}ö°÷|lX~#™;:‡ó∞A˝‰8~8ù|º¬|€∫8‡ÄBˇ‘Kˇ˚≈ÄA8~8ù|¯‡8ß}∫8»8‡ÄBˇ‘Kˇ˚-ÄA8~8ù}8‡8©}Wÿ8 8‡ÄBˇ‘Kˇ˚ÄA8~8ù}|¬8´}óÿ8Ã8‡ÄBˇ‘Kˇ˙›ÄA,ë@‰V„<0É|§©÷~1*C‡(VÊ<0Ê}©÷18ˇˇU*<}j°÷}ã@~1b3ˇˇ2˜C‡ˇÄhÄ!|¶∫!ˇƒO‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Äbˇ¸ÄBˇ–HÄA;√ûÄbê~ ÄǡìƒÄÄ!|¶ª¡ˇ¯O‡ ø°ˇÙî!ˇ∏;·8;√;§ùû®æ∞Ωùû®fi∞›ùû®˛∞˝ùû©±ùû©>±=Å]ˇ¸Åbˇ¸ÅäˇÙlXùÄ~ˇ¸Äǡ¸Ä£ˇÙe û®fi∞›Ä˝ˇ¸Åˇ¸Å'ˇÙi@ùÅ^ˇ¸Åbˇ¸ÅäˇÙlXû®~∞}Ä!ª°ˇÙO‡ |¶æ¡ˇÿêî!ˇê;·8êA;√;Ñ;•:¿Äǡ¯Ä§ˇÄ›ˇÙf(û®˛©gBû©>©\IRû´>û´Ç‹©|/ @˙û™˛C‡™¸ñ©ñ õ`@¸,ñ|{ ®ñ|ÑAÂñ®∂"(@¯ñ|⁄¬®ˆ
  8. á0A˝ÙÅˇ¸Å"ˇ¸ÅHˇÙjHû©~,ã@ʉ©ú
  9. / @˙Lûà~
  10. /ÉA˛8v8Ä8ª8⁄Kˇ¯8v8ó8ª8⁄8˘99 Kˇ¯QC‡å®ú
  11. ,Ñ@Ê8v8Ä8ª8⁄Kˇ˜…C‡h®º
  12. /@˙ 8vñ®ñ(8ª8⁄Kˇ˜°C‡@8vñ®ñ(8ª8⁄Kˇ˜Ö8vñ®ñ(8ª8⁄8˘99 Kˇ˜≈C‡ÙÄfiˇ¸Ä‚ˇ¸ÅˇÙh8û©>/â@˛‰©\
  13. ,ä@ÊLûâ~
  14. / A˙8v8Ä8ª|⁄¬Kˇ˜8v8ó8ª8⁄8˘99 ˇˇKˇ˜QC‡å©ú
  15. /å@˛8v8Ä8ª|⁄¬Kˇˆ…C‡h®|
  16. ,É@Ê 8vñ®ñ(8ª|⁄¬Kˇˆ°C‡@8vñ®ñ(8ª|⁄¬KˇˆÖ8vñ®ñ(8ª8⁄8˘99 ˇˇKˇˆ≈C‡ÙÄûˇ¸Ä¢ˇ¸ÄƒˇÙf(û®˛/@˙ÿ9p©
  17. /à@˛Dûâ>
  18. ,âAÊ8v8Ä|ª 0⁄ˇ¸Kˇˆ    8v8ó|ª |⁄ 8˘Kˇ˜qC‡Ñ©\
  19. /
  20. @˙8v8Ä|ª 0⁄ˇ¸KˇıÕC‡`©|
  21. /ã@˛ 8vñ®ñ(|ª 0⁄ˇ¸Kˇı•C‡88vñ®ñ(|ª 0⁄ˇ¸Kˇıâ8vñ®ñ(|ª |⁄ 8˘KˇˆÌC‡Åûˇ¸Äbˇ¸ÄåˇÙdû®æ,Ö@ʇ9pp®‹
  22. /@˙Hûà˛
  23. /áA˛8v8Ä|ª 0⁄ˇ¸Kˇı8v8ó|ª |⁄¬8˘9Kˇ¯-C‡à©
  24. ,à@Ê8v8Ä|ª 0⁄ˇ¸KˇÙ—C‡d©<
  25. /    @˙ 8vñ®ñ(|ª 0⁄ˇ¸KˇÙ©C‡<8vñ®ñ(|ª 0⁄ˇ¸KˇÙç8vñ®ñ(|ª |⁄¬8˘9Kˇ˜•Ä@Ä!|¶∫¡ˇÿO‡ øˇ‡î!ˇ†;·8;√;§;ÖÅ^ˇ¸Åbˇ¸ÅäˇÙlXû®~/ÉA˝ºû´>û´Äûˇ¸Ä¢ˇ¸ÄƒˇÙf(û®˛,á@Êû©H¬–C‡ û´^û©>    ËA˘Tû©^}j ùX@¸@}ö‡|l…÷û®û|§Ë|≈¡÷|Ê|ËΔp}    :x}HHW+:|äX@‰ 8`C‡8`C‡tC‡lû©û}Épû®ûc"0ªˇ¸ËA˘@0€ù0A˝4û®˛1ˇ¸|à‡A û©>1IPA˘ 8`C‡8`C‡‡Ä!ªˇ‡O‡ øÅˇî!ˇ∏;·8;√;Ñ;•ÅbˇÅãˇÿÄ}ˇÙÉ`@˛ ûÄǡħˇÿÄ›ˇÙf(®¸∞˛Ä!ªÅˇO‡ |¶øAˇËêî!ˇ®;·8êA;√;Ñ;•;F;g8|8ù8øÄBˇÿHÄA8|8ùÅˇ¸Å"ˇ¸ÅHˇÙjHû8æÄBˇÿKˇÚ]ÄA8|8ùÅ~ˇ¸Åǡ¸Ä´ˇÙe`û8æÄBˇÿKˇÚ1ÄAÄ(Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇ®;·8êA;√;§;e;Ü;';H8{8ú8Ω8fiÄBˇHÄA8{8ú8†ÄBˇÿHÄA8{8úÄfiˇ¸Ä‚ˇ¸ÅˇÙh8û®æÄBˇÿKˇÒçÄA8{8úÅ>ˇ¸ÅBˇ¸ÅiˇÙkPû®æÄBˇÿKˇÒaÄAÄ(Ä!|¶ª!ˇ‰O‡ |¶øAˇËêî!ˇ®;·8êA;√;§;ÖÅûˇ¸Äbˇ¸ÄåˇÙdû®æ,Ö@Ê\û®fiT«:gÍû©U    :I‚8{8öû©^UK:|´⁄û©ûUÜ:|Δ“ÄBˇ‹HÄAC‡\IJˇ¸Åˇ¸Å'ˇÙi@û©^/
  26. @˙\û©~Ul:lÍû®~Td:D‚8{û®æT¶:|Ü“û®˛TË:|®⁄8⁄ÄBˇ‹KˇâÄAC‡‰Å>ˇ¸ÅBˇ¸ÅiˇÙkPû©û/å@˛`û®~Td<û®æ|ƒ*T«<|gÍû©U    <û©^}iRUl<|å‚û®æT•<ÄBˇ‹HÄAC‡hû®fiT«<û©}'BU*<|jÍû©~Ul<û®û|¨"T¶<|Ü‚û®˛TÂ<û©U<ÄBˇ‹HÄAÄ(Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇò;·8êA;@; ÄBˇ¯HÄA;#,ôAÊ∏ôÅ90/    A˙®8yÄBˇ¯HÄAô´Ÿ,ô´ô.ôÉπ0ù´ΩôÉy0õ´{Äbˇ¸ÄBˇ–Kˇ˙-ÄA;CöÅBˇ‡âjt}lt±öö|~Ë|dΔp|Öx|ƒ(∞⁄ö|¸ÿ|ËΔp}    :x}HH±ZöÅbˇ©ã±öûËA˝Dö≥⁄|úÿAÂö8`∞zö≥öC‡ö8Ä∞öö≥zC‡@ö≥∫‡@¯ö8†∞∫ö≥zC‡ö8¿∞⁄ö≥ööô®˘$©}'@±:öô©Y&©z}äX±ööÄbêz ôÄy8öÄBˇHÄA8yÄBˇ¯HÄA8y8öÄBˇ¯HÄAÄ8Ä!|¶ª!ˇ‰O‡ |¶øAˇËêî!ˇ†;·8êA;`;@ÄBˇ¯KˇÓÌÄA;C/öA˛8öÄö0,ÑAÊ(8zÄBˇ¯KˇÓ¡ÄAö´⁄,ö´∫.öÄ∫0Ö®≈|˛0|ËΔp}    :xàH/@˘‡Äbˇ¸ÄBˇ–KˇÓÅÄA;cõ}\ö©z$}ãP±õõ||Ëö®ö&|§∞ªõWÜ<0Ê∞˚õõ©±õ9 ±;õÅBˇ‡âjt}lt±õõÄbˇ®É∞õõÄ¢êª öÄz8õÄBˇKˇÌQÄA8zÄBˇ¯KˇÌAÄA8z8õÄBˇ¯KˇÌ-ÄAÄ0Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇò;·8êA;@; ÄBˇ¯KˇÏÌÄA;#/ôA˛ÄôÄŸ0,ÜAÊpôĢ0áÅ/A˙X8yÄBˇ¯KˇÏ¡ÄAô´Ÿ,ô´π.ôÅ90â©I}~P}lΔp}ÉZxåôÄô0ÑħÖ®≈|˝0|ËΔp}    :xhH/ú@˝Ë,õ@‡Äbˇ¸ÄBˇ–KˇÏyÄA;Cö}\ô©y$}ãP±öö|{Ëô®ô&|§∞∫öWÜ<0Ê∞˙öWh<1(±:ö9@±ZöÅbˇ‡âãt}Ét∞zöÄǡ®§∞∫öĬê⁄ ôÄy8öÄBˇKˇÎ—ÄA8yÄBˇ¯KˇÎ¡ÄA8y8öÄBˇ¯KˇÎ≠ÄAÄ8Ä!|¶ª!ˇ‰O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄ‚ˇÄgˇËÄBˇ–KˇÍ±ÄAêbÅà9ǡ»},<™}(=™ÄbÉÄ‚ˇƒê„Åà= 9IëH êH$Åbã=Ä8lêk(êK,ÄÇÑ<†8≈êƒ0êD4Ä‚á=9(ë'@êGDÅBä=`9ãëä8êJ<ÄbÉ<Ä8§ê£HêCLĬÜ<‡9ëPêFTÅ"â=@9jëiXêI\ÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇ‰CurveDesc äxáàãåèêìîóòûü£§™´Ø∞√ƒ»ÃŒ‘ÿ‹·ÂÌÓı!-.5T[amnvìö†™´¥“ŸflÙı˘˚
  27.  '*38APTpq{|§•Ø∞Δ«Àœ’Ÿ‰ÂÈÌÚˆ
  28. !&).1JRTVXZ\chntz~ÅÑáäéëîóôöü†•® “‘÷ÿÂÁÎÌÒıˆ˘¸*.08:<>DFHWY]_cgknswzõ†§™∞∂º¬»Œã¯8markcol‚{f·{
  29. xx„{y‰{¯‡¿8linecol‚{dÁ{f·{
  30. xhÊ{uÍ{wÂ{x„{x1Ë{y‰{y1È{¯Œ88circlecol‚{f·{
  31. xrÂ{uË{xÊ{x0„{yÁ{y0‰{¯Ï‡8ellipseaÂ{aaÍ{bÊ{bbÎ{col‚{dÏ{f·{
  32. xgÌ{hÓ{xÁ{x0„{yË{y0‰{y1È{¯Ç8Newc·{|¯∂8Copydst‚{dsrc·{d¯Î88DrawM„{|colË{fÈ{
  33. xhÁ{obj·{dwÊ{x‰{yÂ{¯≈(8SelectablehÁ{obj·{dwÊ{x‚{xm‰{y„{y0Â{¯⁄8HandleM„{|obj·{d¯Ü 8ReadCÂ{lR„{tlenobj·{d¯∫ 8WriteCÊ{lW‰{tcno‚{obj·{d¯º 8Printobj·{dx‚{x0‰{y„{y0Â{¯º    08MakeLineGÊ{
  34. xcÂ{|x0·{x1‚{y0„{y1‰{¯ú
  35. (8MakeCircleGÂ{
  36. xc‰{|r„{x0·{y0‚{¯é 08MakeEllipseGÊ{
  37. xa„{b‰{cÂ{|x0·{y0‚{¯ÿ 8$$methodh˜ CurveDesckindlw