Solid : It is composed of the triangular mesh

mainprogram�@defusem1.f
subroutine  defusem (nx, ny, u, p, x1, y1, z1, x2, y2, z2, r, n)

Description: This program draws a solid by the plane made from the data of the point by the triangular mesh gradually moving.

Input variable:
  nx : Data number of the x direction
  ny : Data number of the y direction
  u : Color (r, g, b) of the point is given in the order
  p : The coordinate of the point (x, y, z) is given in the order
  x1 : Parallel translation quantity of the x direction
  y1 : Parallel translation quantity of the y direction
  z1 : Parallel translation quantity of the z direction
  x2 : x coordinate of the rotating shaft
  y2 : y coordinate of the rotating shaft
  z2 : z coordinate of the rotating shaft
  r : The transfer rotation angle ( radian )
  n : The processing frequency

Drawing example: defusem1.wrl