setps.pro
Sakamotoによるお手製プロシージャ。
絵の出力先をポストスクリプトファイルに変更する。
出力ファイルはidl101.psから始まり、呼ぶたびに数字が増えていく。idldeを終了すると番号はリセットされる。
rangeを'square'にすると正方形領域、'landscape'(もしくは/landscapeか/l)だと紙面を横に使う。指定しないと縦に全領域を使う。色を使う場合は/color(また/c)とする。
呼び方：
pro setps,range=range,color=color,landscape=landscape
; Sakamoto 2004.11.15
defsysv,'!ps_number',exist=exist
if (exist eq 0) then defsysv,'!ps_number',100
!ps_number = !ps_number + 1
filename='idl'+string(!ps_number)+'.ps'
filename=STRCOMPRESS(filename,/remove_all)
print,'filename = ',filename
if (n_elements(landscape) eq 1) then range='landscape'
if (n_elements(range) eq 0) then range='diapason'
set_plot,'ps'
device,filename=filename,color=color
if (range eq 'square') then device,xsize=18.5,ysize=18.5,xoffset=1.,yoffset=3,landscape=0
if (range eq 'diapason') then device,xsize=18.5,ysize=27.7,xoffset=1.,yoffset=1,landscape=0
if (range eq 'landscape') then device,/landscape
end
絵の出力先をポストスクリプトファイルに変更する。
出力ファイルはidl101.psから始まり、呼ぶたびに数字が増えていく。idldeを終了すると番号はリセットされる。
rangeを'square'にすると正方形領域、'landscape'(もしくは/landscapeか/l)だと紙面を横に使う。指定しないと縦に全領域を使う。色を使う場合は/color(また/c)とする。
呼び方：
setps指定可能なパラメータ：
range,color,landscape
プロシージャ
pro setps,range=range,color=color,landscape=landscape
; Sakamoto 2004.11.15
defsysv,'!ps_number',exist=exist
if (exist eq 0) then defsysv,'!ps_number',100
!ps_number = !ps_number + 1
filename='idl'+string(!ps_number)+'.ps'
filename=STRCOMPRESS(filename,/remove_all)
print,'filename = ',filename
if (n_elements(landscape) eq 1) then range='landscape'
if (n_elements(range) eq 0) then range='diapason'
set_plot,'ps'
device,filename=filename,color=color
if (range eq 'square') then device,xsize=18.5,ysize=18.5,xoffset=1.,yoffset=3,landscape=0
if (range eq 'diapason') then device,xsize=18.5,ysize=27.7,xoffset=1.,yoffset=1,landscape=0
if (range eq 'landscape') then device,/landscape
end
2007年02月01日(木) 20:42:06 Modified by idlwiki