End of file
Contents
Index
SUBROUTINE CALCVP (B,M,N,VP,ICALC,POINTS)
C
C*****************************************************************
C *
C This subroutine determines points, ICALC in number, on the *
C parameter line defined by VP. *
C (If VP=0.: I=0 , if VP=1.: I=3*N ; i.e., VP scales the *
C (MxN) - patches in the second direction N) *
C *
C *
C INPUT PARAMETERS: *
C ================= *
C B(3,0:3M,0:3N) Double precision coordinates of the *
C BEZIER-points *
C M INTEGER number of patches in 1st direction*
C N INTEGER number of patches in 2nd direction*
C VP Double precision parameter line on which *
C intermediate points of the BEZIER surface *
C are to be determined *
C ICALC INTEGER number of points to be determined *
C *
C *
C OUTPUT PARAMETER: *
C ================= *
C POINTS(3,ICALC) Double precision coordinates of the com- *
C puted intermediate points *
C *
C----------------------------------------------------------------*
C *
C subroutines required: CALCP *
C *
C*****************************************************************
C *
C author : Michael Radermacher *
C date : 04.30.1985 *
C source : FORTRAN 77 *
C *
C*****************************************************************
C
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
DOUBLE PRECISION POINTS(3,ICALC), B(3,0:3*M,0:3*N)
FCALC=DBLE(ICALC-1)
DO 10 I=1,ICALC
C
C*****************************************************************
C WP covers the interval [0,1] and defines the step size *
C with which points on the surface shall be computed on *
C parameter curve defined by VP. *
C*****************************************************************
C
WP=DBLE(I-1)/FCALC
C
C*****************************************************************
C call of SUBROUTINE CALCP for determining a point *
C of the surface. *
C*****************************************************************
C
10 CALL CALCP (B,M,N,VP,WP,POINTS(1,I))
RETURN
END
Begin of file
Contents
Index