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
Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
real(kind=rk), | allocatable | :: | Xg(:,:) | |||
real(kind=rk) | :: | aspect_ratio | ||||
type(color) | :: | background_color | ||||
integer | :: | blue | ||||
type(colormap) | :: | cmap | ||||
integer | :: | green | ||||
integer | :: | height | ||||
integer | :: | i | ||||
integer, | allocatable | :: | idx(:,:) | |||
type(format_pnm) | :: | image | ||||
integer | :: | ng(2) | ||||
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(:) |