home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / e / e_v3.3a / src.lha / Src / OOmodules / Coordinate / polyline.e < prev    next >
Encoding:
Text File  |  1995-04-28  |  467 b   |  35 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE  'oomodules/coordinate',
  5.         'other/queuestack'
  6.  
  7. OBJECT polyline OF coordinate
  8.   coordinates:PTR TO queuestack
  9. ENDOBJECT
  10.  
  11. PROC init() OF polyline
  12. DEF q:PTR TO queuestack
  13.  
  14.   NEW q.new()
  15.  
  16.   self.coordinates := q
  17.  
  18. ENDPROC
  19.  
  20. PROC end() OF polyline
  21. DEF q:PTR TO queuestack
  22.  
  23.   q:=self.coordinates
  24.  
  25.   END q
  26. ENDPROC
  27.  
  28. PROC name() OF polyline IS 'Polyline'
  29.  
  30. PROC add(coo:PTR TO coordinate) OF polyline
  31.  
  32.   self.coordinates.addLast(coo)
  33.  
  34. ENDPROC
  35.