#VRML V2.0 utf8

WorldInfo {title "Jiri Zara - Prototypy: Lampicka V a VI" }

EXTERNPROTO Nozka-V [field SFColor color] "../knihovny/protonozka.wrl"

PROTO Lampa-V [field SFColor  barvaSvetla      1 1 1
               field SFColor  barvaLampy       0.3 0.3 1
               field MFString texturaPodstavce "../knihovny/mramor.gif" ]
{Group {
  children [

    SpotLight {    # žluté světlo
      color       IS barvaSvetla  radius      0.5
      location    0 0.3 0         direction   0 -1 0      
      cutOffAngle 0.56            attenuation 0.5 0 0   
    }

    Transform { # žárovka ve tvaru koule
      translation 0 0.18 0
      children Shape {
        geometry Sphere {radius 0.03}
        appearance Appearance {
          material Material { emissiveColor IS barvaSvetla }
        }            
      }
    }

    Transform { # podstavec ve tvaru kvádru
      translation 0 0.01 0.04
      children Shape {
         geometry Box {size 0.12 0.02 0.2}
           appearance Appearance {
             material Material { 
                diffuseColor  IS barvaLampy
                specularColor 1 1 1    ambientIntensity  1.0
              }
             texture ImageTexture { url IS texturaPodstavce}
           } 
      }
    }
    Nozka-V { color IS barvaLampy }
    Inline  { url "../knihovny/stinitko.wrl"  }
  ]
 }
}

############## Lampa-VI #####################

EXTERNPROTO Button [ field    MFNode tvary  
                     field    SFBool zapnuto 
                     eventIn  SFBool set_zapnuto
                     eventOut SFBool zapnuto_changed
  ] "../knihovny/protobutton.wrl" 

PROTO Lampa-VI [field SFColor  barvaSvetla      1 1 1
                field SFColor  barvaLampy       0.3 0.3 1
                field MFString texturaPodstavce "../knihovny/mramor.gif" ]
{Group {
  children [

    Transform { # žárovka ve tvaru koule
      translation 0 0.18 0
      children Shape {
        geometry Sphere {radius 0.03}
        appearance Appearance {
          material Material { emissiveColor IS barvaSvetla }
        }            
      }
    }

    Transform { # podstavec ve tvaru kvádru
      translation 0 0.01 0.04
      children Shape {
         geometry Box {size 0.12 0.02 0.2}
           appearance Appearance {
             material Material { 
                diffuseColor  IS barvaLampy
                specularColor 1 1 1    ambientIntensity  1.0
              }
             texture ImageTexture { url IS texturaPodstavce}
           } 
      }
    }
    Nozka-V { color IS barvaLampy }
    Inline  { url "../knihovny/stinitko.wrl"  }

    DEF SVETLO SpotLight {        # žluté světlo
      color       IS barvaSvetla  radius      0.5
      location    0 0.3 0         direction   0 -1 0      
      cutOffAngle 0.56            attenuation 0.5 0 0
      on FALSE
    }

    Transform { 
      translation 0 0.015 0.1
      scale 0.02 0.01 0.01
      children DEF VYPINAC Button { 
          tvary [ Inline {url "../knihovny/tlacitko0.wrl" }
                  Inline {url "../knihovny/tlacitko1.wrl" } ]
          zapnuto FALSE
      }
    }
  ]}
  ROUTE VYPINAC.zapnuto_changed TO SVETLO.on
}