home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 2132 / eea31 / sunset.eea < prev    next >
Text File  |  1993-09-24  |  1KB  |  33 lines
  1. //*****************************************************************
  2. //Cette animation d'une scène classique du Ray-tracing est dûe à  *
  3. //Jean-Claude Coquerez, RAY TRACEUR patenté et utilisateur de EEA.*
  4. //*****************************************************************
  5. // sujet: un coucher de soleil.
  6. // Variables utilisées :
  7. // haut  = hauteur du soleil..................... 380 --> -200
  8. // ouest = déplacement du soleil vers l'ouest.. -1300 --> -700
  9. // amb   = luminosité du ciel et de l'océan...... 0.8 --> 0.2
  10. // nuage = déplacement des nuages............... -450 --> -1050
  11. // trans = transparence du soleil (?!).......... 0.35 --> 0.35
  12. // rouge = couleur du soleil.................... 1.00 --> 0.40
  13. // vert  = couleur du soleil.................... 0.65 --> 0.26
  14. // phase = mouvement des vagues................. 0.00 --> 0.50
  15. //
  16. maxiter = 150
  17. iter = 1
  18. WHILE(iter<=maxiter)
  19.   xx    = iter / maxiter
  20.   haut  = 380 - (580 * xx)
  21.   ouest = -1300 - (600 * xx)
  22.   amb   = 0.8 - (0.6 * xx)
  23.   nuage = -450 - (600 * xx)
  24.   trans = 0.35
  25.   rouge = 1.00 - (0.60 * xx)
  26.   vert  = 0.65 - (0.39 * xx)
  27.   phase = (0.50 * xx)
  28.   
  29.   REPLACE(SUNSET.IN,TEMP.POV)
  30.   EXEC(POVRAY,+iTEMP.POV +oSUN[iter%02i].TGA +h320 +w200)
  31.   iter = iter + 1
  32. ENDWHILE
  33.