求助：grads画填充的矩形框

ccc

用grads“'draw rec 'x1' 'y1' 'x2' 'y2''”语句画出一个矩形框，
用“'draw recf 'x1' 'y1' 'x2' 'y2''”语句画出的是纯色填充效果，
现在想让该矩形框由斜线填充
有没有哪位大侠用过呀？谢谢啦

四叶草

不知道楼主是不是想要上图的效果？下面是自己简单的几句脚本语句(脚本有所改动，以前的只能填充正方形，改进后的可以填充矩形)，希望对你有帮助。

1. function rec(aa)
   
2. 
   
3. if(aa != ' ')
   
4. x1=subwrd(aa,1)
   
5. y1=subwrd(aa,2)
   
6. x2=subwrd(aa,3)
   
7. y2=subwrd(aa,4)
   
8. endif
   
9. 
   
10. 'set line 1 1 5'
    
11. 'draw rec 'x1' 'y1' 'x2' 'y2''
    
12. 
    
13. 
    
14. dx=x2-x1
    
15. dy=y2-y1
    
16. 
    
17. if(dx>=dy)
    
18. 
    
19. x3=x1
    
20. y3=y1
    
21. x11=x1
    
22. y11=y1
    
23. 
    
24. while(x3<=x2)
    
25. 
    
26. if(y3<=y2)
    
27. 'set line 2 1 5'
    
28. 'draw line 'x1' 'y3' 'x3' 'y1''
    
29. 
    
30. endif
    
31. 
    
32. if(y3>=y2)
    
33. 
    
34. 'set line 4 1 5'
    
35. 'draw line 'x11' 'y2' 'x3' 'y1''
    
36. 
    
37. x11=x11+0.2
    
38. 
    
39. endif
    
40. 
    
41. x3=x3+0.2
    
42. y3=y3+0.2
    
43. 
    
44. endwhile
    
45. 
    
46. x12=x11
    
47. y12=y11+0.2
    
48. 
    
49. while(x12<=x2|y12<=y2)
    
50. 
    
51. 
    
52. 'set line 7 1 5'
    
53. 'draw line 'x12' 'y2' 'x2' 'y12''
    
54. 
    
55. x12=x12+0.2
    
56. y12=y12+0.2
    
57. 
    
58. endwhile
    
59. 
    
60. endif
    
61. 
    
62. ***************************
    
63. if(dx<=dy)
    
64. 
    
65. x3=x1
    
66. y3=y1
    
67. x11=x1
    
68. y11=y1
    
69. 
    
70. while(y3<=y2)
    
71. 
    
72. if(x3<=x2)
    
73. 'set line 7 1 5'
    
74. 'draw line 'x1' 'y3' 'x3' 'y1''
    
75. 
    
76. endif
    
77. 
    
78. if(x3>=x2)
    
79. 
    
80. 'set line 4 1 5'
    
81. 'draw line 'x1' 'y3' 'x2' 'y11''
    
82. 
    
83. y11=y11+0.2
    
84. 
    
85. endif
    
86. 
    
87. x3=x3+0.2
    
88. y3=y3+0.2
    
89. 
    
90. endwhile
    
91. 
    
92. x12=x11+0.2
    
93. y12=y11
    
94. 
    
95. 
    
96. while(x12<=x2|y12<=y2)
    
97. 
    
98. 
    
99. 'set line 2 1 5'
    
100. 'draw line 'x12' 'y2' 'x2' 'y12''
     
101. 
     
102. x12=x12+0.2
     
103. y12=y12+0.2
     
104. 
     
105. endwhile
     
106. 
     
107. **************
     
108. 
     
109. endif
     
110. 
     
111. 
     
112. 'printim C:\Users\Administrator\Desktop\11.png white x500 y400'
     
113. return
     
114. ;

复制代码

river

四叶草 发表于 2016-8-30 20:21
不知道楼主是不是想要上图的效果？下面是自己简单的几句脚本语句，希望对你有帮助。

很棒，简单的思路就可以完成

四叶草

river 发表于 2016-8-30 21:43
很棒，简单的思路就可以完成

主要还是小软件用起来灵活

ccc

四叶草 发表于 2016-8-30 20:21
不知道楼主是不是想要上图的效果？下面是自己简单的几句脚本语句，希望对你有帮助。

非常感谢您，就是这种效果

四叶草

ccc 发表于 2016-8-31 09:19
非常感谢您，就是这种效果

我刚重新增加了个控制条件语句，以前的只能填充正方形

shen2101

四叶草 发表于 2016-8-31 12:43
我刚重新增加了个控制条件语句，以前的只能填充正方形

能填充不规则的闭合区域吗？

四叶草

shen2101 发表于 2016-11-25 12:06
能填充不规则的闭合区域吗？

应该可以，前提是要有不规则区域的边界数据信息