- TWand=class(Tcomponent)
- public
- procedure init(pSVec,pRVec:TVec3d;pHeight:double;pTextur:gluInt);
- function GetTextur:gluInt;
- function GetSVec:TVec3d;
- function GetRVec:TVec3d;
- function GetHeight:double;
- private
- SVec,RVec:TVec3d; //Startvektor, Richtungsvektor
- height:double; //Höhe der Wand
- Textur:GluInt;
- end;