🚀 go-pugleaf

>Newsgroups: comp.sys.unisys,gnu.misc.discuss,alt.gif-agreement,alt.online-service.compuserve
>From: h9210876@hkuxa.hku.hk (Lee Sau Dan ~{@nJX6X~})
>Date: Fri, 20 Jan 1995 18:37:41 GMT
>
>Oh!  I can't believe this!
>The XOR "algorithm" for drawing graphical cursors is so trivial to
>be patentable, IMHO....  How about the XOR method of dragging rubber-band
>boxes, circles, lines, etc. ?

I found the flyer.  Here it is (chess-flyer.ps):
========================== 8< ============================================
%!
/inch { 72 mul } def

/Center { moveto dup stringwidth pop -2.0 div 0 rmoveto show } def

/Rook {
	gsave newpath
	10 10 moveto 70 10 lineto 65 10 5 0 90 arc 60 15 5 0 90 arc
	60 60 lineto 70 60 10 180 90 arcn 70 90 lineto
	58 90 lineto 58 80 lineto 46 80 lineto 46 90 lineto
	34 90 lineto 34 80 lineto 22 80 lineto 22 90 lineto
	10 90 lineto 10 70 lineto 10 60 10 90 0 arcn 20 20 lineto
	20 15 5 90 180 arc 15 10 5 90 180 arc closepath
	gsave 0 setgray fill grestore stroke
	1 setgray
	15 15 moveto 65 15 lineto 20 20 moveto 60 20 lineto
	20 60 moveto 60 60 lineto 10 70 moveto 70 70 lineto stroke
	grestore
} def

/PiercedRook {
	1 setlinewidth Rook
	% CHANGE LOCATION OF ARROW BY CHANGING THE TWO COORDINATES
	% IN THE NEXT LINE
	53 55 moveto
	5 0 rlineto 0 10 rlineto 20 -20 rlineto 5 5 rlineto
	-20 20 rlineto 10 0 rlineto 0 5 rlineto -20 0 rlineto
	closepath gsave 0 setgray fill grestore
	gsave clip {1 exch sub } settransfer Rook grestore stroke
} def

/Flyer {
	90 rotate 0 -8.5 inch translate

	0 -0.3 inch translate
	/Times-Roman findfont 28 scalefont setfont
	(Arrow drawn) 7 inch 6 inch 90 add Center
	(on rook using) 7 inch 6 inch 60 add Center
	(patented) 7 inch 6 inch 30 add Center
	(\252exclusive or\272) 7 inch 6 inch Center

	(League for Programming Freedom) 4.5 inch 1.5 inch moveto show

	/Times-Roman findfont 34 scalefont setfont
	(So enjoy your programming.) 5.5 inch 2.75 inch Center

	5.5 inch 3.5 inch moveto
	(This simple program is all it takes to get ) dup stringwidth pop
	/Times-Bold findfont 34 scalefont setfont
	(sued!) dup stringwidth pop
	3 -1 roll add -2.0 div 0 rmoveto exch
	/Times-Roman findfont 34 scalefont setfont show
	/Times-Bold findfont 34 scalefont setfont show

	/Courier findfont 20 scalefont setfont
	(for \(x = 0; x < height; x++\)) 1.5 inch 4.5 inch 44 add moveto show
	(for \(y = 0; y < width; y++\)) 1.75 inch 4.5 inch 22 add moveto show
	(screen[x + xpos][y + ypos] ^= arrow[x][y];) 2 inch 4.5 inch moveto show

	gsave 2.5 inch 5.7 inch translate
		2.2 inch 100 div dup scale PiercedRook
	grestore

} def

Flyer showpage
========================== 8< ============================================

cheers,
tw
--
Do not drink coffee in early A.M.  It will keep you awake until noon.