Example script

次のサンプルスクリプトは陰影とコンターで1200枚の図をアニメーションする。 タイトルの文字列に使われる年は「query time」の結果から読み込む。 カラーパレットは関数「palette()」で定義される。 「'set clip ..'」コマンドは「'set dbuff on'」や「'swap'」コマンドと共に 使用され、共にアニメーション時の図の再描画を制限する。(コンタ-と陰影を 同時に表示するため)

ハンブルグのDKRZでは、GrADS内のこの種のアニメーションを使ってビデオを記 録している。 滑らかなアニメーションを得るために1フレーム法を適用している。 

'reinit'
'open descriptor.ctl'
count = 0
rec = 1200
incr = 1; t = 1
palette()
'set vpage 0.0 11.0 0.0 8.5'
'set parea 1.0 10.0 0.0 8.5'
'set dbuff on'
'set mpdset lowres'
'set map 0 1 10'
'set lat -90 90'
'set lon -180 180'
'set mpvals -180 180 -90 90'
'set mproj robinson'
'set grid on 5 0'
while(count < rec)
          'set t 't
          'q time'
          res = subwrd(result,3)
          year = substr(res,9,4)
          'set grads off'
          'set string 1 c 8'
          'set strsiz 0.23 0.26'
          'draw string 5.5 7.6 Aerosol - Control 'year
          'set gxout shaded'
          'set cint 1.0'
          'set cmin -4.0'
          'set cmax 4.0'
          'set clevs -4.0 -3.0 -2.0 -1.0 0.0 1.0 2.0 3.0 4.0'
          'set ccols 17 18 29 21 22 23 24 25 26 27'
               'display data'
          'set gxout contour'
          'set cterp off'
          'set csmooth off'
          'set cint 1.0'
          'set clab off'
               'display data'
          'run cbar.gs'
          'set clip 1.0 10.0 1.4 7.9'
          'swap'
     count = count + incr
     t = t + incr
endwhile

function palette()
     'set rgb 16 0 0 20'
     'set rgb 17 0 29 85'
     'set rgb 18 0 44 128'
     'set rgb 19 0 83 230'
     'set rgb 21 0 151 250'
     'set rgb 22 104 173 255'
     'set rgb 23 177 213 255'
     'set rgb 24 255 250 110'
     'set rgb 25 255 209 116'
     'set rgb 26 255 160 80'
     'set rgb 27 255 100 65'
return