Manual Reference Pages - linewidth (3)
NAME
linewidth(3f) - [M_draw:LINESTYLE] set line width in rasters (LICENSE:PD)
CONTENTS
Synopsis
Description
Example
SYNOPSIS
subroutine linewidth(iwidth) integer iwidth
DESCRIPTION
Set the current line width in units of 1/10,000 of the X size of the display surface
EXAMPLE
Sample program:
program demo_linewidth use M_draw, only : prefsize, vinit, clear, getkey, drawstr, page use M_draw, only : textsize, ycentertext, rdraw2, rmove2 use M_draw, only : move2, draw2, vexit, color, linewidth, font use M_draw, only : D_BLACK, D_WHITE use M_draw, only : D_RED, D_GREEN, D_BLUE use M_draw, only : D_YELLOW, D_MAGENTA, D_CYAN implicit none real :: b=0.5 integer :: ipaws call prefsize(1000,200) call vinit(’ ’) ! start graphics using device $M_DRAW_DEVICE call page(-25.0-b, 25.0+b, -5.0-b, 5.0+b) call color(D_YELLOW) call clear() call textsize(2.4,3.0) call font("futura.m") call ycentertext() ! draw circles with different precisions and label center of circles call color(D_WHITE) call linewidth(0) call move2(-20.0, -3.5) call rdraw2(10.0,0.0) call rmove2(3.0,0.0) call linewidth(180) call color(D_WHITE) call drawstr("0") call color(D_RED) call linewidth(100) call move2(-20.0,0.0) call rdraw2(10.0,0.0) call rmove2(3.0,0.0) call linewidth(180) call color(D_WHITE) call drawstr("100") call color(D_GREEN) call linewidth(200) call move2(-20.0,3.5) call rdraw2(10.0,0.0) call rmove2(3.0,0.0) call linewidth(180) call color(D_WHITE) call drawstr("200") call color(D_BLUE) call linewidth(300) call move2(3.0,-3.5) call rdraw2(10.0,0.0) call rmove2(3.0,0.0) call linewidth(180) call color(D_WHITE) call drawstr("300") call color(D_MAGENTA) call linewidth(400) call move2(3.0,0.0) call rdraw2(10.0,0.0) call rmove2(3.0,0.0) call linewidth(180) call color(D_WHITE) call drawstr("400") call color(D_CYAN) call linewidth(500) call move2(3.0,3.5) call rdraw2(10.0,0.0) call rmove2(3.0,0.0) call linewidth(180) call color(D_WHITE) call drawstr("500") call linewidth(200) call color(D_BLUE) call move2(-25.0,-5.0) call draw2(-25.0,5.0) call draw2(25.0,5.0) call draw2(25.0,-5.0) call draw2(-25.0,-5.0) ipaws=getkey() ! exit graphics mode call vexit() end program demo_linewidth
| linewidth (3) | March 11, 2021 |
