Visualization of NURBS surfaces using ForCAD, ForImage and ForColorMap libraries This example converts NURBS surfaces (vector) to an image (raster) using ForCAD, ForImage and ForColorMap libraries.
Set the shape parameters for a tetragon Set the shape parameters for a ring Set the shape parameters for a ring Set the shape parameters for a ring Set the shape parameters for a ring
Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
real(kind=rk), | allocatable | :: | Xg(:,:) | |||
real(kind=rk) | :: | aspect_ratio | ||||
type(color) | :: | background_color | ||||
integer | :: | blue | ||||
real(kind=rk) | :: | center(3) | ||||
type(colormap) | :: | cmap | ||||
integer | :: | green | ||||
integer | :: | height | ||||
integer | :: | i | ||||
integer, | allocatable | :: | idx(:,:) | |||
type(format_pnm) | :: | image | ||||
real(kind=rk) | :: | inner_radius | ||||
integer | :: | ng(2) | ||||
real(kind=rk) | :: | outer_radius | ||||
integer(kind=ik), | allocatable | :: | px(:,:) | |||
integer | :: | red | ||||
integer | :: | res1 | ||||
integer | :: | res2 | ||||
type(nurbs_surface) | :: | shape | ||||
type(timer) | :: | t | ||||
integer | :: | width | ||||
real(kind=rk), | allocatable | :: | z_values(:) |