textang(3f) - [M_pixel:TEXT] set text angle
(LICENSE:PD)
definition:
subroutine textang(ang)
real,intent(in) :: ang
Set the text angle. This angles strings and chars. This routine only
affects software text.
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.
Sample program:
program demo_textang
use :: M_pixel
use :: M_pixel, only : cosd, sind
use :: M_writegif, only : writegif
implicit none
integer :: i
!! set up drawing environment
call prefsize(600,600)
call vinit()
call ortho2(-100.0,100.0,-100.0,100.0)
call textsize(7.0,7.0)
call linewidth(20)
do i=1,30
!! draw radial lines
call color(1)
call move2(0.0,0.0)
call draw2(100.0*cosd(i*12),100.0*sind(i*12))
!! draw rotated text
call color(7)
call move2(30.0*cosd(i*12),30.0*sind(i*12))
call textang(i*12.0)
call drawstr('angled text')
enddo
call writegif('textang.3m_pixel.gif',P_pixel,P_colormap)
call execute_command_line('display textang.3m_pixel.gif')
call vexit()
end program demo_textang
John S. Urban
Public Domain
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | ang |
subroutine textang(ang)
! ident_45="@(#) M_pixel textang(3f) set angle in degrees to draw text at using drawstr(3f)"
real,intent(in) :: ang
P_TEXT_ANGLE=ang
P_TEXT_COSINE=cosd(P_TEXT_ANGLE)
P_TEXT_SINE =sind(P_TEXT_ANGLE)
end subroutine textang