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: