Tre I En

1) Ja jeg gør

2) det ved jeg også

3 ) ja det er muligt.

Jens B

Jens du er grum....

Må jeg også få det af vide????

borrisholt>> Du får altså ikke point af mig!

1) Via Pixel kan du få fat i de enkelte Pixels (hvorved du kan spelvende/rotere efter ønske), men brug i stedet scanline da denne er væsentlig hurtigere.

2) Hvad er en \"mellemfarve\"?. Du kan (igen ved at kigge på pixel/scanline) finde farven på nogle pixels og sætte denne til \"et gennemsnit\" (hvis det er dette du kalder en \"mellemfarve\").

3) Hvis du selv har lavet begge programmre så send i stedet en meddelelse.

På den anden side, med de svar, så har Jens vel egentligt gjort sig berettiget til at få de 10 point (i øvrigt ikke mange, hvis der skal afleveres (ordentlige) svar på alle tre spørgsmål...)

En gang om dagen må være nok ;-)

Tak. Men er der ikke en som vil give mig lidt koder som skal bruges ?? (Selvom jeg ikke kan give så mange point)

jeg ville gerne dele dem op i tre emner men så ville det være med 4 point til hjert emne :-(

hjert = hvert

Hey, jeg har lige modtaget en mail om at cautoo har kommenteret. Er mailsystemet mon på vej op igen eller var jeg bare heldig?

Nej, der kom en til!

Hvis det er dit eget mailsystem ved jeg det ikke og ellers så har jeg også modtaget at der er skrevet noget nogle gange!!!!!!!!!!!!!

kig lidt på det her :

unit GraphFlip;

interface

uses Windows, Classes, Sysutils, Graphics;

function RotateBitmap270 (const bitmap : TBitmap) : TBitmap;
function RotateBitmap90 (const bitmap : TBitmap) : TBitmap;
function ConvertToGrayscale (const bitmap : TBitmap) : TBitmap;
function ConvertToNegative (const bitmap : TBitmap) : TBitmap;

implementation

function BytesPerScanline(PixelsPerScanline, BitsPerPixel, Alignment: Longint): Longint;
begin
  Dec(Alignment);
  Result := ((PixelsPerScanline * BitsPerPixel) + Alignment) and not Alignment;
  Result := Result div 8;
end;


function RotateBitmap270 (const bitmap : TBitmap) : TBitmap;
var
  x, y : Integer;
  ps, ps1, pr, pr1 : PRGBTriple;
  bpss, bpsr : Integer;

begin
  if bitmap.PixelFormat <> pf24Bit then
    raise Exception.Create (\'Invalid pixel format\');
  result := TBitmap.Create;
  result.PixelFormat := bitmap.PixelFormat;
  result.Height := bitmap.Width;
  result.Width := bitmap.Height;

  ps1 := bitmap.ScanLine [0];
  pr1 := result.ScanLine [bitmap.Width - 1];

  bpss := BytesPerScanLine (bitmap.Width, 24, 32);
  bpsr := BytesPerScanLine (result.Width, 24, 32);

  for y := 0 to bitmap.Height - 1 do
  begin
    ps := PRGBTriple (PChar (ps1) - bpss * y);

    for x := 0 to bitmap.Width - 1 do
    begin
      pr := PRGBTriple (PChar (pr1) + bpsr * x);
      Inc (pr, y);
      pr^ := ps^;
      Inc (ps)
    end
  end;
  GDIFlush
end;

function RotateBitmap90 (const bitmap : TBitmap) : TBitmap;
var
  x, y : Integer;
  ps, ps1, pr, pr1 : PRGBTriple;
  bpss, bpsr : Integer;

begin
  if bitmap.PixelFormat <> pf24Bit then
    raise Exception.Create (\'Invalid pixel format\');
  result := TBitmap.Create;
  result.PixelFormat := bitmap.PixelFormat;
  result.Height := bitmap.Width;
  result.Width := bitmap.Height;

  ps1 := bitmap.ScanLine [bitmap.Height - 1];
  pr1 := result.ScanLine [0];

  bpss := BytesPerScanLine (bitmap.Width, 24, 32);
  bpsr := BytesPerScanLine (result.Width, 24, 32);

  for y := 0 to bitmap.Height - 1 do
  begin
    ps := PRGBTriple (PChar (ps1) + bpss * y);

    for x := 0 to Bitmap.Width - 1 do
    begin
      pr := PRGBTriple (PChar (pr1) - bpsr * x);
      Inc (pr, y);
      pr^ := ps^;
      Inc (ps)
    end
  end;
  GDIFlush
end;


function ConvertToGrayscale (const bitmap : TBitmap) : TBitmap;
var
  x, y : Integer;
  ps, ps1, pr, pr1 : PRGBTriple;
  bps : Integer;
  n : Integer;

begin
  if bitmap.PixelFormat <> pf24Bit then
    raise Exception.Create (\'Invalid pixel format\');
  result := TBitmap.Create;
  result.PixelFormat := bitmap.PixelFormat;
  result.Height := bitmap.Height;
  result.Width := bitmap.Width;

  ps1 := bitmap.ScanLine [0];
  pr1 := result.ScanLine [0];

  bps := BytesPerScanLine (bitmap.Width, 24, 32);

  for y := 0 to bitmap.Height - 1 do
  begin
    ps := PRGBTriple (PChar (ps1) - bps * y);
    pr := PRGBTriple (PChar (pr1) - bps * y);

    for x := 0 to Bitmap.Width - 1 do
    begin
      n := (ps^.rgbtBlue + ps^.rgbtGreen + ps^.rgbtRed) div 3;
      pr^.rgbtBlue := n;
      pr^.rgbtGreen := n;
      pr^.rgbtRed := n;

      Inc (pr);
      Inc (ps)
    end
  end;
  GDIFlush
end;

function ConvertToNegative (const bitmap : TBitmap) : TBitmap;
var
  x, y : Integer;
  ps, ps1, pr, pr1 : PRGBTriple;
  bps : Integer;
begin
  if bitmap.PixelFormat <> pf24Bit then
    raise Exception.Create (\'Invalid pixel format\');
  result := TBitmap.Create;
  result.PixelFormat := bitmap.PixelFormat;
  result.Height := bitmap.Height;
  result.Width := bitmap.Width;

  ps1 := bitmap.ScanLine [0];
  pr1 := result.ScanLine [0];

  bps := BytesPerScanLine (bitmap.Width, 24, 32);

  for y := 0 to bitmap.Height - 1 do
  begin
    ps := PRGBTriple (PChar (ps1) - bps * y);
    pr := PRGBTriple (PChar (pr1) - bps * y);

    for x := 0 to Bitmap.Width - 1 do
    begin
      pr^.rgbtBlue := 255 - ps^.rgbtBlue;
      pr^.rgbtGreen := 255 - ps^.rgbtGreen;
      pr^.rgbtRed := 255 - ps^.rgbtRed;

      Inc (pr);
      Inc (ps)
    end
  end;
  GDIFlush
end;

end.


Så har du lidt at lege med til at rotere og gøre ved med .... til etteren

2 har Pelle svaret på .. Ellers kig på GetPixel()

3 kan du klare med at poste en message til den kontrol der skal \"klikkes på\"

Jens B

Jeg har iøvrigt et program kørende, hvor jeg tager frames fra et kamera, som jeg så laver om til et bitmap.  Som pellelil ganske rigtigt, kan man herefter benytte Scanline til at udlæse et array of pixels, som man så kan behandle.  I mit tilfælde konvertere jeg bl.a. til gråtoner (ved at strippe U signalet) og laver derefter højkontrast billeder ved at sammenligne gråtonen med en brugerdefineret tærskelværdi og dermed afgøre om det pågældende punkt skal være sort eller hvidt.  Der er mere end 300.000 pixels pr. frame, hver af 24 bit, og der er 30 frames pr. sekund. Dvs. at jeg laver mit lille stunt over 27 milioner gange pr. sekund - selv med en 850 MHz CPU er der småtravlt....

Tak for hjælpen

borrisholt>> Jeg vil se om jeg kan få din kode til at virke