Volviendo al tema de las pc en el cine. ¿Notan que cuanto mayor es el presupuesto de la película la distorción también es mayor?
P.D.
Cita:
|
Empezado por kinobi
...el uso de goto era pasaporte seguro para el suspenso...
HEREJIA!
HEREJIA!
HEREJIA!
|
Se ponian bastante violentos con el tema...
Y que tal programar con este estilo:
Código Delphi
[-]
const
mskTrans=$7BDE
;type
Tlinea=array[0..0] of word
;function bltAlpha50(BitmapDes:Tbitmap;XDes,YDes,Ancho,Alto:integer;BitmapOrg:Tbitmap;XOrg,YOrg:integer):boole an
;var linea:^Tlinea
;lineao:^Tlinea
;i,j,ajuste:integer
;begin
result:=EstaEnInterior(XDes,YDes,Ancho,Alto,XOrg,YOrg,LimitesPantalla)
;if not result then exit
;dec(Ancho)
;Ajuste:=XDes-XOrg
;for j:=0 to Alto-1 do
begin
lineao:=BitmapOrg.scanline[j+YOrg]
;linea:=BitmapDes.scanline[j+YDes]
;for i:=XOrg to Ancho+XOrg do
if lineao[i]<>$0 then
linea[i+Ajuste]:=((linea[i+Ajuste] and MskTrans)+(lineao[i] and MskTrans)) shr 1
;end
;end
;
Estoy seguro que se rasgarian las vestiduras y me acusarían de hereje por poner los ";" al inicio.
