C Library Functions - textang (3)
NAME
textang(3f) - [M_draw:TEXT] Set the SOFTWARE text angle. (LICENSE:PD)
CONTENTS
Synopsis
Description
Options
Examples
SYNOPSIS
subroutine textang(ang)
real,intent(in) :: ang
DESCRIPTION
Set the text angle. This angles strings and chars. This routine only affects software text. Angle is in degrees
OPTIONS
ANG The angle in degrees to draw text with when using drawstr(3f). Angles are measured counterclockwise with zero degrees at the horizontal line to the right of the original.
EXAMPLES
Sample program:
program demo_textang use :: M_draw implicit none integer :: i, ipaws!! set up drawing environment call prefsize(600,600) call vinit(’ ’) ! start graphics using device $M_DRAW_DEVICE call ortho2(-100.0,100.0,-100.0,100.0) call textsize(7.0,7.0) call linewidth(20) call color(D_BLACK) call clear()
do i=1,30 !! draw radial lines call color(D_RED) call move2(0.0,0.0) call draw2(100.0*cosd(i*12.0),100.0*sind(i*12.0)) !! draw rotated text call color(D_WHITE) call move2(30.0*cosd(i*12.0),30.0*sind(i*12.0)) call textang(i*12.0) call drawstr(’angled text’) enddo
ipaws=getkey()
call vexit()
end program demo_textang
| Nemo Release 3.1 | textang (3) | February 23, 2025 |
