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.