source/facettypes.cc

   1 /* This file is part of Shapes.
   2  *
   3  * Shapes is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * any later version.
   7  *
   8  * Shapes is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with Shapes.  If not, see <http://www.gnu.org/licenses/>.
  15  *
  16  * Copyright 2008 Henrik Tidefelt
  17  */
  18
  19 #include "facettypes.h"
  20 #include "dynamicenvironment.h"
  21 #include "lighttypes.h"
  22 #include "ast.h"
  23 #include "astvar.h"
  24 #include "isnan.h"
  25 #include "globals.h"
  26
  27 using namespace Shapes;
  28
  29
  30 Lang::ReflectionsBinding::ReflectionsBinding( const char * id, const Ast::DynamicBindingExpression * bindingExpr, const RefCountPtr< const Lang::SpecularReflection > & reflections )
  31         : bindingExpr_( bindingExpr ), reflections_( reflections ), id_( id )
  32 { }
  33
  34 Lang::ReflectionsBinding::~ReflectionsBinding( )
  35 { }
  36
  37 void
  38 Lang::ReflectionsBinding::bind( MapType & bindings, Kernel::SystemDynamicVariables ** sysBindings ) const
  39 {
  40         if( *sysBindings == 0 )
  41                 {
  42                         *sysBindings = new Kernel::SystemDynamicVariables( );
  43                         Kernel::FacetState * newState = new Kernel::FacetState( );
  44                         newState->reflections_ = reflections_;
  45                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
  46                         return;
  47                 }
  48
  49         if( (*sysBindings)->facetState_ == NullPtr< const Kernel::FacetState >( ) )
  50                 {
  51                         Kernel::FacetState * newState = new Kernel::FacetState( );
  52                         newState->reflections_ = reflections_;
  53                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
  54                         return;
  55                 }
  56
  57         Kernel::FacetState * newState = new Kernel::FacetState( *((*sysBindings)->facetState_) );
  58
  59         if( newState->reflections_ != NullPtr< const Lang::SpecularReflection >( ) )
  60                 {
  61                         throw Exceptions::MultipleDynamicBind( id_, bindingExpr_->idLoc( ), Ast::THE_UNKNOWN_LOCATION );
  62                 }
  63
  64         newState->reflections_ = reflections_;
  65         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
  66 }
  67
  68 void
  69 Lang::ReflectionsBinding::show( std::ostream & os ) const
  70 {
  71         os << Interaction::DYNAMIC_VARIABLE_PREFIX << id_ << ":" ;
  72         reflections_->show( os );
  73 }
  74
  75 void
  76 Lang::ReflectionsBinding::gcMark( Kernel::GCMarkedSet & marked )
  77 {
  78         const_cast< Lang::SpecularReflection * >( reflections_.getPtr( ) )->gcMark( marked );
  79 }
  80
  81
  82
  83 Lang::AutoIntensityBinding::AutoIntensityBinding( const char * id, const Ast::DynamicBindingExpression * bindingExpr, const RefCountPtr< const Lang::Color > & color )
  84         : bindingExpr_( bindingExpr ), color_( color ), id_( id )
  85 { }
  86
  87 Lang::AutoIntensityBinding::~AutoIntensityBinding( )
  88 { }
  89
  90 void
  91 Lang::AutoIntensityBinding::bind( MapType & bindings, Kernel::SystemDynamicVariables ** sysBindings ) const
  92 {
  93         if( *sysBindings == 0 )
  94                 {
  95                         *sysBindings = new Kernel::SystemDynamicVariables( );
  96                         Kernel::FacetState * newState = new Kernel::FacetState( );
  97                         newState->autoIntensity_ = color_;
  98                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
  99                         return;
 100                 }
 101
 102         if( (*sysBindings)->facetState_ == NullPtr< const Kernel::FacetState >( ) )
 103                 {
 104                         Kernel::FacetState * newState = new Kernel::FacetState( );
 105                         newState->autoIntensity_ = color_;
 106                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 107                         return;
 108                 }
 109
 110         Kernel::FacetState * newState = new Kernel::FacetState( *((*sysBindings)->facetState_) );
 111
 112         if( newState->autoIntensity_ != NullPtr< const Lang::Color >( ) )
 113                 {
 114                         throw Exceptions::MultipleDynamicBind( id_, bindingExpr_->idLoc( ), Ast::THE_UNKNOWN_LOCATION );
 115                 }
 116
 117         newState->autoIntensity_ = color_;
 118         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 119 }
 120
 121 void
 122 Lang::AutoIntensityBinding::show( std::ostream & os ) const
 123 {
 124         os << Interaction::DYNAMIC_VARIABLE_PREFIX << id_ << ":" ;
 125         color_->show( os );
 126 }
 127
 128 void
 129 Lang::AutoIntensityBinding::gcMark( Kernel::GCMarkedSet & marked )
 130 {
 131         const_cast< Lang::Color * >( color_.getPtr( ) )->gcMark( marked );
 132 }
 133
 134
 135
 136 Lang::AutoScatteringBinding::AutoScatteringBinding( const char * id, const Ast::DynamicBindingExpression * bindingExpr, const RefCountPtr< const Lang::SpecularReflection > & reflections )
 137         : bindingExpr_( bindingExpr ), reflections_( reflections ), id_( id )
 138 { }
 139
 140 Lang::AutoScatteringBinding::~AutoScatteringBinding( )
 141 { }
 142
 143 void
 144 Lang::AutoScatteringBinding::bind( MapType & bindings, Kernel::SystemDynamicVariables ** sysBindings ) const
 145 {
 146         if( *sysBindings == 0 )
 147                 {
 148                         *sysBindings = new Kernel::SystemDynamicVariables( );
 149                         Kernel::FacetState * newState = new Kernel::FacetState( );
 150                         newState->autoScattering_ = reflections_;
 151                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 152                         return;
 153                 }
 154
 155         if( (*sysBindings)->facetState_ == NullPtr< const Kernel::FacetState >( ) )
 156                 {
 157                         Kernel::FacetState * newState = new Kernel::FacetState( );
 158                         newState->autoScattering_ = reflections_;
 159                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 160                         return;
 161                 }
 162
 163         Kernel::FacetState * newState = new Kernel::FacetState( *((*sysBindings)->facetState_) );
 164
 165         if( newState->autoScattering_ != NullPtr< const Lang::SpecularReflection >( ) )
 166                 {
 167                         throw Exceptions::MultipleDynamicBind( id_, bindingExpr_->idLoc( ), Ast::THE_UNKNOWN_LOCATION );
 168                 }
 169
 170         newState->autoScattering_ = reflections_;
 171         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 172 }
 173
 174 void
 175 Lang::AutoScatteringBinding::show( std::ostream & os ) const
 176 {
 177         os << Interaction::DYNAMIC_VARIABLE_PREFIX << id_ << ":" ;
 178         reflections_->show( os );
 179 }
 180
 181 void
 182 Lang::AutoScatteringBinding::gcMark( Kernel::GCMarkedSet & marked )
 183 {
 184         const_cast< Lang::SpecularReflection * >( reflections_.getPtr( ) )->gcMark( marked );
 185 }
 186
 187
 188 Lang::ViewResolutionBinding::ViewResolutionBinding( const char * id, const Ast::DynamicBindingExpression * bindingExpr, const Concrete::Length resolution )
 189         : bindingExpr_( bindingExpr ), resolution_( resolution ), id_( id )
 190 { }
 191
 192 Lang::ViewResolutionBinding::~ViewResolutionBinding( )
 193 { }
 194
 195 void
 196 Lang::ViewResolutionBinding::bind( MapType & bindings, Kernel::SystemDynamicVariables ** sysBindings ) const
 197 {
 198         if( *sysBindings == 0 )
 199                 {
 200                         *sysBindings = new Kernel::SystemDynamicVariables( );
 201                         Kernel::FacetState * newState = new Kernel::FacetState( );
 202                         newState->viewResolution_ = resolution_;
 203                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 204                         return;
 205                 }
 206
 207         if( (*sysBindings)->facetState_ == NullPtr< const Kernel::FacetState >( ) )
 208                 {
 209                         Kernel::FacetState * newState = new Kernel::FacetState( );
 210                         newState->viewResolution_ = resolution_;
 211                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 212                         return;
 213                 }
 214
 215         Kernel::FacetState * newState = new Kernel::FacetState( *((*sysBindings)->facetState_) );
 216
 217         if( ! IS_NAN( newState->viewResolution_ ) )
 218                 {
 219                         throw Exceptions::MultipleDynamicBind( id_, bindingExpr_->idLoc( ), Ast::THE_UNKNOWN_LOCATION );
 220                 }
 221
 222         newState->viewResolution_ = resolution_;
 223         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 224 }
 225
 226 void
 227 Lang::ViewResolutionBinding::show( std::ostream & os ) const
 228 {
 229         os << Interaction::DYNAMIC_VARIABLE_PREFIX << id_ << ":"
 230                  << resolution_ / Interaction::displayUnit << Interaction::displayUnitName ;
 231 }
 232
 233 void
 234 Lang::ViewResolutionBinding::gcMark( Kernel::GCMarkedSet & marked )
 235 { }
 236
 237
 238 Lang::ShadeOrderBinding::ShadeOrderBinding( const char * id, const Ast::DynamicBindingExpression * bindingExpr, const Computation::FacetShadeOrder order )
 239         : bindingExpr_( bindingExpr ), order_( order ), id_( id )
 240 { }
 241
 242 Lang::ShadeOrderBinding::~ShadeOrderBinding( )
 243 { }
 244
 245 void
 246 Lang::ShadeOrderBinding::bind( MapType & bindings, Kernel::SystemDynamicVariables ** sysBindings ) const
 247 {
 248         if( *sysBindings == 0 )
 249                 {
 250                         *sysBindings = new Kernel::SystemDynamicVariables( );
 251                         Kernel::FacetState * newState = new Kernel::FacetState( );
 252                         newState->shadeOrder_ = order_;
 253                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 254                         return;
 255                 }
 256
 257         if( (*sysBindings)->facetState_ == NullPtr< const Kernel::FacetState >( ) )
 258                 {
 259                         Kernel::FacetState * newState = new Kernel::FacetState( );
 260                         newState->shadeOrder_ = order_;
 261                         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 262                         return;
 263                 }
 264
 265         Kernel::FacetState * newState = new Kernel::FacetState( *((*sysBindings)->facetState_) );
 266
 267         if( newState->shadeOrder_ != -1 )
 268                 {
 269                         throw Exceptions::MultipleDynamicBind( id_, bindingExpr_->idLoc( ), Ast::THE_UNKNOWN_LOCATION );
 270                 }
 271
 272         newState->shadeOrder_ = order_;
 273         (*sysBindings)->facetState_ = RefCountPtr< const Kernel::FacetState >( newState );
 274 }
 275
 276 void
 277 Lang::ShadeOrderBinding::show( std::ostream & os ) const
 278 {
 279         os << Interaction::DYNAMIC_VARIABLE_PREFIX << id_ << ":"
 280                  << "'" << order_ ;
 281 }
 282
 283 void
 284 Lang::ShadeOrderBinding::gcMark( Kernel::GCMarkedSet & marked )
 285 { }
 286
 287
 288
 289 Kernel::ReflectionsDynamicVariableProperties::ReflectionsDynamicVariableProperties( const char * name )
 290         : Kernel::DynamicVariableProperties( name )
 291 { }
 292
 293 Kernel::ReflectionsDynamicVariableProperties::~ReflectionsDynamicVariableProperties( )
 294 { }
 295
 296 Kernel::VariableHandle
 297 Kernel::ReflectionsDynamicVariableProperties::fetch( const Kernel::PassedDyn & dyn ) const
 298 {
 299         RefCountPtr< const Kernel::FacetState > facetState = dyn->getFacetState( );
 300         return Kernel::VariableHandle( new Kernel::Variable( facetState->reflections_ ) );
 301 }
 302
 303 void
 304 Kernel::ReflectionsDynamicVariableProperties::makeBinding( Kernel::VariableHandle val, const Ast::DynamicBindingExpression * bindingExpr, Kernel::EvalState * evalState ) const
 305 {
 306         RefCountPtr< const Lang::SpecularReflection > reflection = val->getVal< const Lang::SpecularReflection >( bindingExpr->exprLoc( ) );
 307         Kernel::ContRef cont = evalState->cont_;
 308         cont->takeValue( Kernel::ValueRef( new Lang::ReflectionsBinding( name_, bindingExpr, reflection ) ),
 309                                                                          evalState );
 310 }
 311
 312
 313 Kernel::AutoIntensityDynamicVariableProperties::AutoIntensityDynamicVariableProperties( const char * name )
 314         : Kernel::DynamicVariableProperties( name )
 315 { }
 316
 317 Kernel::AutoIntensityDynamicVariableProperties::~AutoIntensityDynamicVariableProperties( )
 318 { }
 319
 320 Kernel::VariableHandle
 321 Kernel::AutoIntensityDynamicVariableProperties::fetch( const Kernel::PassedDyn & dyn ) const
 322 {
 323         RefCountPtr< const Kernel::FacetState > facetState = dyn->getFacetState( );
 324         return Kernel::VariableHandle( new Kernel::Variable( facetState->autoIntensity_ ) );
 325 }
 326
 327 void
 328 Kernel::AutoIntensityDynamicVariableProperties::makeBinding( Kernel::VariableHandle val, const Ast::DynamicBindingExpression * bindingExpr, Kernel::EvalState * evalState ) const
 329 {
 330         RefCountPtr< const Lang::Color > color = val->getVal< const Lang::Color >( bindingExpr->exprLoc( ) );
 331         Kernel::ContRef cont = evalState->cont_;
 332         cont->takeValue( Kernel::ValueRef( new Lang::AutoIntensityBinding( name_, bindingExpr, color ) ),
 333                                                                          evalState );
 334 }
 335
 336
 337 Kernel::AutoScatteringDynamicVariableProperties::AutoScatteringDynamicVariableProperties( const char * name )
 338         : Kernel::DynamicVariableProperties( name )
 339 { }
 340
 341 Kernel::AutoScatteringDynamicVariableProperties::~AutoScatteringDynamicVariableProperties( )
 342 { }
 343
 344 Kernel::VariableHandle
 345 Kernel::AutoScatteringDynamicVariableProperties::fetch( const Kernel::PassedDyn & dyn ) const
 346 {
 347         RefCountPtr< const Kernel::FacetState > facetState = dyn->getFacetState( );
 348         return Kernel::VariableHandle( new Kernel::Variable( facetState->autoScattering_ ) );
 349 }
 350
 351 void
 352 Kernel::AutoScatteringDynamicVariableProperties::makeBinding( Kernel::VariableHandle val, const Ast::DynamicBindingExpression * bindingExpr, Kernel::EvalState * evalState ) const
 353 {
 354         RefCountPtr< const Lang::SpecularReflection > reflection = val->getVal< const Lang::SpecularReflection >( bindingExpr->exprLoc( ) );
 355         Kernel::ContRef cont = evalState->cont_;
 356         cont->takeValue( Kernel::ValueRef( new Lang::AutoScatteringBinding( name_, bindingExpr, reflection ) ),
 357                                                                          evalState );
 358 }
 359
 360
 361 Kernel::ViewResolutionDynamicVariableProperties::ViewResolutionDynamicVariableProperties( const char * name )
 362         : Kernel::DynamicVariableProperties( name )
 363 { }
 364
 365 Kernel::ViewResolutionDynamicVariableProperties::~ViewResolutionDynamicVariableProperties( )
 366 { }
 367
 368 Kernel::VariableHandle
 369 Kernel::ViewResolutionDynamicVariableProperties::fetch( const Kernel::PassedDyn & dyn ) const
 370 {
 371         RefCountPtr< const Kernel::FacetState > facetState = dyn->getFacetState( );
 372         return Helpers::newValHandle( new Lang::Length( facetState->viewResolution_ ) );
 373 }
 374
 375 void
 376 Kernel::ViewResolutionDynamicVariableProperties::makeBinding( Kernel::VariableHandle val, const Ast::DynamicBindingExpression * bindingExpr, Kernel::EvalState * evalState ) const
 377 {
 378         RefCountPtr< const Lang::Length > res = val->getVal< const Lang::Length >( bindingExpr->exprLoc( ) );
 379         if( res->get( ) <= 0 )
 380                 {
 381                         throw Exceptions::OutOfRange( bindingExpr->exprLoc( ), strrefdup( "The length must be non-negative." ) );
 382                 }
 383         Kernel::ContRef cont = evalState->cont_;
 384         cont->takeValue( Kernel::ValueRef( new Lang::ViewResolutionBinding( name_, bindingExpr, res->get( ) ) ),
 385                                                                          evalState );
 386 }
 387
 388 Kernel::ShadeOrderDynamicVariableProperties::ShadeOrderDynamicVariableProperties( const char * name )
 389         : Kernel::DynamicVariableProperties( name )
 390 { }
 391
 392 Kernel::ShadeOrderDynamicVariableProperties::~ShadeOrderDynamicVariableProperties( )
 393 { }
 394
 395 Kernel::VariableHandle
 396 Kernel::ShadeOrderDynamicVariableProperties::fetch( const Kernel::PassedDyn & dyn ) const
 397 {
 398         RefCountPtr< const Kernel::FacetState > facetState = dyn->getFacetState( );
 399         return Helpers::newValHandle( new Lang::Integer( facetState->shadeOrder_ ) );
 400 }
 401
 402 void
 403 Kernel::ShadeOrderDynamicVariableProperties::makeBinding( Kernel::VariableHandle val, const Ast::DynamicBindingExpression * bindingExpr, Kernel::EvalState * evalState ) const
 404 {
 405         RefCountPtr< const Lang::Integer > order = val->getVal< const Lang::Integer >( bindingExpr->exprLoc( ) );
 406         if( order->val_ < 0 || order->val_ > 2 )
 407                 {
 408                         throw Exceptions::OutOfRange( bindingExpr->exprLoc( ), strrefdup( "The shade order integer must be one of { 0, 1, 2 }." ) );
 409                 }
 410         Kernel::ContRef cont = evalState->cont_;
 411         cont->takeValue( Kernel::ValueRef( new Lang::ShadeOrderBinding( name_, bindingExpr, order->val_ ) ),
 412                                                                          evalState );
 413 }
 414
 415
 416
 417 Kernel::FacetState::FacetState( )
 418         : reflections_( NullPtr< const Lang::SpecularReflection >( ) ),
 419                 autoIntensity_( NullPtr< const Lang::Color >( ) ),
 420                 autoScattering_( NullPtr< const Lang::SpecularReflection >( ) ),
 421                 viewResolution_( std::numeric_limits< double >::signaling_NaN( ) ),
 422                 shadeOrder_( -1 )
 423 { }
 424
 425 Kernel::FacetState::FacetState( const Kernel::FacetState & orig )
 426         : reflections_( orig.reflections_ ),
 427                 autoIntensity_( orig.autoIntensity_ ),
 428                 autoScattering_( orig.autoScattering_ ),
 429                 viewResolution_( orig.viewResolution_ ),
 430                 shadeOrder_( orig.shadeOrder_ )
 431 { }
 432
 433 Kernel::FacetState::FacetState( const Kernel::FacetState & newValues, const Kernel::FacetState & oldValues )
 434         : reflections_( oldValues.reflections_ ),
 435                 autoIntensity_( oldValues.autoIntensity_ ),
 436                 autoScattering_( oldValues.autoScattering_ ),
 437                 viewResolution_( oldValues.viewResolution_ ),
 438                 shadeOrder_( oldValues.shadeOrder_ )
 439 {
 440         if( newValues.reflections_ != NullPtr< const Lang::SpecularReflection >( ) )
 441                 {
 442                         reflections_ = newValues.reflections_;
 443                 }
 444         if( newValues.autoIntensity_ != NullPtr< const Lang::Color >( ) )
 445                 {
 446                         autoIntensity_ = newValues.autoIntensity_;
 447                 }
 448         if( newValues.autoScattering_ != NullPtr< const Lang::SpecularReflection >( ) )
 449                 {
 450                         autoScattering_ = newValues.autoScattering_;
 451                 }
 452         if( ! IS_NAN( newValues.viewResolution_ ) )
 453                 {
 454                         viewResolution_ = newValues.viewResolution_;
 455                 }
 456         if( newValues.shadeOrder_ != -1 )
 457                 {
 458                         shadeOrder_ = newValues.shadeOrder_;
 459                 }
 460 }
 461
 462 Kernel::FacetState::FacetState( bool setDefaults )
 463         : reflections_( RefCountPtr< const Lang::SpecularReflection >( new Lang::SpecularReflectionNull( ) ) ),
 464                 autoIntensity_( RefCountPtr< const Lang::Color >( new Lang::Gray( 0 ) ) ),
 465                 autoScattering_( RefCountPtr< const Lang::SpecularReflection >( new Lang::SpecularReflectionNull( ) ) ),
 466                 viewResolution_( Concrete::HUGE_LENGTH ),
 467                 shadeOrder_( 0 )
 468 {
 469         if( ! setDefaults )
 470                 {
 471                         throw Exceptions::InternalError( strrefdup( "setDefaults must be true in FacetState::FacetState." ) );
 472                 }
 473 }
 474
 475 Kernel::FacetState::~FacetState( )
 476 { }
 477
 478 void
 479 Kernel::FacetState::print( std::ostream & os, const std::string & indentation ) const
 480 {
 481         if( autoIntensity_ != NullPtr< const Lang::Color >( ) )
 482                 {
 483                         os << indentation << Interaction::DYNAMIC_VARIABLE_PREFIX << Lang::DYNAMIC_VARIABLE_ID_AUTOINTENSITY << ": " ;
 484                         autoIntensity_->show( os );
 485                         os << std::endl ;
 486                 }
 487         os << "(and a bunch of other variables...)" << std::endl ;
 488 }