1 -- Created on: 1998-08-03
2 -- Created by: Christian CAILLET
3 -- Copyright (c) 1998-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
8 -- This library is free software; you can redistribute it and/or modify it under
9 -- the terms of the GNU Lesser General Public License version 2.1 as published
10 -- by the Free Software Foundation, with special exception defined in the file
11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 -- distribution for complete text of the license and disclaimer of any warranty.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class ToVRML from XSDRAWSTLVRML
19 ---Purpose : Writes a Shape to a File in VRML Format
21 uses CString, OStream, AsciiString from TCollection, Shape from TopoDS
25 Create returns ToVRML;
27 EmissiveColorRed (me : in out) returns Real;
29 EmissiveColorGreen (me : in out) returns Real;
31 EmissiveColorBlue (me : in out) returns Real;
33 DiffuseColorRed (me : in out) returns Real;
35 DiffuseColorGreen (me : in out) returns Real;
37 DiffuseColorBlue (me : in out) returns Real;
39 Transparency (me : in out) returns Real;
41 AmbientIntensity (me : in out) returns Real;
43 SpecularColorRed (me : in out) returns Real;
45 SpecularColorGreen (me : in out) returns Real;
47 SpecularColorBlue (me : in out) returns Real;
49 Shininess (me : in out) returns Real;
51 Texture (me : in out) returns AsciiString;
53 CreaseAngle (me : in out) returns Real;
55 Deflection (me : in out) returns Real;
59 Write (me; shape : Shape from TopoDS; filename : CString) returns Boolean;
60 ---Purpose : conversion of a Shape into VRML format for 3d visualisation
64 myEmissiveColorRed : Real; -- def 0.3
65 myEmissiveColorGreen : Real; -- def 0.3
66 myEmissiveColorBlue : Real; -- def 0.3
67 myDiffuseColorRed : Real; -- def 0.3
68 myDiffuseColorGreen : Real; -- def 0.3
69 myDiffuseColorBlue : Real; -- def 0.5
70 myTransparency : Real; -- def 0.0
71 myAmbientIntensity : Real; -- def 0.3
72 mySpecularColorRed : Real; -- def 0.7
73 mySpecularColorGreen : Real; -- def 0.7
74 mySpecularColorBlue : Real; -- def 0.8
75 myShininess : Real; -- def 0.1
76 myTexture : AsciiString; -- def " [] "
77 myCreaseAngle : Real; -- def 1.57
78 myDeflection : Real; -- def 0.005