% Begin UserPrep file.
%
% File : Smthrads.prp
% FreeHand 7 UserPrep file.
%
% UserPrep file for generating smooth graduated and radial fills for
% FreeHand 7. This is intended for black and white printers 
% with a resolution less than 900 dots per inch.
% To enable this file, select it in the Print Setup dialog UserPrep popup,  
% or set the preference in the Expert Input/Output options for
% UserPrep to Smthrads.prp.
% To verify that this is enabled, print to file, and look for 
% Smthrads.prp in the print file. If you find this text, 
% it is enabled.
%
% This UserPrep will have no effect on color printers, or imagesetters.
% Version 1.1 Nov. 21, 1994
% Copyright (C) Macromedia Inc. 1995, 1996  All rights reserved.

/indices8 64 string def
currentfile indices8 readhexstring 
03 0D 34 3e 3c 2e 17 01 
0b 18 20 32 30 24 1d 09 
2b 21 19 12 10 1c 25 29 
3b 2d 14 04 06 0e 37 39 
3d 2f 16 00 02 0c 35 3f 
31 27 1f 08 0a 1a 23 33  
11 1e 26 28 2a 22 1b 13 
07 0f 36 38 3a 2c 15 05
pop pop

/indices10 100 string def
currentfile indices10 readhexstring 
03 0d 21 57 63 61 49 2b 1b 01
0b 11 3a 53 59 5b 47 40 1d 09
2f 39 38 32 26 24 36 3e 3f 2d
4e 44 30 1e 14 12 16 34 4c 50
5c 4a 28 18 06 04 0e 22 54 5e

62 48 2a 1a 00 02 0c 20 56 60
5a 46 43 1c 08 0a 10 3d 52 58
25 37 41 42 2c 2e 3c 3b 33 27
13 17 35 4d 51 4f 45 31 1f 15
05 0f 23 55 5f 5d 4b 29 19 07
pop pop

/indices12 144 string def
currentfile indices12 readhexstring 
03 0d 21 63 75 83 89 8b 55 35 1b 01
0b 11 27 61 71 81 87 85 57 37 1d 09 
3d 3f 40 49 5f 5d 5b 59 4c 44 39 3b

6c 6e 48 41 2e 2c 2a 28 45 4d 68 6a
7a 78 50 30 1e 14 12 16 24 66 72 7c
8e 8c 52 32 18 06 04 0e 22 64 76 7e

88 8a 54 34 1a 00 02 0c 20 62 74 82
86 84 56 36 1c 08 0a 10 26 60 70 80
5a 58 4f 46 38 3a 3c 3e 42 4b 5e 5c

2b 29 47 4e 69 6b 6d 6f 4a 43 2f 2d
13 17 25 67 73 7d 7b 79 51 31 1f 15
05 0f 23 65 77 7f 8f 8d 53 33 19 07
pop pop

fhnumcolors 1 eq
printerRes 900 le 
 and {
	printerRes 400 ge {
		printerRes 500 ge 
		{ /screenSize 12 def /indices indices12 def }
		{ /screenSize 10 def /indices indices10 def } ifelse 
	} {
		/screenSize 8 def /indices indices8 def
	} ifelse 
	
	/adjustscreen {
	 	printerRes screenSize 2 mul div 0 
		{ 		% x y
			dup 0 gt {
						1 index 0 gt {-0.3} { -0.1} ifelse 
					}
					{
						1 index 0 gt { 0 } { -0.2} ifelse
					} ifelse
			3 1 roll % factor x y		

			1 add screenSize mul cvi
			dup screenSize ge {
				screenSize sub 
			} if
			exch
			1 add screenSize mul cvi
			dup screenSize ge {
				screenSize sub 
			} if
			exch
			screenSize mul add
			
			indices exch get
			exch sub
			screenSize dup mul 1 add div
			neg
		}
		setscreen
	} bdf
	adjustscreen
} if

%
% End UserPrep file

