~uhh-ssd/+junk/humidity_readout

-- $Id: xthick02a.adb 11680 2011-03-27 17:57:51Z airwin $

-- Multiple window and color map 0 demo.

-- Copyright (C) 2007 Alan W. Irwin

-- This file is part of PLplot.

-- PLplot is free software; you can redistribute it and/or modify

-- it under the terms of the GNU Library General Public License as published

-- by the Free Software Foundation; either version 2 of the License, or

-- (at your option) any later version.

-- PLplot is distributed in the hope that it will be useful,

-- but WITHOUT ANY WARRANTY; without even the implied warranty of

-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

-- GNU Library General Public License for more details.

-- You should have received a copy of the GNU Library General Public License

-- along with PLplot; if not, write to the Free Software

-- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

with

    Ada.Numerics,

    Ada.Numerics.Long_Elementary_Functions,

    Ada.Strings,

    Ada.Strings.Fixed,

    PLplot_Auxiliary,

    PLplot;

use

    Ada.Numerics,

    Ada.Numerics.Long_Elementary_Functions,

    Ada.Strings,

    Ada.Strings.Fixed,

    PLplot_Auxiliary,

    PLplot;

------------------------------------------------------------------------------

-- Demonstrates multiple windows and color map 0 palette, both default and

-- user-modified.

------------------------------------------------------------------------------

procedure xthick02a is

    --------------------------------------------------------------------------

    -- draw_windows

    -- Draws a set of numbered boxes with colors according to cmap0 entry.

    --------------------------------------------------------------------------

    procedure draw_windows(nw, cmap0_offset : Integer) is

        vmin, vmax : Long_Float;

    begin

        Set_Character_Height(0.0, 3.5);

        Set_Font_Style(Script_Font);

        for i in 0..(nw-1) loop

            Set_Pen_Color(i+cmap0_offset);

            Advance_To_Subpage(Next_Subpage);

            vmin := 0.1;

            vmax := 0.9;

            for j in 0..2 loop

                Set_Pen_Width(j + 1);

                Set_Viewport_Normalized(vmin, vmax, vmin, vmax);

                Set_Viewport_World(0.0, 1.0, 0.0, 1.0);

                Box_Around_Viewport("bc", 0.0, 0, "bc", 0.0, 0);

                vmin := vmin + 0.1;

                vmax := vmax - 0.1;

            end loop;

            Set_Pen_Width(1);

            Write_Text_World(0.5, 0.5, 1.0, 0.0, 0.5, Trim(Integer'image(i), Left));

        end loop;

    end draw_windows;

    --------------------------------------------------------------------------

    -- demo1

    -- Demonstrates multiple windows and default color map 0 palette.

    --------------------------------------------------------------------------

    procedure demo1 is

    begin

        Begin_New_Page;

        -- Divide screen into 16 regions

        Set_Number_Of_Subpages(4, 4);

        draw_windows(16, 0);

        Eject_Current_Page;

    end demo1;

    --------------------------------------------------------------------------

    -- demo2

    -- Demonstrates multiple windows, user-modified color map 0 palette, and

    -- HLS -> RGB translation.

    --------------------------------------------------------------------------

    procedure demo2 is

        -- Set up cmap0

        -- Use 100 custom colors in addition to base 16

        r, g, b: Integer_Array_1D(0..115);

        -- Min & max lightness values

        lmin : Long_Float := 0.15;

        lmax : Long_Float := 0.85;

        h, l, s : Long_Float;

        r1, g1, b1 : Long_Float;

    begin

        Begin_New_Page;

        -- Divide screen into 100 regions.

        Set_Number_Of_Subpages(10, 10);

        for i in 0..99 loop

            -- Bounds on HLS, from Set_Color_HLSrgb() commentary

            -- hue        [0., 360.] degrees

            -- lightness  [0., 1.]   magnitude

            -- saturation [0., 1.]   magnitude

            -- Vary hue uniformly from left to right

            h := (360.0 / 10.0 ) * Long_Float( i mod 10 );

            -- Vary lightness uniformly from top to bottom, between min & max.

            l := lmin + (lmax - lmin) * Long_Float(i / 10) / 9.0;

            -- Use max saturation.

            s := 1.0;

            HLS_To_RGB(h, l, s, r1, g1, b1);

            -- Ada rounds to nearest integer.  We want to truncate

            -- approximately like C to match that example.  -0.5 produces

            -- at least one -1 result (rather than zero) so we subtract

            -- something with a slightly smaller absolute value.

            r(i+16) := Integer((r1 * 255.001) - 0.499999999999999);

            g(i+16) := Integer((g1 * 255.001) - 0.499999999999999);

            b(i+16) := Integer((b1 * 255.001) - 0.499999999999999);

        end loop;

        -- Load default cmap0 colors into our custom set.

        for i in 0..15 loop

            Get_Color_RGB(i, r(i), g(i), b(i));

        end loop;

        -- Now set cmap0 all at once (faster, since fewer driver calls).

        Set_Color_Map_0(r, g, b);

        draw_windows(100, 16);

        Eject_Current_Page;

    end demo2;

begin

    -- Parse and process command line arguments.

    Parse_Command_Line_Arguments(Parse_Full); 

    -- Initialize plplot.

    Initialize_PLplot;

    -- Run demos.

    demo1;

    demo2;

    -- Don't forget to call End_PLplot to finish off!

    End_PLplot;

end xthick02a;