改良了的画风场参考箭头脚本

marclevoy

之前看到过好多个版本标注风场参考箭头的类似脚本文件，觉得他们各有优缺点，所以自己稍微整合了一个，主要参考的有lanxi版主的drawvc.gs：http://bbs.06climate.com/forum.php?mod=viewthread&tid=15303，还有我以前大学一个老师的setarrow.gs，再次对前辈们表示感谢。

新的脚本叫drawvect.gs，这个脚本较兰溪版主的主要改进是：
1，箭头的大小，粗细，颜色都为可调节，还有背景颜色也是可以任意调节。
2，标注的数值的粗细，颜色也可以调节。
3，多加了一个标注字符串的设置，比如我们平时想在后面加上单位什么的比较合适。
4，除了可以画在任何位置外，还给设置了平常比较常用的4个位置，在图的四个角上，本别叫做，bl，br，tl，tr。这样省去了设置位置时调节的时间。
使用说明：方括号括起来的参数是可以选填的。如果填了pos这个参数，那么x，y这两个参数就不用写了。其实pos就是相当于我默认设置了四个画图中参考箭头常用的位置，这样比较方便。
say 'Usage: rc = drawvect XVAR YVAR POS|X Y LEN SCALE [COLOR] [LTHICK] [CTHICK] [CSIZE] [RTGCOL] [STR]'; say '       POS   : bl,br,tl,tr,'bl'means drawing the arrow in the bottom-left of the plot, and so on.               
say '       XVAR  : Var in x-direction'               
say '       YVAR  : Var in y-direction'               
say '       X,Y   : arrow position';               
say '       LEN   : arrow length';               
say '       SCALE : actual size accounted by the arrow length';               
say '       COLOR : arrow&string color. Default, color = 1';               
say '       LTHICK: arrow thickness. Default, lthick = 6';               
say '       CTHICK: string thickness. Default, cthick = 6';               
say '       CSIZE : string size. Default, csize = 0.15';               
say '       RTGCOL: color of the filled rectangle. Default, color = 1';                say '       STR   : string want to draw, e.g.: units: m/s';

不多说，其他功能大家自己测试，下面给出的是我测试画的脚本和一副图。
'reinit'
'open ……/uwnd.ctl'
'open ……/vwnd.ctl'

'set grads off'
'set grid off'
'set mproj scaled'
'set lat 0 70'
'set lon 60 140'
'set mpdset cnworld'
'setpanel 1 2 1 2 0.3 0.1'
'drawvect skip(djf,2,2) djf.2 tl 0.3 10 3 12 1 0.1 1 m/s'
'setpanel 2 2 1 2 0.3 0.1'
'drawvect skip(djf,2,2) djf.2 br 0.6 10 2 1 12 0.2 15 m/s'
'setpanel 1 2 2 2 0.3 0.1'
'drawvect skip(djf,2,2) djf.2 2 2 0.5 10 3 6 6 0.15 2'
'setpanel 2 2 2 2 0.3 0.1'
'drawvect skip(djf,2,2) djf.2 bl 0.5 10 1 6 6 0.15 3'
'gxprint ……/test_drawvect.eps  white -e 0.1'

drawvect.gs (6.23 KB, 下载次数: 896)

2014-1-18 17:26 上传

点击文件名下载附件

aimimulana

UP主，我的命令是'drawvect skip(UGRDprs*1.2861,1,1) skip(VGRDprs*1,1,1) br 0.6 20 0 1 12 0.2 1 m/s'
结果画出来是绿色的，我想问问能不能改成黑色的？

kongfeng0824

感谢分享                 

marclevoy

当设置为bl等时，x y就不用设置了

river

不错，感谢分享

兰溪之水

嗯，有想法不错~不过当初我设计的初衷是用比较常用的形式，还有比较少的参数设置来达到目的，所以才设置那么少选项的。

marclevoy

兰溪之水 发表于 2014-1-18 21:54

                               
登录/注册后可看大图

嗯，有想法不错~不过当初我设计的初衷是用比较常用的形式，还有比较少的参数设置来达到目的，所以才设置那么 ...

恩是的，我其实也是因为在最近作图过程中发现有些需要设置，所里稍微改了一下脚本，还有好多需要像大神学习。

kc121

'drawvect skip(djf,2,2) djf.2 tl 0.3 10 3 12 1 0.1 1 m/s'
这函数中的各参数分别代表什么呢？能否解释下呢？

marclevoy

kc121 发表于 2014-1-20 13:58

                               
登录/注册后可看大图

'drawvect skip(djf,2,2) djf.2 tl 0.3 10 3 12 1 0.1 1 m/s'
这函数中的各参数分别代表什么呢？能否解释下 ...

好的，不好意思，我在脚本里面是写了usage了的，我重新去编辑一下帖子给大家写出来吧。

marclevoy

kc121 发表于 2014-1-20 13:58

                               
登录/注册后可看大图

'drawvect skip(djf,2,2) djf.2 tl 0.3 10 3 12 1 0.1 1 m/s'
这函数中的各参数分别代表什么呢？能否解释下 ...

使用说明：方括号括起来的参数是可以选填的。如果填了pos这个参数，那么x，y这两个参数就不用写了。其实pos就是相当于我默认设置了四个画图中参考箭头常用的位置，这样比较方便。
say 'Usage: rc = drawvect XVAR YVAR POS|X Y LEN SCALE [COLOR] [LTHICK] [CTHICK] [CSIZE] [RTGCOL] [STR]';
say '       POS   : bl,br,tl,tr,'bl'means drawing the arrow in the bottom-left of the plot, and so on.               
say '       XVAR  : Var in x-direction'               
say '       YVAR  : Var in y-direction'               
say '       X,Y   : arrow position';               
say '       LEN   : arrow length';               
say '       SCALE : actual size accounted by the arrow length';               
say '       COLOR : arrow&string color. Default, color = 1';               
say '       LTHICK: arrow thickness. Default, lthick = 6';               
say '       CTHICK: string thickness. Default, cthick = 6';               
say '       CSIZE : string size. Default, csize = 0.15';               
say '       RTGCOL: color of the filled rectangle. Default, color = 1';                say '       STR   : string want to draw, e.g.: units: m/s';

卢姁luxu

好东西啊！