illusion(3f) - [M_xyplot:banner] draw a banner page with short labels at the compass points (LICENSE:MIT)
Synopsis
Description
Options
Examples
subroutine illusion(top,bottom,left,right)
character(len=*),intent(in) :: top character(len=*),intent(in) :: bottom character(len=*),intent(in) :: left character(len=*),intent(in) :: right
Draw a simple geometric illusion with short labels at the four compass points as a banner page
TOP short top banner label BOTTOM short bottom banner label LEFT short left banner label RIGHT short right banner label
Sample program
program demo_illusion use M_draw, only : vinit, color, clear, backbuffer, getkey, vexit, page use M_xyplot, only : illusion implicit none integer :: idum call vinit( ) call page(0.0,4800.0,0.0,4800.0) call color(6) call clear() call color(5) idum=backbuffer() call illusion(TOP,BOTTOM,LEFT,RIGHT) idum=getkey() call vexit() end program demo_illusion
Nemo Release 3.1 | illusion (3) | February 23, 2025 |