/usr/src/castle-game-engine-4.1.1/x3d/x3dloadinternalutils.pas 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 | {
Copyright 2003-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.
----------------------------------------------------------------------------
}
{ Utilities for converting other 3D model formats into VRML/X3D. }
unit X3DLoadInternalUtils;
interface
uses CastleVectors, X3DNodes;
const
NiceCreaseAngle = DefaultVRML1CreaseAngle;
function ToX3DName(const S: string): string;
{ Calculate best possible ambientIntensity. This is a float that tries to
satisfy the equation AmbientColor = AmbientIntensity * DiffuseColor.
Suitable for VRML 2.0/X3D Material.ambientIntensity (as there's no
Material.ambientColor in VRML 2.0/X3D). }
function AmbientIntensity(const AmbientColor, DiffuseColor: TVector3Single): Single;
function AmbientIntensity(const AmbientColor, DiffuseColor: TVector4Single): Single;
{ Search harder for file named Base inside directory of BaseUrl.
BaseUrl must be an absolute URL, we will extract path from it.
Returns URL relative to BaseUrl.
We prefer to return just Base, if it exists, or when no alternative exists.
When Base doesn't exist but some likely alternative exists (e.g. with
different case), we return it. }
function SearchTextureFile(const BaseUrl, Base: string): string;
implementation
uses SysUtils, CastleStringUtils, CastleEnumerateFiles, CastleWarnings,
URIParser, CastleURIUtils;
function ToX3DName(const s: string): string;
const
{ moglibysmy tu uzyc X3DLexer.VRMLNameChars ktore podaje naprawde
wszystkie dozwolone znaki w nazwie VRMLa. Ale, dla czytelnosci,
lepiej jednak nie uzywac wszystkich dziwnych znakow z
X3DLexer.VRMLNameChars i ograniczyc sie do ponizszego zbioru znakow }
VRMLNameChars = ['a'..'z','A'..'Z','0'..'9'];
NonVRMLNameChars = AllChars - VRMLNameChars;
begin
result := SReplaceChars(s, NonVRMLNameChars, '_')
end;
function AmbientIntensity(const AmbientColor, DiffuseColor: TVector3Single): Single;
begin
Result := 0;
if not Zero(DiffuseColor[0]) then Result += AmbientColor[0] / DiffuseColor[0];
if not Zero(DiffuseColor[1]) then Result += AmbientColor[1] / DiffuseColor[1];
if not Zero(DiffuseColor[2]) then Result += AmbientColor[2] / DiffuseColor[2];
Result /= 3;
end;
function AmbientIntensity(const AmbientColor, DiffuseColor: TVector4Single): Single;
begin
Result := AmbientIntensity(
Vector3SingleCut(AmbientColor),
Vector3SingleCut(DiffuseColor));
end;
function SearchTextureFile(const BaseUrl, Base: string): string;
var
SomePathDelim: Integer;
BaseShort, Path: string;
begin
Path := ExtractURIPath(BaseUrl);
try
if SearchFileHard(Path, Base, Result) then
Exit;
{ According to https://sourceforge.net/tracker/index.php?func=detail&aid=3305661&group_id=200653&atid=974391
some archives expect search within textures/ subdirectory.
Example on http://www.gfx-3d-model.com/2008/06/house-07/#more-445
for Wavefront OBJ. }
if SearchFileHard(Path + 'textures/', Base, Result) then
begin
Result := 'textures/' + Result;
Exit;
end;
if SearchFileHard(Path + 'Textures/', Base, Result) then
begin
Result := 'Textures/' + Result;
Exit;
end;
{ Some invalid models place full (absolute) path inside texture filename.
Try to handle it, by stripping path part (from any OS), and trying
to match new name. }
SomePathDelim := BackCharsPos(['/', '\'], Base);
if SomePathDelim <> 0 then
begin
BaseShort := SEnding(Base, SomePathDelim + 1);
if SearchFileHard(Path, BaseShort, Result) then
Exit;
if SearchFileHard(Path + 'textures/', BaseShort, Result) then
begin
Result := 'textures/' + Result;
Exit;
end;
if SearchFileHard(Path + 'Textures/', BaseShort, Result) then
begin
Result := 'Textures/' + Result;
Exit;
end;
end;
finally
if Result <> Base then
{ Texture file found, but not under original name }
OnWarning(wtMinor, 'Texture', Format('Exact texture URL "%s" not found, using instead "%s"',
[Base, Result]));
end;
{ default result if nowhere found }
Result := Base;
end;
end.
|