meta/lib4014/subr.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
#ifndef lint
static char sccsid[] = "@(#)subr.c      4.1 (Berkeley) 6/27/83";
#endif

#include <stdio.h>
float obotx = 0.;
float oboty = 0.;
float botx = 0.;
float boty = 0.;
float scalex = 1.;
float scaley = 1.;
int scaleflag;

int oloy = -1;
int ohiy = -1;
int ohix = -1;
int oextra = -1;
cont(x,y){
        int hix,hiy,lox,loy,extra;
        int n;
        x = (x-obotx)*scalex + botx;
        y = (y-oboty)*scaley + boty;
        hix=(x>>7) & 037;
        hiy=(y>>7) & 037;
        lox = (x>>2)&037;
        loy=(y>>2)&037;
        extra=x&03+(y<<2)&014;
        n = (abs(hix-ohix) + abs(hiy-ohiy) + 6) / 12;
        if(hiy != ohiy){
                putch(hiy|040);
                ohiy=hiy;
        }
        if(hix != ohix){
                if(extra != oextra){
                        putch(extra|0140);
                        oextra=extra;
                }
                putch(loy|0140);
                putch(hix|040);
                ohix=hix;
                oloy=loy;
        }
        else{
                if(extra != oextra){
                        putch(extra|0140);
                        putch(loy|0140);
                        oextra=extra;
                        oloy=loy;
                }
                else if(loy != oloy){
                        putch(loy|0140);
                        oloy=loy;
                }
        }
        putch(lox|0100);
        while(n--)
                putch(0);
}

putch(c){
        putc(c,stdout);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (22 years, 10 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			#ifndef lint
5			static char sccsid[] = "@(#)subr.c 4.1 (Berkeley) 6/27/83";
6			#endif
7
8			#include <stdio.h>
9			float obotx = 0.;
10			float oboty = 0.;
11			float botx = 0.;
12			float boty = 0.;
13			float scalex = 1.;
14			float scaley = 1.;
15			int scaleflag;
16
17			int oloy = -1;
18			int ohiy = -1;
19			int ohix = -1;
20			int oextra = -1;
21			cont(x,y){
22			int hix,hiy,lox,loy,extra;
23			int n;
24			x = (x-obotx)*scalex + botx;
25			y = (y-oboty)*scaley + boty;
26			hix=(x>>7) & 037;
27			hiy=(y>>7) & 037;
28			lox = (x>>2)&037;
29			loy=(y>>2)&037;
30			extra=x&03+(y<<2)&014;
31			n = (abs(hix-ohix) + abs(hiy-ohiy) + 6) / 12;
32			if(hiy != ohiy){
33			putch(hiy\|040);
34			ohiy=hiy;
35			}
36			if(hix != ohix){
37			if(extra != oextra){
38			putch(extra\|0140);
39			oextra=extra;
40			}
41			putch(loy\|0140);
42			putch(hix\|040);
43			ohix=hix;
44			oloy=loy;
45			}
46			else{
47			if(extra != oextra){
48			putch(extra\|0140);
49			putch(loy\|0140);
50			oextra=extra;
51			oloy=loy;
52			}
53			else if(loy != oloy){
54			putch(loy\|0140);
55			oloy=loy;
56			}
57			}
58			putch(lox\|0100);
59			while(n--)
60			putch(0);
61			}
62
63			putch(c){
64			putc(c,stdout);
65			}