
DIRECTORY CedarProcess, ColorFns, G3dBasic, G3dLight, G3dMatrix, G3dRender, G3dShape, G3dVector, G3dView, Imager, ImagerColor, ImagerSample, NamedColors, Rope;

G3dRenderImpl: CEDAR MONITOR
IMPORTS ColorFns, G3dMatrix, G3dView, NamedColors, Rope
EXPORTS G3dRender

~ BEGIN
Error:				PUBLIC SIGNAL [code: ATOM, reason: ROPE] = CODE;
Process:				TYPE ~ CedarProcess.Process;
Pair:					TYPE ~ G3dBasic.Pair;
Triple:				TYPE ~ G3dBasic.Triple;
Light:					TYPE ~ G3dLight.Light;
LightSequence:		TYPE ~ G3dLight.LightSequence;
Matrix:				TYPE ~ G3dMatrix.Matrix;  
Context3d:			TYPE ~ G3dRender.Context3d;
Context3dRep:		TYPE ~ G3dRender.Context3dRep;
DisplayMode:		TYPE ~ G3dRender.DisplayMode;
RenderData:			TYPE ~ G3dRender.RenderData;
RenderStyle:			TYPE ~ G3dRender.RenderStyle;
TextureMap:			TYPE ~ G3dRender.TextureMap;
TextureStyle:			TYPE ~ G3dRender.TextureStyle;
Shape: 				TYPE ~ G3dShape.Shape;
ShapeRep: 			TYPE ~ G3dShape.ShapeRep;
ShapeSequence:		TYPE ~ G3dShape.ShapeSequence;
Vertex:				TYPE ~ G3dShape.Vertex;
VertexRep:			TYPE ~ G3dShape.VertexRep;
VertexSequenceRep:	TYPE ~ G3dShape.VertexSequenceRep;
Rectangle: 			TYPE ~ Imager.Rectangle;
RGB: 					TYPE ~ ImagerColor.RGB;
SampleMap:			TYPE ~ ImagerSample.SampleMap;
ROPE:					TYPE ~ Rope.ROPE;
Create: PUBLIC PROC RETURNS [c: Context3d] ~ {
c м NEW[Context3dRep м [view: G3dMatrix.Identity[]]]; 
SetBackgroundColor[c, [0.2, 0.2, 0.7]];
};
SetViewFromParameters: PUBLIC PROC [
context3d: Context3d,
fieldOfView: REAL м 40.0,
scale: REAL м 1.0,
moves, rotates: Triple м []]
~ {
fov: REAL м IF fieldOfView = 0.0 THEN 40.0 ELSE fieldOfView;
eyePoint, lookAt, upDirection: Triple;
[eyePoint, lookAt, upDirection] м G3dView.FromScaleMovesRots[scale, moves, rotates]; 
SetView[context3d, eyePoint, lookAt, fov, 0.0, upDirection];
};

SetView: PUBLIC PROC [
context3d: Context3d,
eyePoint: Triple,
lookAt: Triple, 
fieldOfView: REAL м 40.0,
rollAngle: REAL м 0.0,
upDirection: Triple м [0., 0., 1.], 
hitherLimit: REAL м .01,
yonLimit: REAL м 1000.0]
~ {
context3d.eyePoint м eyePoint;
context3d.lookAt м lookAt;
context3d.fieldOfView м fieldOfView;
context3d.rollAngle м rollAngle;
context3d.upDirection м upDirection;
context3d.hitherLimit м hitherLimit;
context3d.yonLimit м yonLimit;
};

SetViewport: PUBLIC PROC [context3d: Context3d, size: Rectangle] ~{
IF size.w <= 0.0 OR size.h <= 0.0  THEN SIGNAL Error[$MisMatch, "Null rectangle"];
context3d.viewport м size;
};

SetWindow: PUBLIC PROC [context3d: Context3d, size: Rectangle] ~ {
};
NameBackgroundColor: PUBLIC PROC [context3d: Context3d, color: ROPE] ~ {
bkgrdColor: RGB м  ColorFns.RGBFromHSL[NamedColors.RopeToHSL[color]];
SetBackgroundColor[context3d, bkgrdColor];	-- set color
};

SetBackgroundColor: PUBLIC PROC [context3d: Context3d, color: RGB] ~ {
IF context3d # NIL THEN context3d.backgroundColor м color;
};

SetBackgroundImage: PUBLIC PROC [context3d: Context3d, name: ROPE] ~ {
GetImage: PROC [name: ROPE] RETURNS [map: SampleMap] ~ {};
context3d.backgroundImage м GetImage[context3d.backgroundName м name];
};

EnableClear: PUBLIC PROC [context3d: Context3d, on: BOOL] ~ {
IF context3d # NIL THEN context3d.clear м on;
};

MatteBackground: PUBLIC PROC [context3d: Context3d, matte: BOOL] ~ {
IF context3d # NIL THEN context3d.matteBackground м matte;
};
RenderDataFrom: PUBLIC PROC [shape: Shape] RETURNS [data: RenderData] ~ {
IF shape = NIL THEN RETURN[NIL];
IF shape.renderData = NIL THEN shape.renderData м NEW[G3dRender.RenderDataRep];
data м NARROW[shape.renderData];
};

SetRenderStyle: PUBLIC PROC [shape: Shape, renderStyle: RenderStyle] ~ {
RenderDataFrom[shape].renderStyle м renderStyle;
};

SetColor: PUBLIC PROC [shape: Shape, color: RGB] ~ {
RenderDataFrom[shape].color м color;
};
SetDiffuse: PUBLIC PROC [shape: Shape, diffuseReflectivity: REAL] ~ {
RenderDataFrom[shape].diffuseReflectivityм diffuseReflectivity;
};

SetSpecular: PUBLIC PROC [shape: Shape, specularReflectivity: REAL] ~ {
RenderDataFrom[shape].specularReflectivityм specularReflectivity;
};

SetMetallicity: PUBLIC PROC [shape: Shape, metallicity: REAL] ~ {
RenderDataFrom[shape].metallicityм metallicity;
};

SetShininess: PUBLIC PROC [shape: Shape, shininess: REAL] ~ {
RenderDataFrom[shape].shininessм shininess;
};

SetTransmittance: PUBLIC PROC [shape: Shape, transmittance: REAL] ~ {
RenderDataFrom[shape].transmittance м transmittance;
};

SetInvisible: PUBLIC PROC [shape: Shape] ~ {IF shape # NIL THEN shape.visible м FALSE};

SetVisible: PUBLIC PROC [shape: Shape] ~ {IF shape # NIL THEN shape.visible м TRUE};

ShowBackfaces: PUBLIC PROC [shape: Shape] ~ {
IF shape # NIL THEN shape.showBackfaces м TRUE;
};

HideBackfaces: PUBLIC PROC [shape: Shape] ~ {
IF shape # NIL THEN shape.showBackfaces м FALSE;
};

AddAxes: PUBLIC PROC [
context3d: Context3d,
origin: Triple м [0, 0, 0],
size: REAL м 1.0,
scale: Triple м [1, 1, 1],
nReticles: NAT м 20]
~ {};
SetTextureMap: PUBLIC PROC [
shape: Shape,
fileName: ROPE,
textureStyle: TextureStyle м intensity,
textureFiltering: BOOL м FALSE]
RETURNS [error: ROPE]
~ {
};

GetTextureMap: PUBLIC PROC [shape: Shape, textureName: ROPE] RETURNS [t: TextureMap] ~ {
FOR l: LIST OF TextureMap м RenderDataFrom[shape].textures, l.rest WHILE l # NIL DO
IF Rope.Equal[l.first.name, textureName, FALSE] THEN RETURN[l.first];
ENDLOOP;
};

OffsetTextureCoords: PUBLIC PROC [shape: Shape, offset: Pair] ~ {
FOR n: NAT IN [0..shape.vertices.length) DO 
v: Vertex м shape.vertices[n];
v.texture м [v.texture.x+offset.x, v.texture.y+offset.y];
ENDLOOP;
};

SetTextureScale: PUBLIC PROC [shape: Shape, textureName: ROPE, scale: Pair м [1.0, 1.0]] ~ {
map: TextureMap м GetTextureMap[shape, textureName];
IF map # NIL THEN map.scale м scale;
};

SetTextureRange: PUBLIC PROC [shape: Shape, textureName: ROPE, range: Pair] ~ {
map: TextureMap м GetTextureMap[shape, textureName];
IF map # NIL THEN map.range м range;
};

SetTextureFiltering: PUBLIC PROC [shape: Shape, textureName: ROPE, on: BOOL] ~ {
map: TextureMap м GetTextureMap[shape, textureName];
IF map # NIL THEN map.filter м on;
};

SetBumpHeight: PUBLIC PROC [shape: Shape, textureName: ROPE, height: REAL м 1.0] ~ {
map: TextureMap м GetTextureMap[shape, textureName];
IF map # NIL THEN map.bumpHeight м height;
};
renderDone: CONDITION;

ReallyRenderData: TYPE ~ RECORD [context3d: Context3d, image: REF ANY, error: ROPE м NIL];

Render: PUBLIC PROC [context3d: Context3d, image: REF ANY, fork: BOOL м TRUE]
RETURNS [error: ROPE]
~ {
};

RenderToFile: PUBLIC PROC [
context3d: Context3d,
fileName: ROPE,
fork: BOOL м TRUE,
abekas: BOOL м FALSE]
~ {
};

WaitTilRenderDone: PUBLIC ENTRY PROC ~ {
ENABLE UNWIND => NULL;
WAIT renderDone;
};

IsRendering: PUBLIC PROC [context3d: Context3d] RETURNS [b: BOOL м TRUE] ~ {
};

AbortRender: PUBLIC PROC [context3d: Context3d] ~ {
};

SetAntiAliasing: PUBLIC PROC [context3d: Context3d, on: BOOL м TRUE] ~ {
};

AntiAliasingNeeded: PUBLIC PROC [context3d: Context3d] RETURNS [b: BOOL м FALSE] ~ {
};

GetBuffer: PUBLIC PROC [context3d: Context3d, type: ATOM] RETURNS [s: SampleMap] ~ {
};
AtomFromTextureStyle: PUBLIC PROC [textureStyle: TextureStyle] RETURNS [a: ATOM] ~ {
a м SELECT textureStyle FROM bump => $Bump, color => $Color, ENDCASE => $Intensity;
};

AtomFromDisplayMode: PUBLIC PROC [displayMode: DisplayMode] RETURNS [a: ATOM] ~ {
a м SELECT displayMode FROM fullColor=>$FullColor, dither=>$PseudoColor, ENDCASE=>$Gray;
};

RopeFromDisplayMode: PUBLIC PROC [displayMode: DisplayMode] RETURNS [ROPE] ~ {
RETURN[SELECT displayMode FROM
gray => "Gray",
dither => "Dither",
fullColor => "FullColor",
ENDCASE => NIL];
};

RopeFromRenderStyle: PUBLIC PROC [renderStyle: RenderStyle] RETURNS [ROPE] ~ {
RETURN[SELECT renderStyle FROM
faceted => "constant",
ENDCASE => "smooth"];
};

RopeFromTextureStyle: PUBLIC PROC [textureStyle: TextureStyle] RETURNS [ROPE] ~ {
RETURN[SELECT textureStyle FROM
intensity => "Intensity",
color => "Color",
bump => "Bump",
ENDCASE => "None"];
};

END.
   ■  
G3dRenderImpl.mesa
Copyright ╙ 1985, 1989, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 15, 1992 10:54 pm PDT
Heckbert, August 9, 1988 4:50:32 pm PDT
Crow, November 16, 1990 11:15 am PST
Glassner, March 2, 1990 1:03:22 pm PST
Errors
Types
Context3d
View
context3d.window _ NEW[Rectangle _ size];
Background
Set background color using color naming scheme
Shapes

Don't create shapes, just transform axes endpoints and draw smooth lines to Imager context3d?
AddAxis: PROC [name: ROPE, p, v0, v1: Triple] ~ {
AddName: PROC [name: ROPE, position: Triple] ~ {
s: Shape _ ShapeFromRope[name, name, "white"];
s.position _ position;
AddShape[context3d, s];
};
SetRect: PROC [id, n0, n1, n2, n3: NAT] ~ {
poly: G3dBasic.Surface _ s.surfaces[id] _ [NIL, NEW[G3dBasic.NatSequenceRep[4]]];
poly.vertices.length _ 4;
poly.vertices[0] _ n0;
poly.vertices[1] _ n1;
poly.vertices[2] _ n2;
poly.vertices[3] _ n3;
};
SetVertex: PROC [id: NAT, p: Triple] ~ {s.vertices[id] _ NEW[VertexRep _ [point: p]]};
s: Shape _ NEW[ShapeRep _ [name: Rope.Cat[name, "-axis"], matrix: G3dMatrix.Identity[]]];
SetRenderStyle[s, lines];
s.surfaces _ NEW[G3dBasic.SurfaceSequenceRep[4]]; s.surfaces.length _ 4;
s.vertices _ NEW[VertexSequenceRep[8]]; s.vertices.length _ 8;
SetVertex[0, origin];
SetVertex[1, G3dVector.Add[origin, v0]];
SetVertex[2, G3dVector.Add[G3dVector.Add[origin, v0], v1]];
SetVertex[3, G3dVector.Add[origin, v1]];
SetVertex[4, p];
SetVertex[5, G3dVector.Add[p, v0]];
SetVertex[6, G3dVector.Add[G3dVector.Add[p, v0], v1]];
SetVertex[7, G3dVector.Add[p, v1]];
SetRect[0, 0, 1, 5, 4];
SetRect[1, 1, 2, 6, 5];
SetRect[2, 2, 3, 7, 6];
SetRect[3, 3, 0, 4, 7];
FOR n: NAT IN [0..nReticles) DO
p1: Triple _ G3dVector.Interp[REAL[n]/REAL[nReticles], origin, direction];
p2: Triple _ G3dVector.Add[p1, offset];
s.vertices[2*n] _ NEW[VertexRep _ [point: p1]];
s.vertices[2*n+1] _ NEW[VertexRep _ [point: p2]];
s.surfaces[n].vertices _ NewPoly[2*n, 2*n+1];
ENDLOOP;
SetRenderStyle[s, lines];
AddShape[context3d, s];
AddName[name, direction];
};
AddAxis["X", [origin.x+size, origin.y, origin.z], [0.0, 0.01, 0.0], [0.0, 0.0, 0.01]];
AddAxis["Y", [origin.x, origin.y+size, origin.z], [0.0, 0.0, 0.01], [0.01, 0.0, 0.0]];
AddAxis["Z", [origin.x, origin.y, origin.z+size], [0.01, 0.0, 0.0], [0.0, 0.01, 0.0]];
};
Textures
Rendering Control
reallyRenderData: REF ReallyRenderData _ NEW[ReallyRenderData _ [context3d, image]];
IF fork
THEN [] _ CedarProcess.Fork[ReallyRender, reallyRenderData, [background, TRUE]]
ELSE [] _ ReallyRender[reallyRenderData];
RETURN[reallyRenderData.error];
IF fork
THEN context3d.process _ CedarProcess.Fork[ReallyRender, context3d, [background, TRUE]]
ELSE [] _ ReallyRender[context3d];
StoreImage[context3d, name ];							-- store resulting image
RETURN[context3d.process = NIL OR CedarProcess.GetStatus[context3d.process] # busy];
BroadcastRenderDone: ENTRY PROC ~ {
BROADCAST renderDone;
};

ReallyRender: CedarProcess.ForkableProc ~ {
reallyRenderData: REF ReallyRenderData _ NARROW[data];
imagerCtx: Imager.Context _ NARROW[reallyRenderData.image];
context3d: Context3d _ reallyRenderData.context3d;
IF context3d.shapes # NIL THEN {
reallyRenderData.error _ "not really rendered";
};
BroadcastRenderDone[];
};

IF context3d # NIL THEN context3d.stop^ _ TRUE;
This will draw images using the alpha buffer; all texture and transparency are enabled.
G3dRenderWithPixels.AntiAliasing[context3d, on];
Determine if anti-aliasing is needed to render the shapes in their respective shading modes.
For example, anti-aliasing is necessary for bump-mapping, transparency, solid texture.
IF context3d # NIL AND context3d.shapes # NIL THEN {
FOR n: NAT IN [0..context3d.shapes.length) DO
r: RenderData _ RenderDataFrom[context3d.shapes[n]];
FOR l: LIST OF TextureMap _ r.textures, l.rest WHILE l # NIL DO
IF l.first.style = bump --OR l.first.type = function-- THEN RETURN[TRUE];
ENDLOOP;
IF r.transmittance > 0.0 THEN RETURN[TRUE];
ENDLOOP;
};
Local Utilities and Miscellany
lines => "Lines",
shadedLines => "ShadedLines",
hiddenLines => "HiddenLines",
ENDCASE => NIL];
Э╩═  Ц"cedarcode" styleХNewlineDelimiter
Щ ЩJЪЬ
╧eЬ=ЩHJЩ'JЪЬ$╧kЩ'JЩ$JЩ&JШ JЪЮ	ЬЦШЯJШ ЧЪ╤blnЬЮЬЮШJЪЮЬ0Ш7JЪЮЬ
ШJШ ЧJЪЬЮШheadЪ╧lЩJЪ╧nЬЮЬЮЬЮЬ
ЮЬЮЬШ:ЧЪаЩJЪЬЮЬШ(JЪЬ
ЮЬШJЪЬЮЬШ"JЪЬЮЬШ!JЪЬЮЬШ.JЪЬЮЬШ%JЪЬЮЬШ(JЪЬЮЬШ-JЪЬЮЬШ+JЪЬЮЬШ*JЪЬЮЬШ,JЪЬЮЬШ*JЪЬЮЬШ.JЪЬЮЬШ!JЪЬЮЬШ&JЪЬЮЬШ.JЪЬЮЬШ"JЪЬЮЬШ'JЪЬЮЬШ5JЪЬЮЬ	╧tЬ	вШ&JЪЮЬЮЬЮЬШ!JЪЬЮЬШ+JЪЮЬЮЬЮЬШЧЪа	Щ	ЪбЬЮЬЮЬЮЬШ.JЪЬЮЬ/Ш6JЪЬ'Ш'JШЧЧЪаЩЪбЬЮЬЮЬШ$JШJЪЬЮЬШJЪЬЮЬШJШJШJЪ	ЬЮЬЮЬЮЬЮЬШ<JШ&JШUJШ<JШJШ ЧЪбЬЮЬЮЬШJШJШJШJЪЬЮЬШJЪЬЮЬШJШ$JЪЬЮЬШJЪЬ
ЮЬ
ШJШJШJШJШ$JШ JШ$JШ$JШJШJШ ЧЪбЬЮЬЮЬ+ШCJЪЮЬЮЬЮЬЮЬ$ШRJШJШЧЪб	ЬЮЬЮЬ+ШBJЪЬЮЬЩ)JШЧЧЪа
Щ
ЪбЬЮЬЮЬЮЬШHJЩ.JЪЬЮЬ6ШEJЪЬ+╧cШ7JШЧЪбЬЮЬЮЬЮЬШFJЪЮЬЮЬЮЬ#Ш:JШJШ ЧЪбЬЮЬЮЬЮЬШFJЪбЬЮЬЮЬЮЬШ:JШFJШЧЪбЬЮЬЮЬЮЬШ=JЪЮЬЮЬЮЬШ-JШJШ ЧЪбЬЮЬЮЬЮЬШDJЪЮЬЮЬЮЬ#Ш:JШЧЧЪаЩЪбЬЮЬЮЬЮЬШIJЪ
ЮЬ	ЮЬЮЬЮЬЮЬШ JЪЮЬЮЬЮЬЮЬШOJЪЬЮЬШ JШЧЪбЬЮЬЮЬ-ШHJШ0JШJШ ЧЪбЬЮЬЮЬЮЬШ4JШ$JШJЩ ЧЪ	╨bn
Ь╧sЮЬЮЬ%ЮЬШEJШ?ШJШ ЧЧЪ	дЬеЮЬЮЬ&ЮЬШGJШAШJШ ЧЧЪ	дЬеЮЬЮЬЮЬШAJШ/ШJШ ЧЧЪ	дЬеЮеЮЬЮЬШ=JШ+ШJШ ЧЧЪбЬЮЬЮЬЮЬШEJШ4JШJШ ЧЪбЬЮЬЮЬЮЬ	ЮЬЮЬЮЬШWJШ ЧЪб
ЬЮЬЮЬЮЬ	ЮЬЮЬЮЬШTJШ ЧЪбЬЮЬЮЬШ-JЪЮЬ	ЮЬЮЬЮЬШ/JШЧЪбЬЮЬЮЬШ-JЪЮЬ	ЮЬЮЬЮЬШ0JШJШ ЧЪбЬЮЬЮЬШJШJШJЪЬЮЬШJЪЬеЬ
ШJЪЬЮЬШJШJЩ]ЪбЬЮЬЮЬЩ1ЪбЬЮЬЮЬЩ0JЩ.JЩJЩJЩЧЪбЬЮЬЮЬЩ+JЪЬ+ЮЬЮЬЩQJЩJЩJЩJЩJЩJЩЧJЪб	ЬЮЬЮЬ!ЮЬЩVJЪЬЮЬKЩYJЩJЪЬЮЬ8ЩHJЪЬЮЬ.Щ>JЩJЩ(JЩ;JЩ(JЩJЩ#JЩ6JЩ#JЩJЩJЩJЩЪЮЬЮЬЮЬЮЩJЪЬЮЬЮЬ ЩJJЩ'JЪЬЮЬЩ/JЪЬЮЬЩ1JЩ-JЪЮЬЩЧJЩJЩJЩJЩЧJЩVJЩVJЩVJЩЧЧЪаЩЪбЬЮЬЮЬШJЪЬШJЪЬ
ЮЬШJШ'JЪЬЮЬЮЬШJЪЮЬ	ЮЬШJШJШJШ ЧЪбЬеЮеЮеЬеЬеЬеЮЬеЮеЬеЬеЬеЬШXЪЮЬЮЬЮЬ5ЮЬЮЬЮШSJЪЮЬ'ЮЬЮЬЮЬ
ШEJЪЮЬШЧJШJШ ЧЪбЬЮЬЮЬ!ШAЪЮЬЮЬЮЬЮЬШ,JШJШ9JЪЮЬШЧJШJШ ЧЪбЬЮЬЮЬЮЬШ\JШ4JЪЮЬЮЬЮЬШ$JШJШ ЧЪбЬЮЬЮЬЮЬШOJШ4JЪЮЬЮЬЮЬШ$JШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШPJШ4JЪЮЬЮЬЮЬШ"JШJШ ЧЪ
бЬЮЬЮЬЮЬ
ЮЬШTJШ4JЪЮЬЮЬЮЬШ*JШЧЧЪаЩЪЬЮ	ЬШJШ ЧЪЬЮЬЮЬЮЬЮЬ	ЮЬЮЬШZJШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬЮЬШMJЪЮЬ	ЮЬШJЪЬШJЪЬЮЬЮЬ(ЩTЪЮЬЩJЪЮЬEЮЬЩOJЪЮЬ%Щ)ЧJЪЮЬЩJШJШ ЧЪбЬЮЬЮЬШJЪЬШJЪЬ
ЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬШЪЮЬЩJЪЮЬMЮЬЩWJЪЮЬЩ"ЧJЪЬ$гЩ<JШЧЪбЬЮЬЮЬЮЬШ(JЪЮЬЮЬЮЬШJЪЮЬШJШJШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬШLJЪЮЬЮЬЮЬ3ЩTJШJШ ЧЪбЬЮЬЮЬЩ#JЪЮ	ЬЩJЩJЩ ЧЪбЬЩ+JЪЬЮЬЮЬЩ6JЪЬЮЬЩ;JЩ2ЪЮЬЮЬЮЬЩ JЪЬ/Щ/JЩЧJЩJЩJЩ ЧЪбЬЮЬЮЬШ3JЪЮЬЮЬЮЬЮЬЩ/JШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШHJЩWJЩ0JШJШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬШTJЩ\JЩVЪ
ЮЬЮЬЮЬЮЬЮЬЩ4ЪЮЬЮЬЮЬЮЩ-JЩ4ЪЮеЬеЮеЮеЬ
еЬеЬеЬеЮеЬеЬЮЬЮЩ?JЪ
ЮЬгЬЮЬЮЬЮЬЩIJЪЮЬЩЧJЪЮЬЮЬЮЬЮЬЩ+JЪЮЬЩЧJЩЧJШJШ ЧЪ
б	ЬЮЬЮЬЮЬЮЬШTJШЧЧЪаЩЪбЬЮЬЮЬеЮЬеЮЬШTJЪЬЮЬЮЬ!ЮЬШSJШJШ ЧЪбЬЮЬЮЬеЮЬеЮЬШQJЪЬеЬеЮеЬеЮЬ.ЮЬШXJШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШNЪЮЬЮЬЮШJШJШJШJЪЮЬЮЬШЧJШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШNЪЮЬЮЬЮШJШJЪЮЬШJЩJЩJЩJЪЮЬЮЬЩЧJШJШ ЧЪ
бЬЮЬЮЬЮЬЮЬШQЪЮЬЮЬЮШJШJШJШJЪЮЬШЧJШЧJШ ЧJЪЮЬШЧ ЕЧ      <█  