Manual Reference Pages - drawchar (3m_pixel)
NAME
drawchar(3f) - [M_pixel:TEXT] Draw a character at the current position (LICENSE:PD)
CONTENTS
Synopsis
Description
Example
Author
License
SYNOPSIS
definition:
subroutine drawchar(ch) character(len=1),intent(in) :: ch
DESCRIPTION
Draw a character at the current position. Uses current line color and thickness and text justification mode.
EXAMPLE
Sample program:
program demo_drawchar use M_pixel use M_pixel__writegif_animated, only : write_animated_gif implicit none integer,parameter :: isize=600 integer :: movie(32:124,0:isize-1,0:isize-1) integer :: i !! set up environment call prefsize(isize,isize) call vinit() call ortho2(-100.0,100.0,-100.0,100.0) call textsize(150.0,150.0) call centertext(.true.)do i=33,124 !! draw reference circle and crosshairs call linewidth(100) call color(0) call clear() call color(4) call circle(0.0,0.0,75.0) call move2(-75.0,0.0) call draw2(75.0,0.0) call move2(0.0,-75.0) call draw2(0.0,75.0) call color(7) call linewidth(200) call textang(3.0*i) call move2(0.0,0.0) call drawchar(char(i)) movie(i,:,:)=P_pixel enddo call vexit() !! write to file and display with display(1) call write_animated_gif(’drawchar.3M_pixel.gif’,movie,P_colormap) call execute_command_line(’display drawchar.3M_pixel.gif’) end program demo_drawchar
AUTHOR
John S. Urban
LICENSE
Public Domain
| Nemo Release 3.1 | drawchar (3m_pixel) | April 21, 2023 |
