Next: , Previous: Miscellaneous Sphere Drawing Commands, Up: Usage of Sphere Drawing


26.1.8 Example 1 — Full Screen Image

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.