Revision: | 1.1 |
Committed: | Sat Feb 22 02:07:26 2003 UTC (21 years, 3 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 |
# | Content |
---|---|
1 | #ifndef lint |
2 | static const char RCSid[] = "$Id$"; |
3 | #endif |
4 | #ifndef lint |
5 | static char sccsid[] = "@(#)scale.c 4.1 (Berkeley) 6/27/83"; |
6 | #endif |
7 | |
8 | extern float scalex; |
9 | extern float scaley; |
10 | extern int scaleflag; |
11 | scale(i,x,y) |
12 | char i; |
13 | float x,y; |
14 | { |
15 | switch(i) { |
16 | default: |
17 | return; |
18 | case 'c': |
19 | x *= 2.54; |
20 | y *= 2.54; |
21 | case 'i': |
22 | x /= 200; |
23 | y /= 200; |
24 | case 'u': |
25 | scalex = 1/x; |
26 | scaley = 1/y; |
27 | } |
28 | scaleflag = 1; |
29 | } |