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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
REM GMT EXAMPLE 31
REM $Id: example_31.bat 16750 2016-07-09 05:44:02Z pwessel $
REM
REM Purpose: Illustrate usage of non-default fonts in PostScript
REM GMT progs: gmtset, pscoast, psxy, pstext, pslegend
REM DOS calls: del, echo, gawk
REM
echo GMT EXAMPLE 31
set ps=example_31.ps
REM create file PSL_custom_fonts.txt in current working directory
REM and add PostScript font names of Linux Biolinum and Libertine
echo LinBiolinumO 0.700 0 > PSL_custom_fonts.txt
echo LinBiolinumOI 0.700 0 >> PSL_custom_fonts.txt
echo LinBiolinumOB 0.700 0 >> PSL_custom_fonts.txt
echo LinLibertineOB 0.700 0 >> PSL_custom_fonts.txt
REM common settings
gmt set FORMAT_GEO_MAP ddd:mm:ssF MAP_DEGREE_SYMBOL colon MAP_TITLE_OFFSET 20p MAP_GRID_CROSS_SIZE_PRIMARY 0.4c PS_LINE_JOIN round PS_CHAR_ENCODING ISO-8859-1 FONT LinBiolinumO FONT_TITLE 24p,LinLibertineOB MAP_ANNOT_OBLIQUE 42
REM map of countries
gmt pscoast -Dl -R-7/31/64/66/r -JL15/50/40/60/16c -P -Bx10g10 -By5g5 -B+t"Europe\072 Countries and Capital Cities" -A250 -Slightblue -Glightgreen -W0.25p -N1/1p,white -K > %ps%
REM mark capitals
gmt psxy europe-capitals.csv -R -J -i0,1 -Sc0.15c -G196/80/80 -O -K >> %ps%
REM small EU cities
gawk "BEGIN {FS=\",\"} $4 !=\"\" && $4 <= 1000000 {print $1, $2}" europe-capitals.csv | gmt psxy -R -J -Sc0.15c -W0.25p -O -K >> %ps%
REM big EU cities
gawk "BEGIN {FS=\",\"} $4 > 1000000 {print $1, $2}" europe-capitals.csv | gmt psxy -R -J -Sc0.15c -W1.25p -O -K >> %ps%
REM label big EU cities
gawk "BEGIN {FS=\",\"} $4 > 1000000 {print $1, $2, $3}" europe-capitals.csv | gmt pstext -R -J -F+f7p,LinBiolinumOI+jBL -Dj0.1c -Gwhite -C5%% -Qu -TO -O -K >> %ps%
REM construct legend
echo G -0.1c > legend.txt
echo H 10 LinBiolinumOB Population of the European Union capital cities >> legend.txt
echo G 0.15c >> legend.txt
echo N 2 >> legend.txt
echo 0 | gawk "{printf \"S 0.15c c 0.15c 196/80/80 0.25p 0.5c %%c 1 Million inhabitants\n\", 60}" >> legend.txt
echo 0 | gawk "{printf \"S 0.15c c 0.15c 196/80/80 1.25p 0.5c %%c 1 Million inhabitants\n\", 62}" >> legend.txt
echo N 1 >> legend.txt
echo G 0.15c >> legend.txt
echo L 8 LinBiolinumOB L Population in Millions >> legend.txt
echo N 6 >> legend.txt
REM append city names and population to legend
gawk "BEGIN {FS=\",\"; f=\"L 8 LinBiolinumO L\"} ($4 > 1000000) {printf \"%%s %%s:\n%%s %%.2f\n\", f, $3, f, $4/1e6}" europe-capitals.csv >> legend.txt
REM reduce annotation font size for legend
gmt set FONT_ANNOT_PRIMARY 8p
REM plot legend
gmt pslegend -R -J -DjTR+o0.1c+w8.0c+l1.2 -C0.3c/0.4c -F+p+gwhite -O legend.txt >> %ps%
REM make a PostScript and a PDF file with outlined fonts
REM unfortunately gmt psconvert won't be able to crop that file correctly anymore
REM use Heiko Oberdiek's pdfcrop (http://code.google.com/p/pdfcrop2/) instead
REM or crop with gmt psconvert -A -Te before
REM
REM ps_outlined=example_outlined.ps
REM eps_outlined=example_outlined.eps
REM a. remove GMT logo and crop EPS:
REM gmt psconvert -P -Au -Te -C-sFONTPATH="${PWD}/fonts" -Fex31CropNoLogo %ps%
REM b. make PS with outlined fonts:
REM gs -q -sPAPERSIZE=a3 -dNOCACHE -dSAFER -dNOPAUSE -dBATCH -dNOPLATFONTS \
REM -sDEVICE=pswrite -sFONTPATH="${PWD}/fonts" -sOutputFile=%ps_outlined% ex31CropNoLogo.eps
REM c. make croppepd EPS:
REM gs -q -dNOCACHE -dSAFER -dNOPAUSE -dBATCH -dEPSCrop -sDEVICE=epswrite \
REM -sOutputFile=$eps_outlined %ps_outlined%
REM d. make cropped PDF:
REM gmt psconvert -P -A -Tf %ps_outlined%
REM uncomment to do conversation to PDF and PNG
REM you will get a PDF with subsetted TrueType/PostScript fonts embedded
REM which you can still edit with your favorite vector graphics editor
REM set GS_FONTPATH=fonts
REM gmt psconvert -P -A -Tf %ps%
REM gmt psconvert -P -A -Tg -E110 %ps%
REM clean up
del .gmt*
del PSL_custom_fonts.txt
del legend.txt
rem del ex31CropNoLogo.eps
del gmt.conf
|
