home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler4.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  3.2 KB  |  10 lines  |  [TEXT/.Ob4]
  1. ˜∫÷ÿøKepler4Galaxy¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritenofptsStar
  2. pConstellationnext tConsDesc¸{self˚{R Read¸{selfState¸{self˚{R     WriteGraphG |GalaxyDesc¸{self˚{F Draw¸{self˚{R Read¸{self˚{R WriteIconæÿ÷øKeplerFrames
  3.  cmd8par ÿtButtonDescButton¸{B    ˚{keys Execute¸{BFrame˚{F˙{x˘{y    ¯{keys HandleMouse¸{B˚{R     Read¸{B˚{R 
  4. WriteêØâflFonts Font ÿfnt‹ ‡x!!!IconDesc¸{I˚{F !Draw¸{I    ˚{keys !Execute¸{I˚{R !Read¸{I˚{R !Write NewButton     NewGalaxy
  5. NewIcon UpdateButtonܵàflDisplay"Frame"dsc"nextX
  6. Y WH"¸{f x##FrameMsg#˚{msg     $Handler$handle t%%FrameDescx0y0scale ext %$|&& &PortDesc¸{P˚{x&CX¸{P˚{y&CY¸{P˚{X&Cx¸{P˚{Y&Cy¸{P˚{x˙{y˘{r¯{col˜{mode &DrawCircle¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode &DrawEllipse¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode &DrawLine¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode &DrawRect¸{P˚{x˙{y '˘{s ˜{fontˆ{colı{mode &    DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode &    
  7. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode &
  8. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode & FillRect&xyrefcntsel next x(((StarDesc¸{self˚{P (Draw¸{self˚{R (Read¸{self˚{R (Write(consstars seltime¸{op˚{G˙{O˘{P     )Notifier)notify p***GraphDesc¸{G˚{op * All¸{G˚{o * Append¸{G˚{from˙{dx˘{dy *CopySelection¸{G˚{o *Delete¸{G˚{minstate *DeleteSelection¸{G˚{P *Draw¸{G˚{p *FlipSelection¸{G˚{s˙{dx˘{dy *    Move¸{G˚{dx˙{dy *
  9. MoveSelection¸{G˚{R *Read¸{G˚{o * SendToBack¸{G˚{R *Write¸{G˚{R * WriteSel*! &$p++ +DisplayPortDesc+,DisplayPort,¸{P˚{x˙{y˘{r¯{col˜{mode +DrawCircle,¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode +DrawEllipse,¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode +DrawLine,¸{P˚{x˙{y -˘{s ˜{fontˆ{colı{mode +DrawString,¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode + FillRect$G(col*grid +,|...FrameDesc¸{F˚{ch . Consume¸{F˚{x˙{y    ˘{keys .EditFrame¸{F˚{newY . Extend¸{F˚{p . Invert¸{F .Neutralize¸{F˚{newY .Reduce¸{F˚{X˙{Y˘{W¯{H .Restore¸{F˚{x˙{y    ˘{keys .TrackMouse.
  10.  /Name/name height"minX$maxX&minY(maxY0Font0,raster0 4|11FontDesc 1"% |22Bytes02