type Horizontal_Alignment is (Left, Center, Right) a plot is either created or -42,8 +44,8 Alignment types. "plot" is AquaTerm parlance for window, canvas This package approximates Ada.Text_IO in structure RCS file: /cvsroot/aquaterm/adapters/ada/aquaterm.ads,v + + Vertical_Alignment_Code (Align.Vertical)) + align => Horizontal_Alignment_Code (Align.Horizontal) + C_aqtSetFontname (New_String (Font & Character'Val(0))) ![]() + Font : String := To_String (Default_Font_Name) + Draw_Line (Default_Plot, Vertices, Color, Style, Show) Put_Line (Default_Plot, Vertices, Color, Style, Show) Style : Line_Style := Default_Line_Style If Show then Show_Plot (Plot) end -206,14 +218,42 (Default_Plot) ![]() + Vertical_Alignment_Code : array (Vertical_Alignment) of C_INT := + Horizontal_Alignment_Code : array (Horizontal_Alignment) of C_INT := RCS file: /cvsroot/aquaterm/adapters/ada/aquaterm.adb,v ![]() Built with: gnatmake hello -largs -framework AquaTerm Vertical => Default_Vertical_Alignment)) In directory :/tmp/cvs-serv29574Īdded text handling to the thick binding advanced Demo created Hello renamed Put_Line to Draw_Line (to avoid confusion with the many Ada standard Put_Line functions)Ĭreate_Plot (Plot, Size => (600.0, 400.0))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |