Help .!!! Demande Ciel aléatoire

Background {
 groundAngle [ .1, 1.309, 1.571 ]
 groundColor [ 0 0 0, 0 .1 .3, 0 .2 .5, 0 .3 .8 ]
 skyAngle [ .1, .15, 1.309, 1.571 ]
 skyColor [ .4 .4 .1, .4 .4 .1, 0 .1 .3, 0 .2 .6, .8 .8 .8 ]
}

Background {
skyAngle [ 1.1, 1.4, 1.57 ]
skyColor [ .333 .118 .118, .333 .118 .118, .706 .392 .235, .941 .863 .392 ]
groundAngle   [ 1.4, 1.57 ]
groundColor [ .863 .549 .235, .863 .549 .235, .627 .275 .157 ]
}

Background {
 skyColor [ 0 0 0, .118 .392 .627, 0 .2 .4 ]
 skyAngle [ 1.309, 1.571 ]
 groundColor [ 0 0 0, .118 .392 .627, 0 .2 .4 ]
 groundAngle [ 1.309, 1.571 ]
}

PROTO Sunlight [
  field        SFBool  autoClock TRUE
  field        SFBool  live TRUE
  field        SFBool  useDay TRUE
  field        SFTime  duration 5
  field        SFInt32 hour 12
  field        SFInt32 minute 0
  field        SFInt32 second 0
  exposedField MFNode  children []
]{

  PROTO local_ColorArrayInterpolator [
      eventIn    SFFloat set_fraction
      eventIn    MFFloat set_key
      eventIn    MFColor set_keyValue
      field      MFFloat key            []
      field      MFColor keyValue        []
      eventOut    MFFloat key_changed
      eventOut    MFColor keyValue_changed
      eventOut    MFColor value_changed
  ] {
      Script {
        field SFString copyright "Copyright (c) 1999, Braden N. McDaniel"
        eventIn    SFFloat set_fraction        IS set_fraction
        eventIn    MFFloat set_key            IS set_key
        eventIn    MFColor set_keyValue        IS set_keyValue
        field      MFFloat key                IS key
        field      MFColor keyValue            IS keyValue
        field      SFBool  validValues        FALSE
        eventOut    MFFloat key_changed        IS key_changed
        eventOut    MFColor keyValue_changed    IS keyValue_changed
        eventOut    MFColor value_changed      IS value_changed
        url ["javascript:

            function interpolateColor(sfcolor1, sfcolor2, intermediateFraction) {
              return new SFColor(sfcolor1.r + ((sfcolor2.r - sfcolor1.r) * intermediateFraction),
              sfcolor1.g + ((sfcolor2.g - sfcolor1.g) * intermediateFraction),
              sfcolor1.b + ((sfcolor2.b - sfcolor1.b) * intermediateFraction));
            }
            function getKeyMinIndex(fraction) {
              var index = 0;
              while (((index + 1) < key.length) && (key[index + 1] < fraction)) {
                  index++;
              }
              return index;
            }
            function getIntermediateFraction(keyMinIndex, fraction) {
              var intervalDifference = (key[keyMinIndex + 1] - key[keyMinIndex]);
              var intervalElapsed = (fraction - key[keyMinIndex]);
              return (intervalElapsed / intervalDifference);
            }
            function initialize() {
              if ((key.length >= 2) && ((keyValue.length % key.length) == 0)) {
                  validValues = true;
              } else {
                  validValues = false;
              }
            }
            function set_fraction(value) {
              value_changed = new MFColor();
              if (validValues) {
                  var arraySize = (keyValue.length / key.length);
                  var keyMinIndex = getKeyMinIndex(value);
                  var valueStartIndex = keyMinIndex * arraySize;
                  var intermediateFraction = getIntermediateFraction(keyMinIndex, value);
                  if (value == key[keyMinIndex]) {
                    for (var i = 0, j = valueStartIndex; i < arraySize; i++, j++) {
                        value_changed[i] = keyValue[j];
                    }
                  } else {
                    for (var i = 0, j = valueStartIndex; i < arraySize; i++, j++) {
                        value_changed[i] = interpolateColor(keyValue[j], keyValue[j + arraySize], intermediateFraction);
                    }
                  }
              }
            }
            function set_key(value) {
              key_changed = key = value;
              initialize();
            }
            function set_keyValue(value) {
              keyValue_changed = keyValue = value;
              initialize();
            }

            "]
      }
  }

  Group {
      children [

        Group {
            children [
              DEF LIGHT DirectionalLight {
                  direction 1 0 0
              }
              Group { children IS children }
            ]
        }

        DEF COLOR ColorInterpolator {
            #          nite,  morn,    noon,    even,  night,    night
            key      [ 0,      .166,    .333,      .5,  .666,    1]
            keyValue [.3 .3 .4, .8 .9 1, 1 1 .9, 1 .8 .6, .4 .3 .3, .2 .2 .25]
        }

        DEF BRITE ScalarInterpolator {
            #          nite,  morn,    noon,    even,  night,    night
            key      [ 0,      .166,    .333,      .5,  .666,    1]
            keyValue [0,      .8,      1,      .8,    0,      0]
        }

        DEF BG Background {
            skyColor [ .000 .000 .000, .001 .009 .029, .014 .061 .185, .006 .026 .166, .001 .013 .091 ]
            skyAngle [.7, 1.6, 1.8, 2]
        }

        DEF ATMOS local_ColorArrayInterpolator {
            #          nite,  morn,    noon,    even,  night,    night
            key      [ 0,      .166,    .333,      .5,  .666,    1]
            keyValue [
              .000 .000 .000, .001 .009 .029, .014 .061 .185, .006 .026 .166, .001 .013 .091,
              .001 .201 .706, .019 .708 .901, .864 .681 .497, .863 .349 .219, .755 .199 .087,
              .012 .350 .995, .012 .576 .995, .395 .785 .894, .812 .893 .884, .900 .900 .900,
              .041 .570 .455, .071 .426 .761, .485 .262 .812, .864 .027 .341, .875 .078 .042,
              .000 .000 .000, .001 .009 .029, .014 .061 .185, .006 .026 .166, .001 .013 .091,
              .000 .000 .000, .001 .009 .029, .014 .061 .185, .006 .026 .166, .001 .013 .091
            ]
        }

        DEF TICK TimeSensor { loop TRUE cycleInterval IS duration }

        DEF SUN Script {
            eventIn SFFloat update
            eventOut SFFloat fraction_changed
            eventOut SFVec3f direction_changed

            field SFBool  autoClock IS autoClock
            field SFBool  live IS live
            field SFBool  useDay IS useDay
            field SFInt32 h IS hour
            field SFInt32 m IS minute
            field SFInt32 s IS second
            field SFFloat PIPI 6.283185307179586476925286766559

            url ["javascript:
              function initialize() {
                  increment(0);
              }

              function update(val) {
                  if (live) { increment(val); }
              }

              function increment(val) {
                  setTime();
                  var fraction = useDay ? getFraction() : val;
                  fraction_changed = fraction;
                  direction_changed = new SFVec3f(Math.cos(PIPI * fraction), -Math.sin(PIPI * fraction), 0);
              }

              function setTime() {
                  if (autoClock) {
                     var now = new Date();
                     h = now.getHours();
                    //need to work on 24 clock - add 12 if pm
                     m = now.getMinutes();
                     s = now.getSeconds();
                  }
                  else {
                    s ++;
                    if(s > 59) { s = 0; m++; }
                    if(m > 59) { m = 0; h++;  }
                    if(h > 23) { h = 0; }
                  }
               }

               function getFraction() {
                  var sness = s / 60;
                  var mness = (m + sness) / 60;
                  var dness = (h + mness) / 24;
                  return dness;
               }

              "]

        }
      ]
  }

  ROUTE TICK.fraction_changed TO SUN.update
  ROUTE SUN.direction_changed TO LIGHT.set_direction
  ROUTE SUN.fraction_changed TO COLOR.set_fraction
  ROUTE COLOR.value_changed TO LIGHT.set_color
  ROUTE SUN.fraction_changed TO BRITE.set_fraction
  ROUTE BRITE.value_changed TO LIGHT.set_intensity
  ROUTE SUN.fraction_changed TO ATMOS.set_fraction
  ROUTE ATMOS.value_changed TO BG.set_skyColor
}

EXTERNPROTO Sunlight [
  field SFBool autoClock
  field SFBool live
  field SFBool useDay
  field SFTime duration
  field SFInt32 hour
  field SFInt32 minute
  field SFInt32 second
  exposedField MFNode children
] "SunlightPROTO.wrl#Sunlight"


NavigationInfo {
  headlight FALSE
  type ["EXAMINE", "ANY"]
}

Viewpoint {
  position 1 2 8
  orientation 1 0 0 -.2
}


Sunlight {
  useDay FALSE
  autoClock FALSE
  duration 15
  children [
      Inline { url "meadow.wrl" }
  ]
}

field SFFloat PIPI 6.283185307179586476925286766559

field SFFloat PIPI 6.28

Sunlight {
  useDay FALSE
  autoClock FALSE
  duration 15    ...........................................................................
  children [
      Inline { url "meadow.wrl" }
  ]
}