Graph3D размеченный для справки

InstallerSamples/Graph3D/pr5_cam.pas

@@ -1,7 +1,7 @@
-uses Graph3D;
+uses Graph3D;
 
 begin
-  Window.Title := 'Âðàùåíèå êàìåðû';
+  Window.Title := 'Вращение камеры';
   var tp := Teapot(0,0,2,Colors.Green);
   tp.Scale(2);
   Camera.Position := P3D(8,16,20);
@@ -19,7 +19,7 @@ begin
     Sleep(10);
     Camera.Position := P3D(15*cos(t),15*sin(t),10);
     Camera.UpDirection := V3D(0,0,1);
-    //Camera.LookDirection := Camera.Position.Multiply(-1).ToVector3D;
+    Camera.LookDirection := Camera.Position.Multiply(-1).ToVector3D;
     t += 2*Pi/360/2;
   end;
   

InstallerSamples/Graph3D/Фигуры/Замок.pas

@@ -1,6 +1,6 @@
 uses Graph3D;
 
-function MultipleClones(c: Object3D; N: integer): GroupT;
+function MultipleClones(c: Object3D; N: integer): Group3D;
 begin
   var g := Group(c);
   loop N-1 do

PABCNetHelp/Common/features.html

@@ -105,12 +105,9 @@ C:\PABCWork.NET)
 </ol>
 <p><b>Типы</b></p>
 <ol start=12>
-	<li><b><a href="JavaScript:exam.TCard(212,0)">CharFunc.pas</a>.</b> Символы Char хранят Unicode и поэтому занимают 2 байта. Для функций Ord и Chr оставлено, тем 
+	<li><b><a href="JavaScript:exam.TCard(212,0)">CharFunc.pas</a>.</b> Символы Char хранят Unicode и поэтому занимают 2 байта. 
-	не менее, прежнее действие (предполагается, что символы находятся в
+	Функции Ord и Chr работают именно с Unicode. Для совместимости функции 
-	Windows-кодировке). Для
+	OrdAnsi и ChrAnsi работают в однобайтовой кодировке Windows.</li>
-	работы с кодами Unicode 
-	следует использовать OrdUnicode и
-	ChrUnicode.</li>
 	<li><b><a href="JavaScript:exam.TCard(213,0)">StringTypes.pas</a>.</b> Строки string 
 	занимают память переменной длины и проецируются на .NET-тип System.String. Однако, в отличие от
 	NET-строк они изменяемы и индексируются с 1. Для 

PABCNetHelp/Common/main.html

@@ -92,7 +92,11 @@ Visual Basic.NET,
 созданы на основе произвольных типов, введен операторы <code><b>foreach</b></code>, переменные 
 циклов <b><code>for</code></b> и <b><code>foreach</code></b>
 можно описывать непосредственно в заголовке цикла, имеются 
-обобщенные классы и подпрограммы (generics), последовательности, кортежи, срезы, лямбда-выражения и др.</p>
+îáîáùåííûå êëàññû è ïîäïðîãðàììû (generics), 
+<a href="../LangGuide/Types/sequences.html">ïîñëåäîâàòåëüíîñòè</a>,
+<a href="../LangGuide/Types/tuples.html">êîðòåæè</a>,
+<a href="../LangGuide/Operations_Expressions/Slice.html">ñðåçû</a>, 
+<a href="../LangGuide/FuncProgramming/lambdas.html">ëÿìáäà-âûðàæåíèÿ</a> è äð.</p>
 <p>Близким по идеологии к <strong>PascalABC.NET</strong>
 является язык RemObjects Oxygene (Object Pascal 21 века). Однако он сильно изменен в 
 сторону .NET: нет глобальных описаний, все описания 

PABCNetHelp/DocGenForStandardUnits/GenDocUnit.pas

@@ -356,7 +356,7 @@ begin
     
   s := keys.Around('HEAD')
     + (Title.Around('H1') + s).Around('body');
-  //Println(HelpFileName);
+  //Println('..\'+RootOutputDirectory+'Files\'+HelpFileName+'.html');
   WriteAllText('..\'+RootOutputDirectory+'Files\'+HelpFileName+'.html',s.Around('HTML'));
 
   var s1 := '<param name="Name" value="' + Title + '">';

PABCNetHelp/PABCUnits/WPFObjects/Files/WPFObjects functions 1.html

@@ -3,6 +3,7 @@
 <param name="Keyword" value="clRandom">
 <param name="Keyword" value="ColorBrush">
 <param name="Keyword" value="EmptyColor">
+<param name="Keyword" value="GrayColor">
 <param name="Keyword" value="Pnt">
 <param name="Keyword" value="RandomColor">
 <param name="Keyword" value="Rect">
@@ -17,6 +18,8 @@
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò îäíîòîííóþ öâåòíóþ êèñòü, çàäàííóþ öâåòîì</td></tr>
 <tr><td><code><b>function</b> EmptyColor: Color;</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ïîëíîñòüþ ïðîçðà÷íûé öâåò</td></tr>
+<tr><td><code><b>function</b> GrayColor(b: byte): Color;</code>
+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ñåðûé öâåò ñ èíòåíñèâíîñòüþ b</td></tr>
 <tr><td><code><b>function</b> Pnt(x,y: real): GPoint;</code>
 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò òî÷êó ñ êîîðäèíàòàìè (x,y)</td></tr>
 <tr><td><code><b>function</b> RandomColor: Color;</code>

bin/Lib/GraphWPF.pas

@@ -313,6 +313,8 @@ function ImageSize(fname: string): (integer,integer);
 function RGB(r,g,b: byte): Color;
 /// Возвращает цвет по красной, зеленой и синей составляющей и параметру прозрачности (в диапазоне 0..255)
 function ARGB(a,r,g,b: byte): Color;
+/// Возвращает серый цвет с интенсивностью b
+function GrayColor(b: byte): Color;
 /// Возвращает случайный цвет
 function RandomColor: Color;
 /// Возвращает полностью прозрачный цвет
@@ -478,6 +480,7 @@ implementation
 
 function RGB(r,g,b: byte) := Color.Fromrgb(r, g, b);
 function ARGB(a,r,g,b: byte) := Color.FromArgb(a, r, g, b);
+function GrayColor(b: byte): Color := RGB(b, b, b);
 function RandomColor := RGB(PABCSystem.Random(256), PABCSystem.Random(256), PABCSystem.Random(256));
 function EmptyColor: Color := ARGB(0,0,0,0);
 function clRandom := RandomColor();

bin/Lib/PABCSystem.pas

@@ -28,10 +28,10 @@ uses
 
 //{{{doc: Начало секции стандартных констант для документации }}} 
 
+const
 // -----------------------------------------------------
 //>>     Стандартные константы # Standard constants
 // -----------------------------------------------------
-const
   /// Максимальное значение типа shortint
   MaxShortInt = shortint.MaxValue; 
   /// Максимальное значение типа byte
@@ -79,10 +79,10 @@ const
   __IS_SYSTEM_MODULE = true;
 
 //{{{doc: Начало секции стандартных типов для документации }}} 
+type
 // -----------------------------------------------------
 //>>     Стандартные типы # Standard types
 // -----------------------------------------------------
-type
   /// Базовый тип объектов
   Object = System.Object;
   

bin/Lib/WPFObjects.pas

@@ -63,6 +63,8 @@ function RGB(r,g,b: byte): Color;
 function ARGB(a,r,g,b: byte): Color;
 /// Возвращает случайный цвет
 function RandomColor: Color;
+/// Возвращает серый цвет с интенсивностью b
+function GrayColor(b: byte): Color;
 /// Возвращает полностью прозрачный цвет
 function EmptyColor: Color;
 /// Возвращает случайный цвет
@@ -910,6 +912,7 @@ implementation
 function RGB(r,g,b: byte) := Color.Fromrgb(r, g, b);
 function ARGB(a,r,g,b: byte) := Color.FromArgb(a, r, g, b);
 function RandomColor := RGB(PABCSystem.Random(256), PABCSystem.Random(256), PABCSystem.Random(256));
+function GrayColor(b: byte): Color := RGB(b,b,b);
 function EmptyColor := ARGB(0,0,0,0);
 function clRandom := RandomColor();
 function Pnt(x,y: real) := new Point(x,y);