#!/bin/sh
#
# drft06rr_logo - makes a Moai-inspired logo for the web page
# Needs file moai_outline.d that was generated by contouring
# the moai.ras Sun rasterfile and saving the contours.  If you
# don't like the colors and layout, change them!
#
# Paul Wessel, 20-NOV-2001

if [ -f drft06rr/drft06rr.logo.jpg ] && [ $# -eq 0 ]; then
	echo "drft06rr_logo: Logo already exist. Use -f to force recreation"
	exit
fi
# We need a blue sky turning black with altitude - a job for grdmath:

grdmath -R0/8/0/2 -I0.01 Y 2 MUL SQRT = sky.grd
grdmath -R0/8/0/2 -I0.01 Y = sky.grd
echo "0	30	160	250	2	0	0	0" > sky.cpt
grdimage sky.grd -Csky.cpt -Jx1 -K -Xa1 -Ya1 > drft06rr.logo.ps
echo "5.35 -0.65 0 1.5 1.5" | psxy -R -Jx -O -K -Se -G190/90/0 -Xa1 -Ya1 >> drft06rr.logo.ps
# These coordinates make a fake mountain skyline:
psxy -R -Jx1 -O -K -G25/22/2 -Xa1 -Ya1 << EOF >> drft06rr.logo.ps
0	0
0	0.2
0.4	0.3
0.6	0.26
1	0.4
1.3	0.3
1.4	0.4
1.6	0.34
2	0.5
2.2	0.47
2.4	0.6
2.6	0.56
2.8	0.43
3	0.41
3.4	0.59
3.6	0.5
3.9	0.62
4.2	0.61
4.5	0.78
4.8	0.6
5	0.7
5.2	0.71
5.4	0.69
5.55	0.8
5.7	0.78
5.9	0.9
6	1
6.05	1.08
6.13	1.04
6.2	1.1
6.4	0.9
6.6	0.7
6.83	0.46
7	0.5
7.2	0.37
7.4	0.4
7.8	0.3
8	0.3
8	0
EOF
# Place the 7 Moais evenly along the plain:
psxy -R0/1400/0/1800 -Jx0.0003 -O -K -M moai_outline.d -W0.25p -Xa1.13 -Ya1.1 >> drft06rr.logo.ps
psxy -R0/1400/0/1800 -Jx0.0004 -O -K -M moai_outline.d -W0.25p -Xa1.8 -Ya1.1 >> drft06rr.logo.ps
psxy -R0/1400/0/1800 -Jx0.0005 -O -K -M moai_outline.d -W0.25p -Xa2.67 -Ya1.1 >> drft06rr.logo.ps
psxy -R0/1400/0/1800 -Jx0.0006 -O -K -M moai_outline.d -W0.25p -Xa3.53 -Ya1.1 >> drft06rr.logo.ps
psxy -R0/1400/0/1800 -Jx0.0007 -O -K -M moai_outline.d -W0.25p -Xa4.6 -Ya1.1 >> drft06rr.logo.ps
psxy -R0/1400/0/1800 -Jx0.0008 -O -K -M moai_outline.d -W0.25p -Xa5.87 -Ya1.1 >> drft06rr.logo.ps
psxy -R0/1400/0/1800 -Jx0.001 -O -K -M moai_outline.d -W0.25p -Xa7.2 -Ya1.1 >> drft06rr.logo.ps
# Add some stars in the night sky:
psxy -R0/8/0/2 -Jx1 -O -K -Sa -G255/255/150 -Xa1 -Ya1 << EOF  >> drft06rr.logo.ps
7.7 1.75	0.07
6.0 1.6	0.05
5.3 1.75	0.04
4.4 1.9	0.05
3.45 1.7	0.02
4 1.6	0.04
0.3 1.1	0.04
3.7 1.2	0.04
7.5 1.5	0.02
EOF
# Finally some text:
pstext -R -Jx -O -K -G200/200/255 -Xa1 -Ya1 << EOF >> drft06rr.logo.ps
0.05 2 16 0 31 TL DRFT06RR: Drift Expedition Leg 6
0.05 1.75 12 0 31 TL The Easter/Salas y Gomez/Nazca Survey
0.05 1.55 11 0 31 TL R/V Roger Revelle, 5 Nov - 14 Dec, 2001
0.05 1.35 11 0 31 TL Callao, Peru - Easter Island, Chile
EOF
psxy -R -Jx -O /dev/null -Xa1 -Ya1 >> drft06rr.logo.ps

# Convert to JPG
convert -density 100x100 -rotate 90 -crop 0x0 drft06rr.logo.ps drft06rr.logo.jpg
mv -f drft06rr.logo.jpg drft06rr
xv drft06rr/drft06rr.logo.jpg &
rm -f sky.grd sky.cpt drft06rr.logo.ps