home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / elan.sit / plane / POINTS.E < prev    next >
Encoding:
Text File  |  1988-11-17  |  544 b   |  30 lines
  1. PACKET point:
  2.  
  3. LET POINT = STRUCT (REAL x, y);
  4.  
  5. POINT PROC point (REAL CONST a, b):
  6.   [a, b]
  7. ENDPROC point;
  8.  
  9. PROC picture point (POINT CONST v):
  10.   move (x0 + int (aspect * radius * XC v), y0 + int (radius * YC v));
  11.   plot pixel
  12. ENDPROC picture point;
  13.  
  14. REAL PROC abs (POINT CONST a):
  15.   sqrt (XC a * XC a + YC a * YC a)
  16. ENDPROC abs;
  17.  
  18. REAL OP YC (POINT CONST a):
  19.   a.y
  20. ENDOP YC;
  21.  
  22. REAL OP XC (POINT CONST a):
  23.   a.x
  24. ENDOP XC;
  25.  
  26. POINT OP * (POINT CONST a, b):
  27.   point (XC a * XC b - YC a * YC b, XC a * YC b + YC a * XC b)
  28. ENDOP *;
  29.  
  30. ENDPACKET point;