grads 画植被覆盖图

苏涛

早先用wrf生成的数据画植被覆盖图的时候，那种离散型的色标老是显示不出来，纠结了挺久，一直困扰我，一直没有找到比较好的命令和程序。 前几天就用了个笨办法编了段程序，色标直接逐个标记在图上，图的效果还可以。把程序和例图共享给大家，有遇到相同困惑的朋友可以参考一下。

'reinit'
'open e:\7.ctl'
'set grads off'
'set grid off'
*'set lat 18 20.5'
*'set lon 108.3 111.3'
'set lat 17.8 20.5'
'set lon 108.2 111.5'
'set mpdset cnworld'
'set parea 0.5 8 0.1 8'
'set rgb 51 18 75 24'
'set rgb 52  4 99 20'
'set rgb 53 3 181 26'
'set rgb 54 4 237 33'
'set rgb 55 128 225 128'
'set rgb 56 10 239 231'
'set rgb 57 241 240 166'
'set rgb 58 115 0  236'
'set rgb 59 198 8 237'
'set rgb 60 209 76 203'
'set rgb 61 10 172 239'
'set rgb 62 237 218 10'
'set rgb 63 237 13 79 '
'set rgb 64 232 237 13 '
'set rgb 65 121 121 121 '
'set rgb 66 13 98 237'
'set gxout fgrid'
'set fgvals 1.0 51 2.0 52 3.0 53 4.0 54 5.0 55 6.0 56 7.0 57 8.0 58 9.0 59 10.0 60 11 61 12 62 13 63 14 64 16 65 17 66'
'd IVGTYP'

'set line 51 1 6'
'draw recf 8.2 7 8.5 7.2 '
'set strsiz 0.1'
'draw string 8.6 7.1 Evergreen Needleleaf Forest'

'set line 52 1 6'
'draw recf 8.2 6.6 8.5 6.8 '
'set strsiz 0.1'
'draw string 8.6 6.7 Evergreen Broadleaf Forest'

'set line 53 1 6'
'draw recf 8.2 6.2 8.5 6.4 '
'set strsiz 0.1'
'draw string 8.6 6.3 Deciduous Needleleaf Forest'

'set line 54 1 6'
'draw recf 8.2 5.8 8.5 6 '
'set strsiz 0.1'
'draw string 8.6 5.9 Deciduous Needleleaf Forest'

'set line 55 1 6'
'draw recf 8.2 5.4 8.5 5.6 '
'set strsiz 0.1'
'draw string 8.6 5.5 Mixed Forest'

'set line 56 1 6'
'draw recf 8.2 5 8.5 5.2 '
'set strsiz 0.1'
'draw string 8.6 5.1 Closed Shrublands'

'set line 57 1 6'
'draw recf 8.2 4.6 8.5 4.8 '
'set strsiz 0.1'
'draw string 8.6 4.7 Open Shrublands'

'set line 58 1 6'
'draw recf 8.2 4.2 8.5 4.4 '
'set strsiz 0.1'
'draw string 8.6 4.3 Woody Savannas'

'set line 59 1 6'
'draw recf 8.2 3.8 8.5 4 '
'set strsiz 0.1'
'draw string 8.6 3.9 Savannas'

'set line 60 1 6'
'draw recf 8.2 3.4 8.5 3.6 '
'set strsiz 0.1'
'draw string 8.6 3.5 Grasslands'

'set line 61 1 6'
'draw recf 8.2 3.0 8.5 3.2 '
'set strsiz 0.1'
'draw string 8.6 3.1 Permanent Wetlands'

'set line 62 1 6'
'draw recf 8.2 2.6 8.5 2.8 '
'set strsiz 0.1'
'draw string 8.6 2.7 Croplands'

'set line 63 1 6'
'draw recf 8.2 2.2 8.5 2.4 '
'set strsiz 0.1'
'draw string 8.6 2.3 Urban and Built-Up'

'set line 64 1 6'
'draw recf 8.2 1.8 8.5 2 '
'set strsiz 0.1'
'draw string 8.6 1.98 Cropland'
'draw string 8.6 1.82 Natural Vegetation Mosaic '

'set line 65 1 6'
'draw recf 8.2 1.4 8.5 1.6 '
'set strsiz 0.1'
'draw string 8.6 1.58 Barren'
'draw string 8.6 1.42 Sparsely Vegetated'

'set line 66 1 6'
'draw recf 8.2 1.0 8.5 1.2 '
'set strsiz 0.1'
'draw string 8.6 1.1 Water'

'printim e:\2.png white'
;

传说中的谁

楼主你好棒感谢分享，相信很多人会从中受益的

zihan6688

谢谢楼主共享！

mofangbao

把笨办法一封装 别人看起来就是高大上的方法了 多谢楼主分享~

展望2014

方法无所谓好坏，只要能解决问题就是好方法

尽头的尽头

看着不错哦~~~感谢楼主分享~~

zhouling

涛哥，你太棒了{:5_213:}{:5_213:}

aridlhy

非常感谢！！！

marclevoy

mofangbao 发表于 2014-8-21 13:17
把笨办法一封装 别人看起来就是高大上的方法了 多谢楼主分享~

我觉得版主可以把这个色标封装一下，弄得再自动一点就太好了

兰溪之水

之前有想过弄一个类似的色标，大概思路也很简单，后来没时间就没写……