Modification virtualPadBox.lua - HELP

Description: All about writing scripts for Celestia in Lua and the .cel system

Croc M
Topic author
Avatar
Croc M
Topic author
Age: 69
Posts: 94
With us: 9 months 12 days
Location: Udomlya, Tver region, Russia

#1by Croc » 12.08.2016, 12:43

Hi! Experts Lua-scripts, help change virtualPadBox.lua (GUI tool from Lua Edu Tools v1.2 beta 9).

Spoiler

Code: Select all

-- virtualPadBox.lua

require "locale";

----------------------------------------------
-- Load images.
----------------------------------------------
padImage = celestia:loadtexture("../images/virtual_pad.png");
cursorImage = celestia:loadtexture("../images/pad_cursor.png");

----------------------------------------------
-- Define some useful functions
---------------------------------------------
setObsRotation = function(vectX, vectY)
    local obs = celestia:getobserver();
    local rotVect = celestia:newvector(vectY, vectX, 0);
    local rot = celestia:newrotation(rotVect, math.pi*rotCoeff);
    obs:rotate(rot);
    -- Set speed to the current value to make the
    -- observer move in the direction of the view.
    local speed = obs:getspeed();
    obs:setspeed(speed);
end

resetRotation = function()
    rotateUp = false;
    rotateDown = false;
    rotateLeft = false;
    rotateRight = false;
end

----------------------------------------------
-- Set initial values
----------------------------------------------
pad_first_tick = true;

-- Get centerPad initial value from 'config.lua'.
centerPad = center_virtual_pad;

-- Get the size of the virtual pad from 'config.lua'.
virtual_pad_size = math.min(120, math.max(50, virtual_pad_size));
padFrameW, padFrameH = virtual_pad_size, virtual_pad_size;

arrowSize = padFrameW/5;
padCursorFrameW, padCursorFrameH = 2*padFrameW/3, 2*padFrameH/3;
padCursorW, padCursorH = 15, 15;
cursorXMax, cursorYMax = (padCursorFrameW - padCursorW - 6)/2, (padCursorFrameH - padCursorH - 6)/2;

-- Get the rotation speed of the virtual pad from 'config.lua'.
virtual_pad_speed = math.min(10, math.max(1, virtual_pad_speed));
rotCoeff = virtual_pad_speed / 1e3;

----------------------------------------------
-- Set up and Draw the boxes
---------------------------------------------
virtualPadBox = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor({1, 1, 0, 1})
    --:fillcolor({1,1,0,.2})
    :movable(false)
    :attach(screenBox, width, height, 0, 0);

virtualPadBox.Customdraw =
    function(this)
        textlayout:setfont(normalfont);
        textlayout:setfontcolor(ctext);
        textlayout:setpos(this.lb+25, this.tb-14);
        textlayout:println(_("Virtual Pad"));
    end;         

virtualPadCheck = CXBox:new()
        :init(0, 0, 0, 0)
        :bordercolor(cbubordoff)
        --:fillcolor({1,1,0,.2})
        :textfont(smallfont)
        :textcolor(cbutextoff)
        :textpos("center")
        :movetext(0, 10)
        :text("")
        :movable(false)
        :active(true)
        :attach(virtualPadBox, boxWidth - 40, 4, 29, 5)

virtualPadCheck.Customdraw =
    function(this)
        -- Set the initial state of the check-box from 'config.lua'.
        if pad_first_tick and enable_virtual_pad then
            virtualPadCheck.Action();
        end
        pad_first_tick = false;
    end

virtualPadCheck.Action = (function()
        return
            function()
                padFrame.Visible = not(padFrame.Visible);
                if padFrame.Visible then
                    virtualPadCheck.Text = "x";
                else
                    virtualPadCheck.Text = "";
                end
            end
        end) ();

padFrame = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    :visible(false)
    :movable(false)
    :fillimage(padImage)
    :attach(screenBox, width/2, height/2, width/2, height/2)

padFrame.Customdraw =
    function(this)
        -- Disable virtual pad position switch when compass is enabled.
        -- The position of virtual pad is determined according to the position of compass.
        if compassBox and compassFrameBox.Visible then
            if padCursorFrame.Active then
                padCursorFrame.Active = false;
            end
            if centerPad == centerCompass then
                centerPad = not(centerCompass);
            end
        else
            padCursorFrame.Active = true;
        end

        if not(centerPad) and height < toolBoxHeight+2+padFrameH+5 then
            if compassBox and compassFrameBox.Visible then
                -- Disable virtual pad if the screen height does not allow displaying
                -- it under the toolbox (when compass is enabled).
                virtualPadCheck.Action();
            else
                -- Don't display virtual pad under the toolbox if the screen height
                -- does not allow (when compass is disabled).
                centerPad = true;
            end
        end

        if centerPad then
            -- Display virtual pad at the bottom center of the screen.
            padFrame:attach(screenBox, (width-padFrameW)/2, 10, (width-padFrameW)/2, height-padFrameH-10);
        else
            -- Display virtual pad under the toolbox.
            padFrame:attach(screenBox, (width-(boxWidth+padFrameW)/2-2), height-toolBoxHeight-padFrameH-5,
            (boxWidth-padFrameW)/2+2, toolBoxHeight+5);
        end
    end;

padCursorFrame = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    :visible(true)
    :movable(false)
    :active(true)
    :attach(padFrame,    (padFrameW-padCursorFrameW)/2, (padFrameH-padCursorFrameH)/2,
                                                                (padFrameW-padCursorFrameW)/2, (padFrameH-padCursorFrameH)/2)

padCursorFrame.Action = (function()
        return
        function()
            -- Switch the virtual pad position between the bottom
            -- center of the screen and the bottom of the toolBox.
            centerPad = not(centerPad)
        end
    end) ();

padCursor = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    --:fillcolor(cslidebofill)
    :visible(true)
    :movable(true)
    :fillimage(cursorImage)
    :attach(padCursorFrame,    (padCursorFrameW-padCursorW)/2, (padCursorFrameH-padCursorH)/2,
                                                                                    (padCursorFrameW-padCursorW)/2, (padCursorFrameH-padCursorH)/2)

padCursor.Customdraw =
    function(this)
        if this.Move then
            -- Stop rotations from arrow buttons.
            resetRotation();

            -- Define cursor coordinates and rotation vector.
            local cursorCenterX, cursorCenterY = padCursor:center();
            local frameCenterX, frameCenterY = padCursorFrame:center();
            local cursorX, cursorY = cursorCenterX - frameCenterX, cursorCenterY - frameCenterY;
            local rotVectX, rotVectY = cursorX / cursorXMax, cursorY / cursorYMax;

            -- Set rotation of observer.
            if reverse_pad_pitch then
                setObsRotation(rotVectX, -rotVectY);
            else
                setObsRotation(rotVectX, rotVectY);
            end
        else
            -- Keep cursor centered in the Frame.
            padCursor:attach(padCursorFrame,    (padCursorFrameW-padCursorW)/2, (padCursorFrameH-padCursorH)/2,
                                                                                                                    (padCursorFrameW-padCursorW)/2, (padCursorFrameH-padCursorH)/2)
        end

        -- Set rotation from arrow buttons.
        if rotateUp then
            padCursor:move(0, cursorYMax);
            if reverse_pad_pitch then
                setObsRotation(0, -1);
            else
                setObsRotation(0, 1);
            end
        elseif rotateDown then
            padCursor:move(0, -cursorYMax);
            if reverse_pad_pitch then
                setObsRotation(0, 1);
            else
                setObsRotation(0, -1);
            end
        elseif rotateLeft then
            padCursor:move(-cursorXMax, 0);
            setObsRotation(-1, 0);
        elseif rotateRight then
            padCursor:move(cursorXMax, 0);
            setObsRotation(1, 0);
        end

    end;

padUpButton = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    :visible(true)
    :movable(false)
    :active(true)
    :attach(padFrame, (padFrameW-arrowSize)/2, padFrameH-arrowSize, (padFrameW-arrowSize)/2, 0)

padUpButton.Action = (function()
        return
            function()
                if rotateUp then
                    resetRotation();
                else
                    resetRotation();
                    rotateUp = true;
                end
            end
        end) ();

padDownButton = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    :visible(true)
    :movable(false)
    :active(true)
    :attach(padFrame, (padFrameW-arrowSize)/2, 0, (padFrameH-arrowSize)/2, padFrameW-arrowSize)

padDownButton.Action = (function()
        return
            function()
                if rotateDown then
                    resetRotation();
                else
                    resetRotation();
                    rotateDown = true;
                end
            end
        end) ();

padLeftButton = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    :visible(true)
    :movable(false)
    :active(true)
    :attach(padFrame, 0, (padFrameH-arrowSize)/2, padFrameW-arrowSize, (padFrameH-arrowSize)/2)

padLeftButton.Action = (function()
        return
            function()
                if rotateLeft then
                    resetRotation();
                else
                    resetRotation();
                    rotateLeft = true;
                end
            end
        end) ();

padRightButton = CXBox:new()
    :init(0, 0, 0, 0)
    --:bordercolor(cbubordoff)
    :visible(true)
    :movable(false)
    :active(true)
    :attach(padFrame, padFrameW-arrowSize, (padFrameH-arrowSize)/2, 0, (padFrameH-arrowSize)/2)

padRightButton.Action = (function()
        return
            function()
                if rotateRight then
                    resetRotation();
                else
                    resetRotation();
                    rotateRight = true;
                end
            end
        end) ();

The following rotation virtualBox.lua used:

rotateUp - analogue # 2 key on numerical keypad
rotateDown - analogue # 8 key on numerical keypad
rotateLeft - analogue # 4 key on numerical keypad
rotateRight - analogue # 4 key on numerical keypad.

I want to use the following rotation:

Orbit around the object automatically downward - analogue Shift + Up arrow
Orbit around the object automatically upward - analogue Shift + Down arrow
Orbit around the object automatically to the right - analogue Shift + Left arrow
Orbit around the object automatically to the left - analogue Shift + Right arrow

jogad
Avatar
jogad
Posts: 459
With us: 8 years 8 months
Location: Paris France

#2by jogad » 22.08.2016, 10:01

Croc wrote:The following rotation virtualBox.lua used:

rotateUp - analogue # 2 key on numerical keypad
rotateDown - analogue # 8 key on numerical keypad
rotateLeft - analogue # 4 key on numerical keypad
rotateRight - analogue # 4 key on numerical keypad.

No! virutalBox.lua don't use any of theese keys.
They are pure Celestia keys that work even if lua-edu-tool is not active.

In fact, a lua script can handle only "normal" and "control" keys.

See here
https://en.wikibooks.org/wiki/Celestia/Celx_Scripting/CELX_Lua_Methods/Callback#Keyboard
.

Croc M
Topic author
Avatar
Croc M
Topic author
Age: 69
Posts: 94
With us: 9 months 12 days
Location: Udomlya, Tver region, Russia

#3by Croc » 13.03.2017, 21:24

The illustration below shows the 1st upgrading Virtual Pad and Compass.
This is a comparison of the graphical interface of Lua Edu Tools v1.2_beta9 and Lua Universal Tools v4.0.

Image

Change the layout, the functionality is stored.
The following rotation virtualBox.lua used:
  • rotateUp - analogue # 2 key on numerical keypad
  • rotateDown - analogue # 8 key on numerical keypad
  • rotateLeft - analogue # 4 key on numerical keypad
  • rotateRight - analogue # 6 key on numerical keypad.

Virtual platform rotation speed can be changed only in config.lua (can be set from 1 to 10).

The illustration below shows the 2st upgrading Virtual Pad and Compass.
The modernized instrument has a new name - Autopilot:

Image

New functionality - red buttons - keyboard commands:

Orbit around the object automatically downward - analogue Shift + Up arrow
Orbit around the object automatically upward - analogue Shift + Down arrow
Orbit around the object automatically to the right - analogue Shift + Left arrow
Orbit around the object automatically to the left - analogue Shift + Right arrow

New control devices: display "Time" and display "Speed"/

First you need to find the right planet (object). If the Planet is in the field of the call, then it is sufficient to poke it with the mouse.
By default, the time for one revolution around the planet (or other object) is 360 seconds (= 6 minutes).
To start the orbital flight, you must press the red button on the pad of the joystick.
Using the [>>>] button, you can change the time (360-300-270-240-210-180-150-120-90-60-30-20-10-5).
With the help of the buttons [<]/ [>] it is possible to -10/+10 seconds.

Modernization # 2 was carried out jointly with the Gironde. Many thanks to him for the assistance.


Return to “Scripting”

Who is online (over the past 5 minutes)

Users browsing this forum: 1 guest