Mercurial > hg > xemacs-beta
annotate lisp/oobr/tree-nx/Line.m @ 36:c53a95d3c46d r19-15b101
Import from CVS: tag r19-15b101
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:53:38 +0200 |
parents | 376386a54a3c |
children |
rev | line source |
---|---|
0 | 1 |
2 #import "Line.h" | |
3 | |
4 @implementation Line | |
5 | |
6 - setStart:(NXPoint *)s end:(NXPoint *)e | |
7 { | |
8 start.x = s->x; | |
9 start.y = s->y; | |
10 end.x = e->x; | |
11 end.y = e->y; | |
12 return self; | |
13 } | |
14 | |
15 - render | |
16 { | |
17 PSmoveto(start.x, start.y); | |
18 PSlineto(end.x, end.y); | |
19 PSstroke(); | |
20 return self; | |
21 } | |
22 | |
23 @end |