# Example 10 -- colorscale for GEBCO altimetry charts
#
# Contributed 31 July 1996 by Dan Kelley <Dan.Kelley@Dal.CA>

`Set image colorscale gebco'
Set up colors for gebco charts of ocean/land altimetry.
{
    set image range -5000 500
    open "\.awk. 'BEGIN { \
        for (i = 0; i < 256; i++) { \
            if (i <= 278) {R=0.820; G=0.604; B=0.361;}\
            if (i <= 255) {R=0.863; G=0.659; B=0.396;}\
            if (i <= 241) {R=0.902; G=0.714; B=0.439;}\
            if (i <= 236) {R=0.945; G=0.765; B=0.478;}\
            if (i <= 232) {R=0.882; G=0.988; B=0.969;}\
            if (i <= 227) {R=0.749; G=0.949; B=0.925;}\
            if (i <= 223) {R=0.627; G=0.910; B=0.894;}\
            if (i <= 209) {R=0.514; G=0.871; B=0.871;}\
            if (i <= 185) {R=0.408; G=0.804; B=0.831;}\
            if (i <= 139) {R=0.310; G=0.733; B=0.788;}\
            if (i <=  93) {R=0.220; G=0.655; B=0.749;}\
            if (i <=  46) {R=0.133; G=0.573; B=0.710;}\
            if (i <=   0) {R=0.059; G=0.486; B=0.671;}\
            print(R, G, B); \
        } \
    }' |"
    read image colorscale rgb
    close
}

set x axis 0 1
set y axis 0 1
Set image colorscale gebco
draw image palette left -6000 right 1000 increment 1000