67 lines
2.1 KiB
Matlab
67 lines
2.1 KiB
Matlab
%% X-Plane Connect MATLAB Example Script
|
|
% This script demonstrates how to read and write data to the XPC plugin.
|
|
% Before running this script, ensure that the XPC plugin is installed and
|
|
% X-Plane is running.
|
|
%% Import XPC
|
|
addpath('../')
|
|
import XPlaneConnect.*
|
|
%% Setup
|
|
% Create variables and open connection to X-Plane
|
|
|
|
disp('xplaneconnect Example Script-');
|
|
disp('Setting up Simulation');
|
|
Socket = openUDP('127.0.0.1', 49009);
|
|
|
|
%% Ensure connected
|
|
getDREFs('sim/test/test_float', Socket);
|
|
|
|
%% Set position of the player aircraft
|
|
disp('Setting position');
|
|
pauseSim(1, Socket);
|
|
% Lat Lon Alt Pitch Roll Heading Gear
|
|
POSI = [37.524, -122.06899, 2500, 0, 0, 0, 1];
|
|
sendPOSI(POSI, 0, Socket); % Set own aircraft position
|
|
|
|
% Lat Lon Alt Pitch Roll Heading Gear
|
|
POSI = [37.52465, -122.06899, 2500, 0, 20, 0, 1];
|
|
sendPOSI(POSI, 1, Socket); % Place another aircraft just north of us
|
|
%% Set rates
|
|
disp('Setting rates');
|
|
% Alpha Velocity PQR
|
|
data = struct('h',[18, 3, 16],...
|
|
'd',[0,-999,0,-999,-999,-999,-999,-999;... % Alpha data
|
|
130,130,130,130,-999,-999,-999,-999;... % Velocity data
|
|
0,0,0,-999,-999,-999,-999,-999]); % PQR data
|
|
sendDATA(data, Socket);
|
|
%% Set CTRL
|
|
% Throttle
|
|
CTRL = [0,0,0,0.8,0,0];
|
|
sendCTRL(CTRL, 0, Socket);
|
|
pause(5);
|
|
pauseSim(0, Socket);
|
|
pause(5) % Run sim for 5 seconds
|
|
%% Pause sim
|
|
disp('Pausing simulation');
|
|
pauseSim(1, Socket);
|
|
pause(5);
|
|
disp('Unpausing simulation');
|
|
pauseSim(0, Socket);
|
|
pause(10) % Run sim for 10 seconds
|
|
%% Use DREF to raise landing gear
|
|
disp('Raising gear');
|
|
gearDREF = 'sim/cockpit/switches/gear_handle_status';
|
|
sendDREF(gearDREF, 0, Socket);
|
|
pause(10) % Run sim for 10 seconds
|
|
%% Confirm gear and paus status by reading DREFs
|
|
disp('Checking gear');
|
|
pauseDREF = 'sim/operation/override/override_planepath';
|
|
result = getDREFs({gearDREF, pauseDREF}, Socket);
|
|
if result{1} == 0
|
|
disp('Gear stowed');
|
|
else
|
|
disp('Error stowing gear');
|
|
end
|
|
%% Exit
|
|
closeUDP(Socket);
|
|
disp('--End of example program--');
|
|
|