path: root/klines/povray/ball.pov

/***************************************************************************
    ball.pov  -  script for rendering Kolor Lines graphics
                             -------------------
    begin                : Fri May 19 2000
    copyright            : (C) 2000 by Roman Razilov
    email                : [email protected]
 ***************************************************************************/

/***************************************************************************
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 ***************************************************************************/
#version 3.0

// Objectname = Main View
// Objecttype = view

// This camera is build for ratio 451:277
#include "colors.inc"
#include "textures.inc"
#declare BallColor = Green
#include "clr.inc"

#declare CELLSIZE = 32
#declare PIXTIME = 10
#declare BALLDOWN = 3
#declare BALLSPACE = 4

#warning concat("XXXX clock:",str(clock,5,2),"\n")

#switch (clock)
// --------------------burning ball-------------------
 #range (0,1.001)

  #declare explosion = 1
  #declare jump = 0
  #declare n = 0

  #declare t0 = 0
  #declare t1 = 0.2
  #declare t2 = 0.5
  #declare t3 = 0.8
  #declare t4 = 1
  #declare tt = clock
  #if ( tt = t0 )
   //turbulence
   #declare tur = 0
   #declare trb = 0
   #declare trf = 0
   #declare pf  = 0
  #end
  #if ( tt > t0 & tt <= t1 )
   #declare tl = (tt - t0)/(t1-t0)
   #declare tur = 3+(0.2-3)*tl
   #declare trb = 0+(0-0)*tl
   #declare trf = 1+(3-1)*tl
   #declare pf  = 0+(0.3-0)*t1
  #end
  #if ( tt > t1 & tt <= t2 )
   #declare tl = (tt - t1)/(t2-t1)
   #declare tur = 0.2+(0.5-0.1)*tl
   #declare trb = 0+(1-0)*tl
   #declare trf = 3+(1-3)*tl
   #declare pf  = 0.3+(0.2-0.3)*t1
  #end
  #if ( tt > t2 & tt <= t3 )
   #declare tl = (tt - t2)/(t3-t2)
   #declare tur = 0.5+(2-0.5)*tl
   #declare trb = 1+(1-1)*tl
   #declare trf = 1+(1-1)*tl
   #declare pf  = 0.2-(0.0-0.2)*t1
  #end
  #if ( tt > t3 )
   #declare tl = (tt - t3)/(t4-t3)
   #declare tur = 2+(5-2)*tl
   #declare trb = 1+(1-1)*tl
   #declare trf = 1+(0-1)*tl
   #declare pf  = 0.0-(0.0-0.0)*t1
  #end
  // ball position / size
  #declare by = 0
  #declare bh = CELLSIZE-2-BALLSPACE
  #declare bw = CELLSIZE-2-BALLSPACE
 #break
// ----------------borning ball----------------------
 #range (5,6.001)

  #declare explosion = 0
  #declare jump = 0

  // fire turbulence
  #declare tur = 0
  // trancperancy ball
  #declare trb = 0
  // trancperancy fire
  #declare trf = 0
  // lambda
  #declare pf  = 0
  // relative clock
  #declare tt = clock - 5
  // y position
  #declare by = 0
  #declare r=sqrt(tt)
  #declare bh = (CELLSIZE-2-BALLSPACE)*r
  #declare bw = (CELLSIZE-2-BALLSPACE)*r
  // normal
  #declare n = (1-tt)*r*2

 #break

 // -------------jumping ball----------------------
 #range (10,11.001)
  #declare explosion = 0
  #declare jump = 1
  #declare tur = 0
  #declare trb = 0
  #declare trf = 0
  #declare pf  = 0
  #declare n = 0
  #declare tt = clock - 10
  // ball free fall: y = -(g * t^2)/2
  // ball jums on X*sin( sqrt(k)*(t0 - t1 + t ) )
  // t whole motion time
  // g - gravity acceleration
  // A - frei movement amplitude
  // BB way with deflation
  #declare A = BALLDOWN
  #declare B = BALLSPACE
  #declare ta = PIXTIME
  #declare k = (pi + 2*sqrt( B*(A+B))/A - acos( A/(A+2*B))   )/ta
  #declare k = k*k
  #warning concat("XXXX k:",str(k,5,2),"\n")
  #declare g = k*A*A/(2*(A+B))
  #warning concat("XXXX g:",str(g,5,2),"\n")
  #declare t1 = sqrt(2*B/g)
  #warning concat("XXXX t1:",str(t1,5,2),"\n")
  #declare X = A*(A+2*B)/(2*(A+B))
  #warning concat("XXXX X:",str(X,5,2),"\n")

  #declare tc = PIXTIME - tt*PIXTIME

  #warning concat("XXXX tc:",str(tc,5,2),"\n")
  // ball position
  #if (tc < t1)
   #declare by = B/2 - g*tc*tc/2
  #else
   #declare by = -B/2 - g/k - X*cos( sqrt(k)*(ta-tc))
  #end
  #if ( by < -2 )
   #declare bh=CELLSIZE-2+2*by
   #declare bw = CELLSIZE-2-BALLSPACE+(-by-2)
  #else
   #declare bh = CELLSIZE-2-BALLSPACE
   #declare bw = CELLSIZE-2-BALLSPACE
  #end

 #break

 #else
  #warning " ERROR, clock out of range !!! \n"

#end
 

#warning concat("XXXX clock:",str(clock,5,2),"\n")

#warning concat("XXXX tt:",str(tt,5,2),"\n")





camera
{
    orthographic
    location  <0,0,-100>
    look_at   <0,0,0>
    up (CELLSIZE-2)*y
    right (CELLSIZE)*x
}

// Global settings
global_settings
{
     ambient_light rgb<0.5,0.5,0.5>
}
light_source
{
    <-400, 600, -600>
    color White
    cylinder
    radius 200
    falloff 1000
    tightness 1
    point_at <0,0,0>
}
// Background
background
{
     color rgb<.5,.5,.5>
}

// fire
#if (explosion = 1) 
sphere { 0, 1
    pigment { color rgbt<0,0,0,1>
    }
    halo {
      emitting
      spherical_mapping
      poly
      max_value 40
      exponent 0.1
      linear
      turbulence tur
//      phase pf
      lambda 2-pf
      frequency 1
      octaves 6
      color_map {
        [ 0 color rgbt <1, 0, 0, 1> ]
        [ 0.2 color rgbt <1, 0, 0, 1-1*trf> ]
        [ 0.5 color rgbt <1, 0, 0, 1-3*trf> ]
        [ 0.9 color rgbt <1, 1, 0, 1-4*trf> ]
        [ 1 color rgbt <1, 1, 0.5, 1-6*trf> ]
      }
      samples 30
    }
    hollow
    scale<15,15,15>
    translate <-0.5,-0.5,0>
  }
#end
// Ball
#if ( trb < 1 & bh > 0 )
sphere
{
    <0,0,0>,1
    pigment { 

    wood 
//    agate_turb 0.5
    turbulence .1
    frequency 2 
//    lambda 
    rotate <30,10,15>
    color_map {
      [0.5 BallColor transmit trb]
      [0.3 BallColor*0.95 transmit trb]
      [0.2 BallColor*0.9  transmit trb]
    }
    }
    no_shadow
    #if ( n > 0 )
    normal
    {
      //wood 0.5
      //frequency 2
      //turbulence .1
      //rotate <30,10,15>
      bumps n
      scale 0.3
    }
    #end
    finish {
    ambient 0.3
    diffuse 0.8
    specular 1
    roughness 0.001
    reflection .1
    phong 0.9 * ( 1-trb)
    phong_size 60

    }
    #if (trb > 0)
    hollow
    #end
    scale <bw/2,bh/2,bw/2>
    translate <-0.5,by - 0.5,0>

#warning concat("XXXX by:",str(by,5,2),"\n")
#warning concat("XXXX bh:",str(bh,5,2),"\n")
#warning concat("XXXX bw:",str(bw,5,2),"\n")
}
#end