28 lines
592 B
C
28 lines
592 B
C
/*
|
|
* Copyright (c) 1980 Regents of the University of California.
|
|
* All rights reserved. The Berkeley software License Agreement
|
|
* specifies the terms and conditions for redistribution.
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)space.c 1.1 94/10/31 SMI"; /* from UCB 5.1 6/7/85 */
|
|
#endif not lint
|
|
|
|
extern float botx;
|
|
extern float boty;
|
|
extern float obotx;
|
|
extern float oboty;
|
|
extern float scalex;
|
|
extern float scaley;
|
|
extern int scaleflag;
|
|
space(x0,y0,x1,y1){
|
|
botx = 0.;
|
|
boty = 0.;
|
|
obotx = x0;
|
|
oboty = y0;
|
|
if(scaleflag)
|
|
return;
|
|
scalex = 780./(x1-x0);
|
|
scaley = 780./(y1-y0);
|
|
}
|