2nd Example of Sphere Drawing

Next: 3rd Example Of Sphere Drawing, Previous: 1st Example Of Sphere Drawing, Up: Usage of Sphere Drawing

26.1.9 Example 2 — Making a Stereo Image

In this example, we produce a stereo image of the Fv of KOL.

     Drawing a stereo image of 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 structure have been read.
     
     OPEN UNIT 20 NAME KOLSTEREO.IMG WRITE UNFORM    ! Get a file for the new image
     SPHERE                                  ! Enter SPHERE.
     TL ;       KOL;                         ! Simple title
     AS 2.0                                  ! Half size scaling
     OC -3.25                                ! Move the image to the left side
     TR                                      ! Make spheres list for left side
     SO 6 6.5                                ! Make right side transformation
     TR                                      ! Add spheres for the right side
     IM                                      ! Make the image
     WI 20                                   ! Write the image out.
     EX                                      ! All done.