Files
Arquivotheca.Solaris-2.5/ucbcmd/plot/libplot/t4013/space.c
seta75D 7c4988eac0 Init
2021-10-11 19:38:01 -03:00

38 lines
904 B
C
Executable File

/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
#ident "@(#)space.c 1.1 90/08/19 SMI" /* SVr4.0 1.1 */
/*
* Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
* All Rights Reserved.
*/
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
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);
}