[UP]

Manual Reference Pages  - invokeobj (3)

NAME
invokeobj(3f) - [M_drawplus] invoke object with specified transformations (LICENSE:MIT)

CONTENTS

Synopsis
Description
Options
Example
Author
License

SYNOPSIS

 
subroutine invokeobj(xt,yt,zt,xs,ys,zs,xr,yr,zr,iobject)
real,intent(in)
  :: xt,yt,zt
real,intent(in)
  :: xs,ys,zs
real,intent(in)
  :: xr,yr,zr integer,intent(in) :: iobject

DESCRIPTION
save and restore the coordinate system while invoking an object with specified translation, rotation, and scaling.

OPTIONS
xt,yt,zt
  linear transforms
xs,ys,zs
  scaling
xr,yr,zr
  rotation in degrees
iobject
  object to invoke

EXAMPLE
Sample program 

   program demo_invokeobj
   use M_draw
   use M_drawplus, only : invokeobj
   implicit none
   real :: a, angle, step
   integer :: i, idum
   ! set window size
      call prefsize(700,700)
      call prefposition( 0, 0)
      call vinit (’X11’)
      a=1.0
   ! make an object to draw ( a disk with an arrow on it)
      call makeobj(12345)
      call polyfill(.TRUE.)
      call color( 5)
      call circle( 0.0, 0.0, a)
      call color( 3)
      call makepoly()
      call move2( 0.00*a, 0.80*a)
      call draw2( 0.50*a, 0.30*a)
      call draw2( 0.20*a, 0.30*a)
      call draw2( 0.20*a,-0.80*a)
      call draw2(-0.20*a,-0.80*a)
      call draw2(-0.20*a, 0.30*a)
      call draw2(-0.50*a, 0.30*a)
      call draw2( 0.00*a, 0.80*a)
      call closepoly()
      call polyfill(.FALSE.)
      call color(7)
      call linewidth(20)
      call circleprecision(200)
      call circle( 0.0, 0.0, a)
      call vflush()
      call closeobj()
   ! draw the disk invoking different rotation
      ANGLE=0.0
      STEP=0.4
      idum=backbuffer()
      idum=-1
      if(idum.ne.-1)then
         do i=1,int(360/STEP*10)
            idum=backbuffer()
            call clear()
            call invokeobj( 0.0, 0.0, 0.0, 1.0, 1.0, 1.0, ANGLE, ANGLE, ANGLE,12345)
            ANGLE=ANGLE+STEP
            call swapbuffers()
         enddo
      else
         ANGLE=45.0
         call invokeobj( 0.0, 0.0, 0.0, 1.0, 1.0, 1.0, ANGLE, ANGLE, ANGLE,12345)
         idum=getkey()
      endif
      call vexit()
   end program demo_invokeobj

AUTHOR
John S. Urban

LICENSE
MIT License

invokeobj (3) November 13, 2019
Generated by manServer 1.08 from 71063eed-a03e-4bce-8adf-b55a76e0f9bc using man macros.