见面礼，送论坛一只hello kitty吧！

一日的天光

hello kitty

这是一幅四年前的旧作了，左边是一幅十字绣的样图，右边是用grads画的图，当做见面礼，送给论坛啦！望大家喜欢哦！
关键语句：'set gxout fgrid'和'set fgvals'，可用来格点资料填色，活学活用，乐趣无穷哦！{:soso_e120:}

artmunich

GrADS画的图？好玩，楼主给出脚本吧

一日的天光

数据为50*53的格点，按照不同颜色给出相应位置的标记，如1 2 3，这步在excel中实现，用for转换成二进制数据，并配置相应ctl文件。
******************
dset f:\hello.bin
undef -999.0
options yrev
xdef  50 linear    0  1
ydef  53 linear  0  1
zdef 1 levels 500
tdef 1 linear 01jan1980 1dy
vars 1
h 0 99 h                              
ENDVARs
*********************
'reinit'
rc=mycolor()
'enable print f:\hello.gmf'
'open f:\hello.ctl'
'set x 1 50'
'set y 1 53'
'set grads off'
'set grid off'
'set xlab off'
'set ylab off'
'set mpdraw off'
'set frame on'
*这里开始根据数据填色
'set gxout fgrid'
'set fgvals 1.0 1 2.0 8 3.0 22 4.0 21 5.0 24'
'd h'
*这里画向日葵上的line
lon=39
lat=27
'q  w2xy  'lon'  'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=43
lat=23
'q  w2xy  'lon'  'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
lon=37
lat=25
'q  w2xy  'lon'  'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=41
lat=21
'q  w2xy  'lon'  'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
lon=37
lat=23
'q  w2xy  'lon'  'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=43
lat=27
'q  w2xy  'lon'  'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
lon=38
lat=21
'q  w2xy  'lon'  'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=44
lat=25
'q  w2xy  'lon'  'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
'print'
'disable print'
'reinit'

*这里就相当于是十字绣里的配线颜色啦
function mycolor()
'set rgb  21   0 128 128'
'set rgb  22   255 255 0'
'set rgb  23   141 0  255'
'set rgb  24   238 106 167'
return(0)

Donald

哈哈 ，厉害！

言深深

有点儿意思，哈哈

传说中的谁

太有才了，楼主你从了笨笨吧

风行浪尖

哦的个神啊

topmad

楼主 太有才了....

evereen

厉害，厉害，呵呵

尽头的尽头

楼主太有才了~~