# 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