Artifact 9105140291e559f87d273e105bb8e6f78f7142cda763d690cf7f8da3ff84230a:

• File psl-1983/3-1/glisp/circle.sl — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1313) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/glisp/circle.sl — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1313) [annotate] [blame] [check-ins using]

% CIRCLE.SL.3     31 Jan. 83
% Test program to draw a circle on a graphics screen.
% G. Novak

(DG CIRCLE
   (XSTART:integer YSTART:integer RADIUS:INTEGER)
%          (* edited: "19-MAR-82 16:31")
%          (* Draw a circle incrementally.)
   (PROG (X Y YLAST DELTA NP2)
         (X_RADIUS)
         (Y_0)
         (DELTA_0)
         (WHILE Y<X DO (YLAST_Y)
		       (DELTA _+
			      X + X - 1)
		       (WHILE DELTA>0 DO (DELTA _-
						Y+Y+1)
					 (Y_+1))
		       (NP2 _(Y - YLAST + 1)/2)
		       (WHILE NP2>0 DO (NP2_-1)
			       (DRAWCIRCLEPOINT X YLAST XSTART YSTART)
				       (YLAST_+1))
		       (X_-1)
		       (WHILE YLAST<Y DO
                          (DRAWCIRCLEPOINT X YLAST XSTART YSTART)
					 (YLAST_+1)))))

% for testing:
(de drawcirclepoint (x y xstart ystart)
   (prin1 x)(prin2 '! )(print y))

(dg oldDRAWCIRCLEPOINT
   (X:integer Y:integer XSTART:integer YSTART:INTEGER)
%          (* edited: "19-MAR-82 15:40")
   (BITMAPBIT XSTART+X YSTART+Y 1)
   (BITMAPBIT (XSTART - X)
	      YSTART+Y 1)
   (BITMAPBIT (XSTART - X)
	      (YSTART - Y)
	      1)
   (BITMAPBIT XSTART+X (YSTART - Y)
	      1)
   (BITMAPBIT XSTART+Y YSTART+X 1)
   (BITMAPBIT XSTART+Y (YSTART - X)
	      1)
   (BITMAPBIT (XSTART - Y)
	      YSTART+X 1)
   (BITMAPBIT (XSTART - Y)
	      (YSTART - X)
	      1))