sub task (obj as LightSwitcher)
    dim m as Mouse	' definiert Variable vom Typ Mouse
    set m = GetFirstMouse	' und weist ihr die Maus zu
    dim light as PointLight	' def. Variable vom Typ PointLight
    set light = GetPointLight("PointLight-1")	' weist ihr das Objekt PointLight-1 zu
    dim pickedObject as Geometry	' Variable m. beliebigem Untertyp von 	' Geometry
    dim screenpointer as Vect2d	' definiert einen Variable als 2D-Vektor
    m.GetPosition screenpointer	' weist ihr die aktuelle Mausposition zu

    if m.MiscData AND LeftDown then
      set pickedObject = PickGeometry(screenpointer)
      ' War das angeklickte Objekt der Lichtschalter, wird das Licht umgeschaltet:
      if (pickedObject is not nothing) AND (pickedObject.name = obj.name) then
        light.Enabled = not light.Enabled
    end if
    end if
end sub
