Configurable window glass (#6106)

* Configurable window glass

* Update changelog-r2023.md

* Update changelog-r2023.md

* Update projects/objects/apartment_structure/protos/Window.proto

Co-authored-by: Olivier Michel <[email protected]>

* Update projects/objects/apartment_structure/protos/Window.proto

Co-authored-by: Olivier Michel <[email protected]>

* Update projects/objects/apartment_structure/protos/Window.proto

Co-authored-by: Olivier Michel <[email protected]>

---------

Co-authored-by: Olivier Michel <[email protected]>

Author: Benjamin Délèze

docs/reference/changelog-r2023.md

@@ -14,6 +14,7 @@ Released on ??
     - Added `maxContactJoints` field to `ContactProperties` node to give users control over the tradeoff between collision accuracy and performance ([#5769](https://github.com/cyberbotics/webots/pull/5769)).
     - Improved MATLAB controllers to support input arguments ([#5943](https://github.com/cyberbotics/webots/pull/5943)).
     - Update names of TIAGo models and add default RGBD camera ([#6082](https://github.com/cyberbotics/webots/pull/6082)).
+    - Add parameters to change the glass color and opacity of the `Window.proto` ([#6106](https://github.com/cyberbotics/webots/pull/6106)).
 
 ## Webots R2023a Revision 1
 Released on ??

projects/objects/apartment_structure/protos/Window.proto

@@ -14,6 +14,8 @@ PROTO Window [
   field SFRotation rotation               0 0 1 0
   field SFString   name                   "window"
   field SFVec3f    size                   0.2 0.8 2.4       # Defines the size of the window.
+  field SFColor    glassColor             0.8 0.8 0.8       # Defines the color of the window.
+  field SFFloat    glassTransparency      0.8               # Defines the transparency of the window.
   field SFFloat    windowThickness        0.05              # Defines the thickness of the window.
   field SFFloat    bottomWallHeight       0.7               # Defines the height of the top wall.
   field SFFloat    windowHeight           1.4               # Defines the height of the window.
@@ -126,9 +128,9 @@ PROTO Window [
         name "glass"
         size %<= windowThickness >% %<= size.y - 2 * frameSize.y >% %<= windowHeight - 2 * frameSize.z >%
         appearance PBRAppearance {
-          baseColor 0.8 0.8 0.8
+          baseColor IS glassColor
           metalness 0
-          transparency 0.8
+          transparency IS glassTransparency
         }
         castShadows IS castShadows
       }