Program pre otßŔanie texturou pomocou kolinerßnich transformßciÝ

Delphi & Pascal (Ŕeskß wiki)
P°ejÝt na: navigace, hledßnÝ
Kategorija: KMP (Programy mlad˛akoch
krychle.pngProgram: Krychle.pasU_crt.pasU_graf13.pasU_znacka.pas
Subor exe: Krychle.exe
Mu╣i╣ mac: Textura2.bmpTextura2.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.