equal
deleted
inserted
replaced
640 |
640 |
641 p:= tmpsurf^.pixels; |
641 p:= tmpsurf^.pixels; |
642 for y:= 0 to Pred(tmpsurf^.h) do |
642 for y:= 0 to Pred(tmpsurf^.h) do |
643 begin |
643 begin |
644 for x:= 0 to Pred(tmpsurf^.w) do |
644 for x:= 0 to Pred(tmpsurf^.w) do |
645 Land[cpY + y, cpX + x]:= p^[x]; |
645 begin |
|
646 if (($FF000000 and p^[x]) = 0) then // Tiy was having trouble generating transparent black |
|
647 Land[cpY + y, cpX + x]:= 0 |
|
648 else |
|
649 Land[cpY + y, cpX + x]:= p^[x]; |
|
650 end; |
646 p:= @(p^[tmpsurf^.pitch div 4]); |
651 p:= @(p^[tmpsurf^.pitch div 4]); |
647 end; |
652 end; |
648 |
653 |
649 if SDL_MustLock(tmpsurf) then |
654 if SDL_MustLock(tmpsurf) then |
650 SDL_UnlockSurface(tmpsurf); |
655 SDL_UnlockSurface(tmpsurf); |