Next: 2nd Example of Sphere Drawing, Previous: Miscellaneous Sphere Drawing Commands, Up: Usage of Sphere Drawing
In this example, we produce a full screen image of the Fv of KOL.
Example of drawing KOL
*
OPEN NAME CGDATA:RTOPH8.MOD UNIT 01 READ UNFORM
OPEN NAME CGDATA:PARAM5.MOD UNIT 03 READ UNFORM
OPEN NAME CGTD:KOLPSF.MOD UNIT 12 READ UNFORM
OPEN NAME CGTD:KOLV.MOD UNIT 14 READ UNFORM
READ RTF UNIT 1
READ PARAMETER UNIT 3
READ PSF FILE UNIT 12
READ COOR FILE UNIT 14
! At this point, all requisite data structures have been read.
OPEN UNIT 20 NAME KOL.IMG WRITE UNFORM ! Get a file for the new image
SPHERE ! Enter SPHERE.
TL ; KOL; ! Simple title
AS ! Full screen scaling
TR ! Make spheres list
IM ! Make the image
WI 20 ! Write the image out.
EX ! All done.