diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-23 22:24:27 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-23 22:24:27 +0000 |
| commit | ab1423bcf52ec322218fa6a7351795da38e16da5 (patch) | |
| tree | 821885c8d68784afd3f1a64050ff1f00c911aeea | |
| parent | 2b99e27aee7efb65f25b2444e6b574c8c66b7e2e (diff) | |
| download | usdx-ab1423bcf52ec322218fa6a7351795da38e16da5.tar.gz usdx-ab1423bcf52ec322218fa6a7351795da38e16da5.tar.xz usdx-ab1423bcf52ec322218fa6a7351795da38e16da5.zip | |
indentation, no code change
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1410 b956fd51-792f-4845-bead-9b4dfca2ff2c
| -rw-r--r-- | src/menu/UDrawTexture.pas | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/menu/UDrawTexture.pas b/src/menu/UDrawTexture.pas index 92837fab..33082765 100644 --- a/src/menu/UDrawTexture.pas +++ b/src/menu/UDrawTexture.pas @@ -46,7 +46,6 @@ uses gl; procedure DrawLine(X1, Y1, X2, Y2, ColR, ColG, ColB: real); - begin glColor3f(ColR, ColG, ColB); glBegin(GL_LINES); @@ -56,7 +55,6 @@ begin end; procedure DrawQuad(X, Y, W, H, ColR, ColG, ColB: real); - begin glColor3f(ColR, ColG, ColB); glBegin(GL_QUADS); @@ -68,13 +66,11 @@ begin end; procedure DrawTexture(Texture: TTexture); - var x1, x2, x3, x4: real; y1, y2, y3, y4: real; xt1, xt2, xt3, xt4: real; yt1, yt2, yt3, yt4: real; - begin with Texture do begin |