Mercurial > hg > xemacs-beta

comparison lisp/oobr/tree-nx/Line.m @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
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