Programowanie w języku Delphi » Gotowce

GenerateMatrix

  • 3 komentarze
  • 448 odsłon
  • Oceń ten tekst jako pierwszy
dodaj to pod implementation :

//-----------------------------------------------------
procedure GenerateMatrix(width,height,centerx,centerz,level:single;numx,numz:integer;selectcenter:boolean);
var
 
x,z:integer;
  h,w:single;
begin
// (c) EMOO 2002
//w:=2*centerx/numx*width - width;
//h:=2*centerz/numz*height - height;
w:=centerx - numx*width/2;
h:=centerz - numz*height/2;
for x:=0 to numx-1 do
    begin
        for
z:=0 to numz-1 do
            begin
           
glBegin(GL_LINES);
            glColor3f(0,1,0);

            glVertex3f(w+width*x,level,h+height*z);
            glVertex3f(w+width*x,level,h+height*z+height);

            glVertex3f(w+width*x,level,h+height*z+height);
            glVertex3f(w+width*x+width,level,h+height*z+height);

            glVertex3f(w+width*x+width,level,h+height*z+height);
            glVertex3f(w+width*x+width,level,h+height*z);

            glVertex3f(w+width*x+width,level,h+height*z);
            glVertex3f(w+width*x,level,h+height*z);
            glEnd;
            if selectcenter then
                begin
                 
glBegin(GL_LINES);
                  glColor3f(1,0,1);
                  glVertex3f(centerx,level,centerz);
                  glVertex3f(centerx,level+ ((width+height)/width*height),centerz);
                  glEnd;
                end;
            end;
    end;
end;
//-----------------------------------------------------

teraz parametry procedury
width, height - wysokosc szerokość pojedyńczego "sektora" siatki
centerx,centerz - wsp. środka na płaszczyźnie XZ
level- położenie siatki w pionie
numx,numz - ilość "sektorów", (możesz se wprowadzić 1600x1600 - ale mnie to juz sie program zawiesił)
selectcenter - tworzy kreskę na środku siatki (o wsp. centerx,centerz)

to tyle, sukcesywnego programowania !

3 komentarze

kevin 2008-06-26 22:00

potrzeba do tego jakiś dodatkowych bibliotek ?

PoP_Gniezno 2006-03-13 17:23

Wporzo... nic dodać nic ująć... :-) BcbMan ma rację z tymi opisami.. przydały by się... To tak na przyszłość

BcbMan 2005-11-25 13:48

Moze by tak jakis opis? Wiem, ze dotyczy to OpenGL i generuje jakas macierz (lamerzy tacy jak ja tez chca sie dowiedziec cos na ten temat) :). W koncu to gotowiec, no nie?