/usr/src/castle-game-engine-4.1.1/x3d/x3d_layering.inc is in castle-game-engine-src 4.1.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 | {
Copyright 2008-2013 Michalis Kamburelis.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{$ifdef read_interface}
{ }
TAbstractLayerNode = class(TAbstractNode)
public
procedure CreateNode; override;
private FFdIsPickable: TSFBool;
public property FdIsPickable: TSFBool read FFdIsPickable;
private FFdViewport: TSFNode;
public property FdViewport: TSFNode read FFdViewport;
end;
TAbstractViewportNode = class(TAbstractX3DGroupingNode)
public
procedure CreateNode; override;
end;
TLayerNode = class(TAbstractLayerNode)
public
procedure CreateNode; override;
class function ClassNodeTypeName: string; override;
class function URNMatching(const URN: string): boolean; override;
{ Event: MFNode, in } { }
private FEventAddChildren: TX3DEvent;
public property EventAddChildren: TX3DEvent read FEventAddChildren;
{ Event: MFNode, in } { }
private FEventRemoveChildren: TX3DEvent;
public property EventRemoveChildren: TX3DEvent read FEventRemoveChildren;
private FFdChildren: TMFNode;
public property FdChildren: TMFNode read FFdChildren;
end;
TLayerSetNode = class(TAbstractNode)
public
procedure CreateNode; override;
class function ClassNodeTypeName: string; override;
class function URNMatching(const URN: string): boolean; override;
private FFdActiveLayer: TSFInt32;
public property FdActiveLayer: TSFInt32 read FFdActiveLayer;
private FFdLayers: TMFNode;
public property FdLayers: TMFNode read FFdLayers;
private FFdOrder: TMFInt32;
public property FdOrder: TMFInt32 read FFdOrder;
end;
TViewportNode = class(TAbstractX3DGroupingNode, IAbstractBoundedObject)
public
procedure CreateNode; override;
class function ClassNodeTypeName: string; override;
class function URNMatching(const URN: string): boolean; override;
private FFdClipBoundary: TMFFloat;
public property FdClipBoundary: TMFFloat read FFdClipBoundary;
end;
{$endif read_interface}
{$ifdef read_implementation}
procedure TAbstractLayerNode.CreateNode;
begin
inherited;
FFdIsPickable := TSFBool.Create(Self, 'isPickable', true);
Fields.Add(FFdIsPickable);
FFdViewport := TSFNode.Create(Self, 'viewport', [TAbstractViewportNode]);
Fields.Add(FFdViewport);
DefaultContainerField := 'layers';
end;
procedure TAbstractViewportNode.CreateNode;
begin
inherited;
end;
procedure TLayerNode.CreateNode;
begin
inherited;
FEventAddChildren := TX3DEvent.Create(Self, 'addChildren', TMFNode, true);
Events.Add(FEventAddChildren);
FEventRemoveChildren := TX3DEvent.Create(Self, 'removeChildren', TMFNode, true);
Events.Add(FEventRemoveChildren);
FFdChildren := TMFNode.Create(Self, 'children', [TAbstractChildNode]);
Fields.Add(FFdChildren);
end;
class function TLayerNode.ClassNodeTypeName: string;
begin
Result := 'Layer';
end;
class function TLayerNode.URNMatching(const URN: string): boolean;
begin
Result := (inherited URNMatching(URN)) or
(URN = URNX3DNodes + ClassNodeTypeName);
end;
procedure TLayerSetNode.CreateNode;
begin
inherited;
FFdActiveLayer := TSFInt32.Create(Self, 'activeLayer', 0);
Fields.Add(FFdActiveLayer);
{ X3D specification comment: (-Inf,Inf) }
FFdLayers := TMFNode.Create(Self, 'layers', [TAbstractLayerNode]);
Fields.Add(FFdLayers);
FFdOrder := TMFInt32.Create(Self, 'order', [0]);
Fields.Add(FFdOrder);
{ X3D specification comment: (0,Inf) }
DefaultContainerField := 'children';
end;
class function TLayerSetNode.ClassNodeTypeName: string;
begin
Result := 'LayerSet';
end;
class function TLayerSetNode.URNMatching(const URN: string): boolean;
begin
Result := (inherited URNMatching(URN)) or
(URN = URNX3DNodes + ClassNodeTypeName);
end;
procedure TViewportNode.CreateNode;
begin
inherited;
FFdClipBoundary := TMFFloat.Create(Self, 'clipBoundary', [0.0]);
Fields.Add(FFdClipBoundary);
{ X3D specification comment: 1 0 1 [0,1] }
end;
class function TViewportNode.ClassNodeTypeName: string;
begin
Result := 'Viewport';
end;
class function TViewportNode.URNMatching(const URN: string): boolean;
begin
Result := (inherited URNMatching(URN)) or
(URN = URNX3DNodes + ClassNodeTypeName);
end;
procedure RegisterLayeringNodes;
begin
NodesManager.RegisterNodeClasses([
TLayerNode,
TLayerSetNode,
TViewportNode
]);
end;
{$endif read_implementation}
|