blob: 8fda24b1a93852e84fb74dfb2dd8ca14a40a2b38 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
/* $Log: dim_to_dots.c,v $
* Revision 0.8 92/11/23 19:46:39 19:46:39 bt (Bo Thide')
* Fixed resolution bug. Portable downloading. Added/changed options. PJXL color support
*
* Revision 0.7 92/11/13 02:41:23 02:41:23 bt (Bo Thide')
* More bug fixes and improvements. Support for PaintJet XL
*
* Revision 0.6 92/11/10 21:47:40 21:47:40 bt (Bo Thide')
* Bug fixes. Added -R option. Better font handling.
*
* Revision 0.5 92/11/09 16:25:26 16:25:26 bt (Bo Thide')
* Rewrite of dospecial.c. Extended \special support
*
* Revision 0.4 92/11/08 02:45:42 02:45:42 bt (Bo Thide')
* Changed to portable bit manipulations. Replaced strrstr for non-POSIX compliant C. Fixed numerous bugs. Added support for more \special's.
*
* Revision 0.3 92/08/24 12:45:34 12:45:34 bt (Bo Thide')
* Fixed 8 bit (dc font) support.
*
* Revision 0.2 92/08/23 17:28:55 17:28:55 bt (Bo Thide')
* Source cleaned up. Changed certain function calls. Removed globals.
*
* Revision 0.1 92/08/22 23:58:47 23:58:47 bt (Bo Thide')
* First Release.
* */
#include <stdio.h>
#include "globals.h"
#include "macros.h"
static char rcsid[] = "$Header: dim_to_dots.c,v 0.8 92/11/23 19:46:39 bt Exp $";
/*
* This routine converts a string which contains a floating number terminated
* by a dimension into the proper number of dots for resolution dots/inch.
*/
long dim_to_dots(data, resolution)
char *data;
short resolution;
{
double val;
long ival;
char valstr[16];
char dim;
char dimstr[4];
strcpy(valstr, data);
sscanf(valstr,"%lf %c",&val,&dim);
switch(dim)
{
case 'i':
ival = round(resolution*val);
break;
case 'c':
ival = round((resolution*val)/2.54);
break;
case 'm':
ival = round((resolution*val)/25.4);
break;
case 'p':
ival = round((resolution*val)/72.27);
break;
case 'd':
ival = round(val);
break;
default:
sscanf(data,"%*f%3s",dimstr);
fprintf(stderr,"Unknown dimension '%3s' in options or \\special\n",dimstr);
ival = resolution;
break;
}
return(ival);
}
|
