Main

'' Open graphics window with specified coordinates,
'' and a title
''--------------------------------------------------
   
   Define WINDOW.ID as integer variable

''   call GCOLOR.R (0,0,0,1000)    -- blue background 
''   call GCOLOR.R (0,1000,0,0)    -- red background
''   call GCOLOR.R (0,0,1000,0)    -- green background

''   call GCOLOR.R (0,0,0,500)     -- dark blue background
''   call GCOLOR.R (0,0,500,0)     -- dark green background

     call GCOLOR.R (0,500,0,0)     '' dark red background

   call OPENWINDOW.R given 4096, 28672, 0 , 32767,
                          " My Title - For Simgraphics Window",
                          0
                          yielding WINDOW.ID

   call SETWINDOW.R given WINDOW.ID


'' Set world view and view port


   Let VXFORM.V =1
   call SETWORLD.R ( -1000.0, 1000.0, -1000.0, 1000.0)
   
  
'' Display icons from default graphics.sg2 library

   show IMAGE1 with "car.icn"   at (   0.0 , 0.0)
   show IMAGE2 with "plane.icn" at (-500.0 , 500.0)
   show IMAGE3 with "image.icn" at ( 500.0, -500.0)


'' Display icon from additional cart.sg2 library
 
  
   call read.glib.r ("cart.sg2")
   show IMAGE4 with ("cart.icn") at (-500.0, -500.0)



   call MESSAGEBOX.R ("Exit", "End of the program")

End
