C Library Functions - newpen (3)
NAME
newpen(3f) - [M_calcomp:basic] select new pen color and move to origin (LICENSE:PD)
CONTENTS
Synopsis
Description
Comments
Examples
License
SYNOPSIS
subroutine newpen(icolor)
integer,intent(in) :: icolor
DESCRIPTION
Select a new pen color and move to origin. The number of colors available is output-device-dependent, but on almost all color devices the following values will produce the associated colors:
0 or BLACK 1 or RED 2 or GREEN 3 or YELLOW 4 or PURPLE 5 or MAGENTA 6 or CYAN
7 or WHITE (the default)
COMMENTS
This routine only produces color when CFT levels of 11531 or above are used. Before this, this routine forced the pen back to the frame origin and had no other affect.
EXAMPLES
Sample program:
program demo_newpen use M_calcomp implicit none character(len= 4) :: ICHR3=’ANG=’ character(len= 4) :: ICHR4=’, H=’ character(len= 19) :: ICHR5=’ANGULAR LETTER TEST’ real :: angle, height, xx, yy, rad integer :: i, inteq call plots(0.0,10.0,0.0,10.0) ! PLOT ANGULAR LETTER TEST call plot(4.5,5.5,-3) angle=0.0 height=0.105 do i=1,8 call newpen(i) rad=0.0174533*angle xx=0.5*cos (rad) yy=0.5*sin (rad) call symbol( xx , yy ,height,ichr3,inteq,angle, 4) call number(999.0,999.0,height,angle ,angle,-1) call symbol(999.0,999.0,height,ichr4,inteq,angle, 4) call number(999.0,999.0,height,height,angle, 3) height=height+0.035 angle=angle+45.0 enddo call newpen(1) call symbol(-1.4,4.0,0.14,ichr5,inteq,0.0,19) call plot( 4.5, 5.0,3) call plot(-4.5, 5.0,2) call plot(-4.5,-5.5,2) call plot( 4.5,-5.5,2) call plot( 4.5, 5.0,2) !call plot( 6.5,-5.5,-3) call plot(0.0,0.0,999) end program demo_newpen
LICENSE
Public Domain
| Nemo Release 3.1 | newpen (3) | February 23, 2025 |
