From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID,XPRIO
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f65bb,27aac3bd0352f031,start
X-Google-Attributes: gidf65bb,public
X-Google-Thread: 103376,27aac3bd0352f031,start
X-Google-Attributes: gid103376,public
From: "Matt LeBlanc" <matt.leblanc@gtri.gatech.edu>
Subject: Glut 3.7 and Ada Float_Text_IO package
Date: 1999/10/20
Message-ID: <7ul4pc$nif$1@news-int.gatech.edu>#1/1
X-Deja-AN: 538536251
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
X-Complaints-To: usenet@news.gatech.edu
X-Trace: news-int.gatech.edu 940447340 24143 130.207.199.74 (20 Oct 1999
 19:22:20 GMT)
Organization: Georgia Institute of Technology, Atlanta GA, USA
X-MSMail-Priority: Normal
NNTP-Posting-Date: 20 Oct 1999 19:22:20 GMT
Newsgroups: comp.graphics.api.opengl,comp.lang.ada
Date: 1999-10-20T19:22:20+00:00
List-Id: <comp.lang.ada>

Here is my setup:
Windows NT
Gnat 3.11p
Glut 3.7NT ada bindings (from http://stad.dsl.nl/~jvandyk/packages.html)

I have a larger program that is running into some problems printing out some
float strings (using Ada.Float_Text_IO).  I have been able to reproduce the
problem with the simple program below.

Anyone know why the second Ada.Float_Text_IO.Put in this program doesn't
print out the correct number?
-----------------------------------------------
with Glut;  --use Glut;
with Text_IO;
with Ada.Float_Text_IO;

procedure float_test is
   foobar : Integer;
   Temp_Str   : String(1..5) := (others => ' ');
begin

   Text_IO.Put_Line("Before glutCreateWindow: ");
   Ada.Float_Text_IO.Put
     (To   => Temp_Str(1..5),
      Item => 12.34,
      Aft  => 2, Exp => 0);
   Text_IO.Put_Line(Temp_Str);      --<< BEFORE glutCreateWindow:   OK,
prints out 12.34  >>

   foobar := Glut.glutCreateWindow ("Anything");

   Text_IO.Put_Line("After glutCreateWindow: ");

   Ada.Float_Text_IO.Put
     (To   => Temp_Str(1..5),
      Item => 12.34,
      Aft  => 2, Exp => 0);
   Text_IO.Put_Line(Temp_Str);        --!!!!!!!!!!!!!! AFTER glut
CreateWindow:  This doesn't print out 12.34  (prints out
20.47)!!!!!!!!!!!!!!!!
end float_test;
-----------------------------------------------

??????
matt.leblanc@gtri.gatech.edu