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
|
unit V3DSceneFillMode;
{$I v3dsceneconf.inc}
interface
uses CastleScene, CastleWindow, CastleRenderOptions, CastleVectors, CastleColors;
type
TFillMode = 0..8;
const
FillModes: array [TFillMode] of record
Name: string;
Mode: TRenderingMode;
WireframeEffect: TWireframeEffect;
WireframeColor: TCastleColorRGB;
BackgroundWireframe: boolean;
end =
( (Name: 'Normal' ; Mode: rmFull ; WireframeEffect: weNormal ; WireframeColor: (X:0; Y: 0; Z: 0); BackgroundWireframe: false; ),
(Name: 'Wireframe' ; Mode: rmFull ; WireframeEffect: weWireframeOnly ; WireframeColor: (X:0; Y: 0; Z: 0); BackgroundWireframe: true ; ),
(Name: 'Solid Wireframe' ; Mode: rmFull ; WireframeEffect: weSolidWireframe; WireframeColor: (X:1; Y: 1; Z: 1); BackgroundWireframe: false; ),
(Name: 'Normal with Silhouette' ; Mode: rmFull ; WireframeEffect: weSilhouette ; WireframeColor: (X:1; Y: 1; Z: 1); BackgroundWireframe: false; ),
(Name: 'Solid Shape' ; Mode: rmSolidColor; WireframeEffect: weNormal ; WireframeColor: (X:0; Y: 0; Z: 0); BackgroundWireframe: false; ),
(Name: 'Wireframe (Single Color)' ; Mode: rmSolidColor; WireframeEffect: weWireframeOnly ; WireframeColor: (X:1; Y: 1; Z: 1); BackgroundWireframe: true ; ),
(Name: 'Solid Wireframe (Single Color)' ; Mode: rmSolidColor; WireframeEffect: weSolidWireframe; WireframeColor: (X:0; Y: 0; Z: 0); BackgroundWireframe: false; ),
(Name: 'Normal with Silhouette (Single Color)'; Mode: rmSolidColor; WireframeEffect: weSilhouette ; WireframeColor: (X:0; Y: 0; Z: 0); BackgroundWireframe: false; ),
(Name: 'Silhouette and Border Edges' ;
{ Mode, WireframeEffect, WireframeColor don't matter here,
we will not call normal T3DScene.Render in this case. }
Mode: rmFull;
WireframeEffect: weNormal;
WireframeColor: (X:0; Y: 0; Z: 0);
BackgroundWireframe: false)
);
SolidColor: TCastleColorRGB = (X:1; Y: 1; Z: 1);
SolidShadowColor: TCastleColorRGB = (X:0.5; Y: 0.5; Z: 0.5);
var
FillMode: TFillMode = 0;
FillModesMenu: array [TFillMode] of TMenuItemRadio;
const
fmSilhouetteBorderEdges = 8;
procedure MenuAppendFillModes(M: TMenu; BaseIntData: Cardinal);
implementation
procedure MenuAppendFillModes(M: TMenu; BaseIntData: Cardinal);
var
RadioGroup: TMenuItemRadioGroup;
FM: TFillMode;
begin
RadioGroup := nil;
for FM := Low(FillMode) to High(FillMode) do
begin
FillModesMenu[FM] := TMenuItemRadio.Create(
SQuoteMenuEntryCaption(FillModes[FM].Name),
BaseIntData + FM, FM = FillMode, true);
if RadioGroup = nil then
RadioGroup := FillModesMenu[FM].Group else
FillModesMenu[FM].Group := RadioGroup;
M.Append(FillModesMenu[FM]);
end;
end;
end.
|
