anchor.diff:                    angle = TwoPi*(k-1.0_ReKi)/NumSegments1
                     xyz(1) = r*COS(angle)
                     xyz(2) = r*SIN(angle)
  -                  WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + MATMUL(M%Orientation(:,:,i),xyz)
  +                  WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + MATMUL(xyz,M%Orientation(:,:,i))
                     !WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + xyz
                  END DO            
               END DO
  
positive.code:    INTEGER(IntKi)                        :: i,j           ! loop counters
     CHARACTER(1024)                       :: FileName
     REAL(SiKi)                            :: angle
     REAL(SiKi)                            :: delX
     REAL(SiKi)                            :: delY
  
     INTEGER(IntKi)                        :: firstPntEnd, firstPntStart, secondPntStart, secondPntEnd  ! node indices for forming rectangle 
     INTEGER(IntKi)                        :: NumSegments1
  
negative.code:       if ( present(verts) ) then
           do i=1,M%Nnodes
              do j=1,NumberOfPoints
                 WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + MATMUL(verts(:,j),M%Orientation(:,:,i))
              end do    
           end do
           
  