16. 画面上の任意の位置への文字表示



ソースプログラム(Fortran 90,自動倍精度利用)
!******************************** ! 2D Graphic Sample No. 5 * ! Character Drawings * !******************************** program gsample16 implicit none integer i call fr_ginit call fr_opencanvas(1,'gsample16',101) call fr_fpline(200.0,100.0,400.0,100.0,7,0) call fr_fpline(200.0,80.0,200.0,120.0,7,0) call fr_fpchars(200.0,100.0,'100',4,0,0,0,0) call fr_fpline(240.0,80.0,240.0,120.0,7,0) call fr_fpchars(240.0,100.0,'100',6,1,1,0,0) call fr_fpline(280.0,80.0,280.0,120.0,7,0) call fr_fpchars(280.0,100.0,'100',3,1,-1,0,0) call fr_fpline(360.0,80.0,360.0,120.0,7,0) call fr_fpchars(360.0,100.0,'100',1,-1,0,0,0) call fr_fpline(200.0,200.0,400.0,200.0,7,0) call fr_fpline(200.0,180.0,200.0,220.0,7,0) call fr_fpchars(200.0,200.0,'100',1,-1,0,1,0) call fr_fpline(240.0,180.0,240.0,220.0,7,0) call fr_fpchars(240.0,200.0,'100',2,1,0,-1,0) call fr_fpline(320.0,180.0,320.0,220.0,7,0) call fr_fpchars(320.0,200.0,'100',3,-1,0,1,0) call fr_fpline(360.0,180.0,360.0,220.0,7,0) call fr_fpchars(360.0,200.0,'100',4,1,0,-1,0) call fr_fpline(200.0,240.0,400.0,240.0,7,0) call fr_fpline(200.0,220.0,200.0,260.0,7,0) call fr_fpchars(350.0,240.0,' |',1,1,-1,0,0) call fr_fpchars(1.0,-2.0,'abcdefghijklmnopqr',-5,1,1,0,1) do i = 1, 12 call fr_fpchars(0.0,1.0,'abcdefghijklmnopqr',-10*i-5,1,1,0,1) enddo call fr_fpchars(0.0,-2.0,'abcdefghijklmnopqr',1,-1,1,0,1) do i = 1, 6 call fr_fpchars(0.0,-1.0,'abcdefghijklmnopqr',i+1,-1,1,0,1) enddo call fr_fpchars(-1.0,0.0,'abcdefghijklmnopqr',1,-1,1,0,1) do i = 1, 3 call fr_fpchars(0.0,2.0,'abcdefghijklmnopqr',i+1,-1,1,0,1) enddo call fr_gend end program gsample16


Copyright (C) Toshihiro Taguchi, Setsunan University, 2000-2012 All rights reserved.