1. pragma Warnings (Off); 
  2. pragma Style_Checks (Off); 
  3.  
  4. with GLOBE_3D.Math; 
  5.  
  6. package body GLOBE_3D.Wire_frame is 
  7.  
  8.   procedure Display_one (o : in out Wired_3D) is 
  9.   begin 
  10.     -- Call parent method: 
  11.     Display_one (Object_3D (o)); 
  12.     -- Display the wires: 
  13.     if o.wire /= null then 
  14.       GL.PushMatrix; 
  15.       GL.Translate (o.centre); 
  16.       Math.Multiply_GL_Matrix (o.rotation); 
  17.       for i in o.wire'Range loop 
  18.         GL.Color (o.wire (i).colour); 
  19.         GL.GL_Begin (GL.LINES); 
  20.         GL.Vertex (o.point (o.wire (i).P1)); 
  21.         GL.Vertex (o.point (o.wire (i).P2)); 
  22.         GL.GL_End; 
  23.       end loop; 
  24.       GL.PopMatrix; 
  25.     end if; 
  26.   end Display_one; 
  27.  
  28. end GLOBE_3D.Wire_frame;