diff --git a/noise/noise1d.dpr b/noise/noise1d.dpr
index 2711dbcf7..d301b104b 100644
--- a/noise/noise1d.dpr
+++ b/noise/noise1d.dpr
@@ -53,12 +53,11 @@ begin
     for j := 1 to 19 do
     begin
       case SelectInterpolation.ItemIndex of
-       0: interpolation := Linear_Interpolate(NormalizeNoise(IntNoise(i)), NormalizeNoise(IntNoise(i + 1)), j / 20);
-       1: interpolation := Cosine_Interpolate(NormalizeNoise(IntNoise(i)), NormalizeNoise(IntNoise(i + 1)), j / 20);
+       0: interpolation := NormalizeNoise(Linear_Interpolate(IntNoise(i), IntNoise(i + 1), j / 20));
+       1: interpolation := NormalizeNoise(Cosine_Interpolate(IntNoise(i), IntNoise(i + 1), j / 20));
       else
-        interpolation := Cubic_Interpolate(NormalizeNoise(IntNoise(i - 1)),
-         NormalizeNoise(IntNoise(i)), NormalizeNoise(IntNoise(i + 1)),
-         NormalizeNoise(IntNoise(i + 2)), j / 20);
+        interpolation := NormalizeNoise(Cubic_Interpolate(IntNoise(i - 1),
+         IntNoise(i), IntNoise(i + 1), IntNoise(i + 2), j / 20));
       end;
 
       Canvas.Pixels[i * 20 + 25 + j, interpolation] := clBlack;
diff --git a/noise/noise1d.lpi b/noise/noise1d.lpi
index e7d117815..ebe219596 100644
--- a/noise/noise1d.lpi
+++ b/noise/noise1d.lpi
@@ -1,23 +1,20 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
+    <PathDelim Value="/"/>
     <Version Value="5"/>
     <General>
+      <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="noise1d"/>
-      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
-      <Language Value=""/>
-      <CharSet Value=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@@ -25,7 +22,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -33,70 +30,23 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="7">
+    <Units Count="2">
       <Unit0>
         <Filename Value="noise1d.dpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="noise1d"/>
-        <CursorPos X="40" Y="76"/>
-        <TopLine Value="58"/>
-        <EditorIndex Value="0"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
-        <Filename Value="..\lazarus\lcl\forms.pp"/>
-        <UnitName Value="Forms"/>
-        <CursorPos X="19" Y="599"/>
-        <TopLine Value="583"/>
-        <UsageCount Value="10"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="..\lazarus\lcl\controls.pp"/>
-        <UnitName Value="Controls"/>
-        <CursorPos X="22" Y="43"/>
-        <TopLine Value="28"/>
-        <UsageCount Value="10"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="..\lazarus\lcl\lclclasses.pp"/>
-        <UnitName Value="LCLClasses"/>
-        <CursorPos X="3" Y="32"/>
-        <TopLine Value="15"/>
-        <UsageCount Value="10"/>
-      </Unit3>
-      <Unit4>
         <Filename Value="noise.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="noise"/>
-        <CursorPos X="1" Y="18"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="1"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
-      </Unit4>
-      <Unit5>
-        <Filename Value="animated_clouds\noise1d.lpr"/>
-        <UnitName Value="noise1d"/>
-        <CursorPos X="1" Y="1"/>
-        <TopLine Value="1"/>
-        <UsageCount Value="10"/>
-      </Unit5>
-      <Unit6>
-        <Filename Value="..\lazarus\lcl\stdctrls.pp"/>
-        <UnitName Value="StdCtrls"/>
-        <CursorPos X="14" Y="318"/>
-        <TopLine Value="303"/>
-        <UsageCount Value="10"/>
-      </Unit6>
+      </Unit1>
     </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <SearchPaths>
-      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
+      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
     </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>
@@ -112,20 +62,4 @@
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
-  <Debugging>
-    <BreakPoints Count="1">
-      <Item1>
-        <Source Value="..\lazarus\lcl\include\bitmap.inc"/>
-        <Line Value="765"/>
-      </Item1>
-    </BreakPoints>
-    <Exceptions Count="2">
-      <Item1>
-        <Name Value="ECodetoolError"/>
-      </Item1>
-      <Item2>
-        <Name Value="EFOpenError"/>
-      </Item2>
-    </Exceptions>
-  </Debugging>
 </CONFIG>
diff --git a/noise/perlin1d.dpr b/noise/perlin1d.dpr
index 5f92da3e3..c3653e067 100644
--- a/noise/perlin1d.dpr
+++ b/noise/perlin1d.dpr
@@ -22,8 +22,8 @@ type
     SelectInterpolation: TComboBox;
     procedure DoPaint(Sender: TObject);
     procedure DoRefresh(Sender: TObject);
-    procedure DoPaintGraph(Graph: array of Double; StartX, StartY, WL, A, NPoints: Integer);
-    procedure DoCalculateNoise(Graph: array of Double; WL, NPoints: Integer);
+    procedure DoPaintGraph(var Graph: array of Double; StartX, StartY, WL, A, NPoints: Integer);
+    procedure DoCalculateNoise(var Graph: array of Double; WL, NPoints: Integer);
     function NormalizeNoise(x: Double; Amplitude: Integer): Integer;
   public
     { public declarations }
@@ -37,16 +37,30 @@ var
 { TMainWindow }
 
 procedure TMainWindow.DoPaint(Sender: TObject);
+var
+  i: Integer;
 begin
   SetLength(G1, 20 * 12);
   DoCalculateNoise(G1, 20, 12);
   DoPaintGraph(G1, 25,   25,  20, 250, 12);
+  Canvas.TextOut(60, 15, '1st Harmonic');
 
-{  SetLength(G3, 40 * 6);
-  DoPaintGraph(G2, 325,  25,  40, 125,  6);
+  SetLength(G2, 10 * 24);
+  DoCalculateNoise(G2, 10, 24);
+  DoPaintGraph(G2, 325,  25,  10, 125,  24);
+  Canvas.TextOut(460, 15, '2nd Harmonic');
 
-  SetLength(G3, 80 * 3);
-  DoPaintGraph(G3, 25,  325,  80,  62,  3);}
+  SetLength(G3, 5 * 48);
+  DoCalculateNoise(G3, 5, 48);
+  DoPaintGraph(G3, 25,  325,  5,  62,  48);
+  Canvas.TextOut(60, 315, '3rd Harmonic');
+
+  { The 4th graphic is a the sum of the first 3, using the amplitudes to
+   ponderate the values }
+  SetLength(G4, 20 * 12);
+  for i := 0 to 20 * 12 - 1 do G4[i] := ( G1[i] * 250 + G2[i] * 125 + G3[i] * 62 ) / (250 + 125 + 62);
+  DoPaintGraph(G4, 325,  325,  20, 250, 12);
+  Canvas.TextOut(460, 315, 'Perlin Noise');
 end;
 
 procedure TMainWindow.DoRefresh(Sender: TObject);
@@ -65,7 +79,7 @@ end;
 *                  NPoints - Number of Noise points to be created
 *
 *******************************************************************}
-procedure TMainWindow.DoCalculateNoise(Graph: array of Double; WL, NPoints: Integer);
+procedure TMainWindow.DoCalculateNoise(var Graph: array of Double; WL, NPoints: Integer);
 var
   i, j: Integer;
   interpolation: Double;
@@ -104,7 +118,7 @@ end;
 *                  NPoints - Number of points to be drawn
 *
 *******************************************************************}
-procedure TMainWindow.DoPaintGraph(Graph: array of Double; StartX, StartY, WL, A, NPoints: Integer);
+procedure TMainWindow.DoPaintGraph(var Graph: array of Double; StartX, StartY, WL, A, NPoints: Integer);
 var
   i, j: Integer;
 begin
@@ -116,8 +130,8 @@ begin
   { Draws NPoints points and the interpolation between them }
   for i := 0 to NPoints - 1 do
   begin
-    Canvas.Ellipse(i * WL + StartX + 1, NormalizeNoise(Graph[i], A) + StartY + 1,
-     i * WL + StartX - 1, NormalizeNoise(Graph[i], A) + StartY - 1);
+    Canvas.Ellipse(i * WL + StartX + 1, NormalizeNoise(Graph[i * WL], A) + StartY + 1,
+     i * WL + StartX - 1, NormalizeNoise(Graph[i * WL], A) + StartY - 1);
 
     if (i = NPoints - 1) then Continue;
 
@@ -149,7 +163,7 @@ begin
   SelectInterpolation.Items.Add('Linear Interpolation');
   SelectInterpolation.Items.Add('Cosine Interpolation');
   SelectInterpolation.Items.Add('Cubic Interpolation');
-  SelectInterpolation.Left := 100;
+  SelectInterpolation.Left := 200;
   SelectInterpolation.Width := 200;
   SelectInterpolation.ItemIndex := 0;
 
diff --git a/noise/perlin1d.lpi b/noise/perlin1d.lpi
index 3c7e60633..62d080eb1 100644
--- a/noise/perlin1d.lpi
+++ b/noise/perlin1d.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="\"/>
+    <PathDelim Value="/"/>
     <Version Value="5"/>
     <General>
       <Flags>
@@ -9,19 +9,16 @@
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
       </Flags>
+      <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=".exe"/>
-      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
-      <Language Value=""/>
-      <CharSet Value=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
@@ -31,158 +28,18 @@
         <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
-    <Units Count="5">
+    <Units Count="1">
       <Unit0>
         <Filename Value="perlin1d.dpr"/>
         <IsPartOfProject Value="True"/>
-        <CursorPos X="1" Y="41"/>
-        <TopLine Value="29"/>
-        <EditorIndex Value="0"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
       </Unit0>
-      <Unit1>
-        <Filename Value="noise.pas"/>
-        <UnitName Value="noise"/>
-        <CursorPos X="14" Y="36"/>
-        <TopLine Value="25"/>
-        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
-        <Loaded Value="True"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="..\..\lazarus\lcl\lclclasses.pp"/>
-        <UnitName Value="LCLClasses"/>
-        <CursorPos X="13" Y="26"/>
-        <TopLine Value="19"/>
-        <UsageCount Value="10"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="..\..\fpc\rtl\inc\mathh.inc"/>
-        <CursorPos X="12" Y="29"/>
-        <TopLine Value="28"/>
-        <UsageCount Value="10"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="..\..\fpc\rtl\inc\systemh.inc"/>
-        <CursorPos X="14" Y="96"/>
-        <TopLine Value="94"/>
-        <UsageCount Value="10"/>
-      </Unit4>
     </Units>
-    <JumpHistory Count="26" HistoryIndex="25">
-      <Position1>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="13" Column="48" TopLine="1"/>
-      </Position1>
-      <Position2>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="128" Column="1" TopLine="112"/>
-      </Position2>
-      <Position3>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="33" TopLine="54"/>
-      </Position3>
-      <Position4>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="78" Column="8" TopLine="65"/>
-      </Position4>
-      <Position5>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="71" Column="16" TopLine="59"/>
-      </Position5>
-      <Position6>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="33" TopLine="54"/>
-      </Position6>
-      <Position7>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="144" Column="23" TopLine="129"/>
-      </Position7>
-      <Position8>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="14" TopLine="54"/>
-      </Position8>
-      <Position9>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="25" Column="26" TopLine="69"/>
-      </Position9>
-      <Position10>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="21" TopLine="49"/>
-      </Position10>
-      <Position11>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="62" Column="64" TopLine="49"/>
-      </Position11>
-      <Position12>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="33" TopLine="54"/>
-      </Position12>
-      <Position13>
-        <Filename Value="noise.pas"/>
-        <Caret Line="14" Column="28" TopLine="1"/>
-      </Position13>
-      <Position14>
-        <Filename Value="noise.pas"/>
-        <Caret Line="38" Column="15" TopLine="13"/>
-      </Position14>
-      <Position15>
-        <Filename Value="noise.pas"/>
-        <Caret Line="26" Column="42" TopLine="13"/>
-      </Position15>
-      <Position16>
-        <Filename Value="noise.pas"/>
-        <Caret Line="38" Column="14" TopLine="25"/>
-      </Position16>
-      <Position17>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="33" TopLine="54"/>
-      </Position17>
-      <Position18>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="62" Column="1" TopLine="54"/>
-      </Position18>
-      <Position19>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="4" Column="16" TopLine="1"/>
-      </Position19>
-      <Position20>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="67" Column="7" TopLine="54"/>
-      </Position20>
-      <Position21>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="41" Column="17" TopLine="28"/>
-      </Position21>
-      <Position22>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="86" Column="49" TopLine="66"/>
-      </Position22>
-      <Position23>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="84" Column="11" TopLine="69"/>
-      </Position23>
-      <Position24>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="82" Column="83" TopLine="69"/>
-      </Position24>
-      <Position25>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="95" Column="28" TopLine="78"/>
-      </Position25>
-      <Position26>
-        <Filename Value="perlin1d.dpr"/>
-        <Caret Line="94" Column="68" TopLine="69"/>
-      </Position26>
-    </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <PathDelim Value="\"/>
     <SearchPaths>
-      <OtherUnitFiles Value="$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\;$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\$(LCLWidgetType)\"/>
-      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
+      <OtherUnitFiles Value="$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/;$(LazarusDir)/lcl/units/$(TargetCPU)-$(TargetOS)/$(LCLWidgetType)/"/>
+      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
     </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>
@@ -191,20 +48,4 @@
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
-  <Debugging>
-    <BreakPoints Count="1">
-      <Item1>
-        <Source Value="..\lazarus\lcl\include\bitmap.inc"/>
-        <Line Value="765"/>
-      </Item1>
-    </BreakPoints>
-    <Exceptions Count="2">
-      <Item1>
-        <Name Value="ECodetoolError"/>
-      </Item1>
-      <Item2>
-        <Name Value="EFOpenError"/>
-      </Item2>
-    </Exceptions>
-  </Debugging>
 </CONFIG>