Manual Reference Pages - saveobj (3)

NAME

saveobj(3f) - [M_draw:OBJECT] Save object number n into file filename. Does NOT save objects called inside object n. (LICENSE:PD)

Synopsis
Description
Example

SYNOPSIS

subroutine saveobj(n, filename) integer,intent(in) :: n character(len=*),intent(in) :: filename

DESCRIPTION

Save the object number n into the file filename. This call does not save objects called inside object n.

EXAMPLE

Sample program:

   program demo_saveobj
   ! create object in file "circle.obj" for use with loadobj(3f)
   use M_draw
   implicit none
   character(len=:),allocatable :: env
   integer :: ipaws
   integer :: env_len
      call voutput(’+’)            ! ignore $M_DRAW_OUTPUT
      call vinit(’nil’)            ! start graphics
      call push()
      !
      call makeobj(3)              ! create an object
         call polyfill(.true.)
         call color(D_GREEN)
         call circle(0.0,0.0,10.0)
         call polyfill(.false.)
         call color(D_BLUE)
         call linewidth(100)
         call circle(0.0,0.0,4.0)
      call closeobj()
      !
      call saveobj(3,"circle.obj") ! save object to file
      call pop()
      call vexit()                 ! exit graphics
      !
      !-------  now this could be a separate program to use object
      !
      !------------------------------------------------------------
      ! CURRENTLY:
      ! with multiple vinit(3f) calls the environment variable is
      ! not used without explicitly using it
      call get_environment_variable(’M_DRAW_OUTPUT’,LENGTH=env_len)
      if(env_len.ne.0)then
         allocate(character(len=env_len) :: env)
         call get_environment_variable(’M_DRAW_OUTPUT’,env)
         call voutput(env)
      endif
      !------------------------------------------------------------
      call vinit(’ ’)  ! set up device
      call page(-100.0,100.0,-100.0,100.0)
      call loadobj(100,"circle.obj")
      ! translate x,y,z scale x,y,z rotate x,y,z object
      call invokeobj(   0.0,  0.0, 0.0,1.0,1.0,1.0,0.0,0.0,0.0, 100)
      call invokeobj( -20.0,-20.0, 0.0,1.0,2.0,1.0,0.0,0.0,0.0, 100)
      call invokeobj(  30.0, 40.0, 0.0,2.0,2.0,1.0,0.0,0.0,0.0, 100)
      ipaws=getkey()
      call vexit() ! set the screen back to its original state
      !
   end program demo_saveobj

saveobj (3)

March 11, 2021

Generated by manServer 1.08 from 1d1c5f72-e3f2-4962-b0a3-2366259f6716 using man macros.

[UP]

Manual Reference Pages - saveobj (3)

NAME

CONTENTS

SYNOPSIS

DESCRIPTION

EXAMPLE