Actual source code: ex4f.F

  1: !
  2: !    "$Id: ex4f.F,v 1.8 2001/01/15 21:43:34 bsmith Exp $";
  3: !
  4: !
  5: !  This example demonstrates use of PetscDrawZoom()
  6: !
  7: !          This function is called repeatedly by PetscDrawZoom() to
  8: !      redraw the figure
  9: !
 10:       subroutine zoomfunction(draw,dummy,ierr)
 11:  #include include/finclude/petsc.h
 12:  #include include/finclude/petscdraw.h
 13:       PetscDraw    draw
 14:       integer dummy,ierr
 15: 
 16:       integer i

 18:       do 10, i=0,255
 19:         call PetscDrawLine(draw,0.d0,i/256.d0,1.d0,i/256.d0,i,ierr)
 20:  10   continue
 21:       return
 22:       end

 24:       program main
 25:  #include include/finclude/petsc.h
 26:  #include include/finclude/petscdraw.h
 27:       PetscDraw draw
 28:       integer  ierr,x,y,width,height
 29:       External zoomfunction
 30:       x      = 0
 31:       y      = 0
 32:       width  = 256
 33:       height = 256

 35:       call PetscInitialize(PETSC_NULL_CHARACTER,ierr)

 37: !     call PetscDrawOpenX(PETSC_COMM_SELF,0,'Title',x,y,width,height,draw,ierr)
 38:       call PetscDrawCreate(PETSC_COMM_SELF,PETSC_NULL_CHARACTER,        &
 39:      & 'Title',x,y,width,height,draw,ierr)
 40:       call PetscDrawSetType(draw,PETSC_DRAW_X,ierr)
 41:       call PetscDrawZoom(draw,zoomfunction,PETSC_NULL_INTEGER,ierr)
 42:       call PetscDrawDestroy(draw,ierr)
 43:       call PetscFinalize(ierr)
 44:       end

 46: