Manual Reference Pages - centertext (3m_pixel)
NAME
centertext(3f) - [M_pixel:TEXT] set text centering mode for drawstr(3f) and drawc(3f) (LICENSE:PD)
CONTENTS
Synopsis
Description
Options
Example
Author
License
SYNOPSIS
definition:
subroutine centertext(onoff) logical,intent(in) :: onoff
DESCRIPTION
Set text centering mode on or off. Only approximate in vertical direction.
OPTIONS
ONOFF set centering mode on or off
EXAMPLE
Sample program:
program demo_centertext use :: M_pixel use :: M_pixel, only : cosd, sind use :: M_pixel__writegif, only : writegif implicit none real :: x1, y1, xx, yy, ang, r integer :: i, j !! set up drawing environment call prefsize(600,600) call vinit() call ortho2(-300.0,300.0,-300.0,300.0) call textsize(8.0,8.0) call linewidth(30) x1=-150 y1=-150 do j=1,4 select case(j) case(1); call xcentertext(); x1=-150; y1=-150; r=100 case(2); call ycentertext(); x1=+150; y1=-150; r= 30 case(3); call centertext(.true.); x1=-150; y1=+150; r=100 case(4); call centertext(.false.); x1=+150; y1=+150; r= 30 end select !! draw radial lines call color(1) do i=1,80 call move2(x1,y1) call draw2(x1+150.0*cosd(i*12), y1+150.0*sind(i*12)) enddo!! draw rotated text call color(2) do i=1,30 ang=i*12.0 xx=x1+r*cosd(ang) yy=y1+r*sind(ang) call move2(xx,yy) call textang(ang) call color(7) call drawstr(’This is angled text’) call color(1) enddo enddo
call writegif(’centertext.3M_pixel.gif’,P_pixel,P_colormap) call execute_command_line(’display centertext.3M_pixel.gif’)
call vexit()
end program demo_centertext
AUTHOR
John S. Urban
LICENSE
Public Domain
| Nemo Release 3.1 | centertext (3m_pixel) | April 21, 2023 |
