Program pre otáèanie texturou pomocou kolineránich transformácií

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Category: KMP (Club of young programmers)
krychle.pngProgram: Krychle.pas,  U_crt.pas,  U_graf13.pas,  U_znacka.pas
File exe: Krychle.exe
need: Textura2.bmp,  Textura2.obj

Program pre otáèanie texturou pomocou kolineránich transformácií.
{ u_znacka.pas                                                       }
{ Unit pre program krychle.pas                                       }
{                                                                    }
{ Author:                                                            }
{ Datum:02.02.2008                              http://www.trsek.com }
 
{$D-,E-,G+,I-,L-,N-,P+,Q-,R-,S-,T-,V-,Y- exe}
Unit U_Znacka;
 
{********************************
 * Prida do vysledneho exe codu *
 * citelnou tabulku pod dosem.  *
 ********************************}
 
Interface
Implementation
Const
   MaByt=25509;
   Je:Word=0;
 
Procedure Secti(S:String);
Var a:Byte;
Begin
   For a := 1 to Length(S) do Je := Je + Ord(S[a]);
End;
 
Begin
{s := '123';
...cokoliv... napr. s:= 'erza';
 s := '123'; ulozi konstantu '123' jen jednou!!! pouzit mezery}
 
 {#9 Tabulator
 #13 Enter, Dalsi radek u Nortona pri cteni (F3)
 #13#10 Dalsi radek u Nortona pri cteni a zapisovani (F4)
 Spatne je #10#13 u F3 = 2 radky, u F4 zadny
 }
 Secti(#13#10);
 Secti(#9#9'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'#13#10);
 Secti(#9#9'³ GET OUT OF MY CODE, YOU SILLY MOTHERFUCKER! ³'#13#10);
 Secti(#9#9'³        Baruk Khazƒd! Khazƒd ai-mˆnu!        ³'#13#10);
 Secti(#9#9'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'#13#10);
 IF Je <> MaByt Then Halt;
 {"a" testuje zda nebyla tabulka zmenena(rucne v nejakem editoru)}
End.