Grads绘图添加指南针标记

四叶草

1. 
   
2. <P>function compass(args)
   
3. m=1
   
4. *m指南针标记倍数参数
   
5. 
   
6. if(args != '')
   
7. x1 = subwrd(args,1)
   
8. y1 = subwrd(args,2)
   
9. else
   
10. say 'Click where you want the compass!'
    
11. 'q pos'
    
12. x1 = subwrd(result,3)
    
13. y1 = subwrd(result,4)
    
14. endif</P>
    
15. <P>
    
16. 'set line 1 1 10'
    
17. 'draw line 'x1' 'y1' 'x1' 'y1+0.7*m''
    
18. 'draw line 'x1' 'y1+0.7*m' 'x1-0.5*m' 'y1-0.3*m''
    
19. 'draw line 'x1-0.5*m' 'y1-0.3*m' 'x1' 'y1''
    
20. 'set line 1 1 10'
    
21. 'draw polyf 'x1' 'y1' 'x1' 'y1+0.7*m' 'x1-0.5*m' 'y1-0.3*m' 'x1' 'y1''
    
22. 
    
23. 'set line 1 1 10'
    
24. 'draw line 'x1' 'y1' 'x1' 'y1+0.7*m''
    
25. 'draw line 'x1' 'y1+0.7*m' 'x1+0.5*m' 'y1-0.3*m''
    
26. 'draw line 'x1+0.5*m' 'y1-0.3*m' 'x1' 'y1''
    
27. 
    
28. 'set string 1 bc 10'
    
29. 'set strsiz '0.2*m''
    
30. 'draw string 'x1' 'y1+0.8*m' N'
    
31. *'printim 1.png x2000 y1800 white'
    
32. return
    
33. ;</P>

复制代码

     一个简单脚本，上传与大家交流！  
     控制指南针大小，可以自行修改脚本里面的参数m。
    上面脚本的效果如下图，添加指南针标记有2种方式：1、鼠标点击绘图界面任意位置，添加指南针标记。2、直接带参数输入，把标记放在自己固定的位置。

随缘

{:eb502:}{:eb502:}

puck66

有点儿意思。。。

mofangbao

不错，有意思，GrADS很灵活的

传说中的谁

棒棒哒，好久没见到这样的原创帖子了

mofangbao

给楼主一个建议，这个界面获取位置的可以由调用方提供，也就是你的脚本只要接收x和y两个参数就行了，这样别人使用的时候既可以q pos传入位置，也可以直接指定位置。

兰溪之水

你怎么知道向上一定是北呢有点钻牛角尖，比较robust的做法是根据经线来定方向~@mofangbao @传说中的谁 对吧~

四叶草

mofangbao 发表于 2016-2-2 13:49
给楼主一个建议，这个界面获取位置的可以由调用方提供，也就是你的脚本只要接收x和y两个参数就行了，这样别 ...

也是，两种方法用起来比较随意！我更改下

四叶草

兰溪之水 发表于 2016-2-2 13:55
你怎么知道向上一定是北呢有点钻牛角尖，比较robust的做法是根据经线来定方向~@mofangba ...

兰溪大大说的方法很有理不过我好像不会弄

四叶草

传说中的谁 发表于 2016-2-2 13:29
棒棒哒，好久没见到这样的原创帖子了

{:5_213:}{:5_213:}