Set dp branch as trunk

McZapkie/klasy_ham.pas

@@ -0,0 +1,61 @@
+unit klasy_ham;          {fizyka hamulcow dla symulatora}
+
+(*
+    MaSzyna EU07 - SPKS
+    Brakes. Basic classes.
+    Copyright (C) 2007-2013 Maciej Cierniak
+*)
+
+
+interface
+
+uses mctools,sysutils;
+
+//CONST;
+
+TYPE
+    TRurka= class  //bezposrednie polaczenie, co wleci to wyleci
+      private
+        Vol: real;
+        Cap: real;
+
+      public
+        function Update(dt: real);
+        procedure Flow(dV: real);
+      end;
+
+    PRurka= ^TRurka;
+
+    TTrojnik= class(TRurka)
+      private
+        Wyjscie1: PRurka;
+        Wyjscie2: PRurka;
+        Wyjscie3: PRurka;
+      public
+      end;
+
+    TZbiornik= class(TRurka)
+      private
+        Wyjscie_jeden: PRurka;
+      public
+      end;
+
+    TPowtarzacz= class(TRurka)
+      private
+      public
+      end;
+
+    TPrzekladnik= class(TPowtarzacz)
+      private
+      public
+      end;
+
+function PF(P1,P2,S:real):real;
+
+implementation
+
+
+
+end.
+
+