Added landrgbLaz by RWC

2016/landrgbLaz/LandrgbLaz01.lpi

@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <PathDelim Value="\"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="LandrgbLaz01"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <Icon Value="0"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="2">
+      <Item1>
+        <PackageName Value="BGRABitmapPack"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="LCL"/>
+      </Item2>
+    </RequiredPackages>
+    <Units Count="3">
+      <Unit0>
+        <Filename Value="LandrgbLaz01.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="unit1.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="Unit1"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="uthreadtimer.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit2>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="LandrgbLaz01"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Options>
+        <Win32>
+          <GraphicApplication Value="True"/>
+        </Win32>
+      </Options>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

2016/landrgbLaz/LandrgbLaz01.lpr

@@ -0,0 +1,21 @@
+program LandrgbLaz01;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms, Unit1
+  { you can add units after this };
+
+{$R *.res}
+
+begin
+  RequireDerivedFormResource := True;
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
+

2016/landrgbLaz/Mouse & Key Controls.txt

@@ -0,0 +1,73 @@
+----------------------------Mouse Controls:----------------------------------
+
+
+MouseLeftClick: Toggle pitch mode on/off.
+
+Mouse X	position: Turn left & right (yaw left/right).
+
+Mouse Y	position: Forwards and backwords thrust... 
+
+ ...LeftClick into pitch mode to Climb & Dive at current thrust...
+
+ ...Backwords thrust in pitch mode will take you backwords into...
+
+ ...the air. LeftClick again to fly at the new altitude. 
+
+MouseWheel: Look up and down (Pitch up/down)
+
+
+---------------------------Key Controls:-------------------------------------
+
+
+Up/Down Arrows: Forward/Backwards thrust.
+
+Left Arrow: Left thrust. Hold key & move mouse to right to fly...
+
+                           ...in circles around a ground feature
+
+Right Arrow: Right thrust. Hold key & move mouse to left to fly...
+
+                           ...in circles around a ground feature
+
+NumberPad Left/Right Arrows: Turn left & right (yaw left/right).
+
+NumberPad Up/Down Arrows: Altitude up/down.
+
+NumberPad Home/End: Look up and down (Pitch up/down)
+
+SpaceBar: Return to initial start position.
+
+Pkey: Pause/Resume - Cursor hidden while paused.
+
+Zkey: Halt scene motion until next mouse move. Height, position & direction 
+are maitained but can still be changed by keyboard. Press Pause(P) to freeze that
+view e.g.for screenshot. Press Pause(P) again to Resume. 
+
+
+--------------------------------Note1:--------------------------------------
+
+No ground detection (yet) so near the ground altitude mimimum prevents crash
+landing and pitch zeroes, to face horizon.
+
+--------------------------------Note2:--------------------------------------
+
+If you remove altitude mimimum and go below ground, you'll see just columns
+of colour filling the screen (surface colour)  so you'll probably get lost.
+
+--------------------------------Note3:--------------------------------------
+
+If you want to make your own three maps then:
+
+The Height Map (TempBGRAImg in LoadTextures) was made using a 'New' (white)
+1024x1024 Grayscale image in PhotoShop and applying 'Effect,Render,Cloud
+Effect' and saved as 8bit Windows Bitmap.
+
+The Ground Map (ColMapImage in LoadTextures) must also be 1024x1024 but saved
+as a 24bit Windows Bitmap. It should be tiled in both directions.
+
+The Sky Map (SkyMapImage in MakeSkyMap) must be a 2048x256 24bit Windows
+Bitmap. I made mine with 16 images stitched together to form a 360 degree
+panorama.
+
+Happy coding - RWC 
+--------------------------------The End:------------------------------------

2016/landrgbLaz/unit1.lfm

@@ -0,0 +1,24 @@
+object Form1: TForm1
+  Cursor = crCross
+  Left = 479
+  Height = 240
+  Top = 190
+  Width = 320
+  Caption = 'LandrgbLaz01'
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnKeyUp = FormKeyUp
+  OnMouseDown = FormMouseDown
+  OnMouseMove = FormMouseMove
+  OnMouseWheel = FormMouseWheel
+  OnPaint = FormPaint
+  LCLVersion = '1.4.0.4'
+  object Timer1: TTimer
+    Enabled = False
+    Interval = 30
+    OnTimer = Timer1Timer
+    left = 8
+    top = 48
+  end
+end