1. Pascal / Говнокод #2778

    +96.5

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    procedure AsmRGBBiter15;assembler;
procedure AsmRGBBiter16;assembler;
//procedure AsmRGBBiter24;assembler;
procedure AsmRGBBiter32;assembler;
procedure AsmRGBBiterEx15;assembler;
procedure AsmRGBBiterEx16;assembler;
//procedure AsmRGBBiterEx24;assembler;
procedure AsmRGBBiterEx32;assembler;
procedure RGBBiterEx32(RGB32Stream,RGBNeed:pointer;Count:dword);pascal;assembler;
//procedure RGBBiterEx24(RGB32Stream,RGBNeed:pointer;Count:dword);pascal;assembler;
procedure RGBBiterEx16(RGB32Stream,RGBNeed:pointer;Count:dword);pascal;assembler;
procedure RGBBiterEx15(RGB32Stream,RGBNeed:pointer;Count:dword);pascal;assembler;
procedure AsmRGB16;assembler;
procedure AsmRGB15;assembler;
//procedure AsmRGB24;assembler;
procedure AsmRGB32;assembler;
function GetRValue32(color:dword):byte;Pascal;
function GetGValue32(color:dword):byte;Pascal;
function GetBValue32(color:dword):byte;Pascal;
//function GetRValue24(color:dword):byte;Pascal;
//function GetGValue24(color:dword):byte;Pascal;
//function GetBValue24(color:dword):byte;Pascal;
function GetRValue16(color:dword):byte;Pascal;
function GetGValue16(color:dword):byte;Pascal;
function GetBValue16(color:dword):byte;Pascal;
function GetRValue15(color:dword):byte;Pascal;
function GetGValue15(color:dword):byte;Pascal;
function GetBValue15(color:dword):byte;Pascal;
function GetSceenRect:trect;
procedure DrawSceenHLine32(x1,x2,y,color:dword);pascal;assembler;
procedure DrawSceenHLine15(x1,x2,y,color:dword);pascal;assembler;
procedure DrawSceenHLine16(x1,x2,y,color:dword);pascal;assembler;
//procedure DrawSceenHLine24(x1,x2,y,color:dword);pascal;assembler;
procedure DrawSceenVLine32(x,y1,y2,color:dword);pascal;assembler;
//procedure DrawSceenVLine24(y1,y2,x,color:dword);pascal;assembler;
procedure DrawSceenVLine15(x,y1,y2,color:dword);pascal;assembler;
procedure DrawSceenVLine16(x,y1,y2,color:dword);pascal;assembler;

    Программа работает только в 32битном режиме экрана. :D

    Запостил: Говногость, 13 Марта 2010

    Комментарии (5) RSS

    • ava Говногость 13.03.2010 22:39 # 0 

      {function AntiRGBBiter16(PointerForNeededRGB:pointer):dword;pascal;assembler;
function AntiRGBBiter15(PointerForNeededRGB:pointer):dword;pascal;assembler;
function AntiRGBBiter24(PointerForNeededRGB:pointer):dword;pascal;assembler;
function AntiRGBBiter32(PointerForNeededRGB:pointer):dword;pascal;assembler;}
var AsmRGBBiterS:tproc=nil;//Asm Function to Retranslate 32RGB in (Needed)RGB;/Input: EAX-32RGB, EBX-Pointer to (Needed)RGB;/Output: EAX-32RGB, EBX-Pointer to next (Needed)RGB;EDX-old EBX;
AsmRGBBiterExS:tproc=nil;//Asm Function to Retranslate 32RGB Stream in (Needed)RGB Stream;/Input: EAX-Pointer to 32RGB Stream, EBX-Pointer to (Needed)RGB Stream;ECX-Count RGB in Stream/Output: EAX-New Pointer to 32RGB Stream, EBX-Pointer to New (Needed)RGB Stream;EDX -Destroyed;ECX=0
AsmRGBS:tproc=nil;//Input: EAX-32RGB;/EAX-(Needed)RGB;EDX-Destroyed;
RGBS:tRGBSFunc=nil;//(r,g,b:byte):dword;
RGBBiterExS:tRGBBiterExProc=nil;//(RGB32Stream,RGBNeed:pointer;Count:dword);
{AntiRGBBiterS:tAntiRGBBiterFunc=nil;//result:=32RGB;}
DrawTransparentSSFChar16,DrawTransparentSSFCharS:tDrawTransparentSSFCharFunc;//need MakeBackPtr;
DrawSSFChar16,DrawSSFCharS:tDrawSSFCharFunc;
GetRValueS,GetGValueS,GetBValueS:tGetXValueFunc;
DrawSceenHLineS:tDrawSceenHLineSProc=nil;
DrawSceenVLineS:tDrawSceenVLineSProc=nil;

      :D
      Ответить

    • ava guest 15.03.2010 18:35 # 0

      AntiRGBBiter16))))))))))))
      Ответить

    • ava guest 15.03.2010 18:36 # 0

      Это нужно отправить в ассемблер, а не вдельфи. :p
      Ответить

    • ava guest 15.03.2010 18:40 # −5.4

      показать все, что скрытоГде здесь С++?
      Ответить

    • ava guest 23.06.2011 00:37 # 0

      Ну и имена функций...
      Особенно интересно, что делает функция AntiRGBBiter16?
      Ответить

    Добавить комментарий