eps_plotの使用例 - Example Programs

例図のプログラム

eps plot Command Referenceで紹介されている使用例のFortranコードが、13 例図のプログラムとして Referenceの末尾に掲載されています。

例図のプログラムの修正点

改良が重ねられたためか、ごく一部ですが、eps_plot Graphic Subroutine Packageと例図プログラムの間で整合性が取れなくなり、 コンパイル時エラーや実行時エラーが発生する例があります。

下記のように修正することによりエラーが発生しなくなります。

program clip_example
4行目
!    real    :: x_array(4)=(/1.0,4.0,4.0,1.0/), y_array(4)=(/1.0,1.0,4.0,4.0/)
    type(coord_xy) :: xy(4)

    xy(1)=coord_xy(1.0,1.0)
    xy(2)=coord_xy(4.0,1.0)
    xy(3)=coord_xy(4.0,4.0)
    xy(4)=coord_xy(1.0,4.0)
→
    real    :: x_array(4)=(/1.0,4.0,4.0,1.0/), y_array(4)=(/1.0,1.0,4.0,4.0/)
!    type(coord_xy) :: xy(4)

!    xy(1)=coord_xy(1.0,1.0)
!    xy(2)=coord_xy(4.0,1.0)
!    xy(3)=coord_xy(4.0,4.0)
!    xy(4)=coord_xy(1.0,4.0)

14行目
!    call clip_begin(x_array, y_array)
    call clip_begin(xy)→
→
    call clip_begin(x_array, y_array)
!    call clip_begin(xy)
program dotset_example
12行目
    call dotset(3,pencolor=RGB_Blue,interval=0.07,size=0.02,angle=45.0)
→
    call dotset(3,pencolor=RGB_Blue,interval=0.07,size=0.02,ang=45.0)
program hatchset_example
13行目
    call hatchset(2,penmode=2,pencolor=RGB_red,penwidth=2,interval=0.2,angle=135.0,angle2=45.0)
→
    call hatchset(2,penmode=2,pencolor=RGB_red,penwidth=2,interval=0.2,ang1=135.0,ang2=45.0)
program pellipse_example
7行目
    call hatchset(51,penwidth=10,interval=0.5,angle=60.0)
→
    call hatchset(51,penwidth=10,interval=0.5,ang1=60.0)
program penwidth_example
eps_plot_v25.f90中で、subroutine penwidth(linewidth)全体がコメント化されているため、実行時エラーが発生します。 線幅の指定にはpenwidthではなくnewpenを使用するように仕様変更されたようです。このプログラムは無視してください。
program tygrid_example
15行目
    call plots(-13.0,13.0,file='tygrid.eps')
→
    call plots(-13.0,13.0,file='../tygrid.eps')
他のすべてのプログラムでは、EPSファイルは一つ上の階層のフォルダーに保存される設定になっています。

戻る