home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler6.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  1.7 KB  |  6 lines  |  [TEXT/.Ob4]
  1. ˜∏’ŸøKepler6Bezier¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritenofptsStar
  2. pConstellationnext tConsDesc¸{self˚{R Read¸{selfState¸{self˚{R     Write |BezierDesc¸{s˚{f DrawCRSpline xCRSplineDesc¸{s˚{f Draw NewBezier NewCRSpline NewClosedBezier NewClosedCRSplineܵàflDisplayFramedscnextX
  3. Y WH¸{f xFrameMsg˚{msg     Handlerhandle tFrameDescx0y0scale 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êØâflFonts"Font"˜{fontˆ{colı{mode      DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode      
  4. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode  
  5. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode   FillRect xyrefcntsel next x###StarDesc¸{self˚{P #Draw¸{self˚{R #Read¸{self˚{R #Write#
  6.  $Name$name height"minX$maxX&minY(maxY%Font%,raster0 4|&&FontDesc"& |''Bytes%'