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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 #import "Line.h"
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 @implementation Line
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 - setStart:(NXPoint *)s end:(NXPoint *)e
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 start.x = s->x;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 start.y = s->y;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 end.x = e->x;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 end.y = e->y;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 return self;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 - render
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 {
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 PSmoveto(start.x, start.y);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 PSlineto(end.x, end.y);
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 PSstroke();
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 return self;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 }
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23 @end