ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽｿｽx 2011/05/05(ｿｽｿｽ) 13:32:04

ｿｽiD6ｿｽpｿｽ[ｿｽ¥ｿｽiｿｽｿｽｿｽj
ｿｽｿｽｿｽｿｽ鞫懶ｿｽｿｽ]ｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽScanLineｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ]ｿｽｿｽｿｽﾉピｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽﾌ色ｿｽｿｽｿｽｿｽHｿｽｿｽｿｽﾄ茨ｿｽxｿｽﾅ色ｿｽﾌ会ｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ茨ｿｽwｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾝのソｿｽ[ｿｽXｿｽﾌ要ｿｽ_ｿｽﾍ会ｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ@pDests[iy][ix] := pSources[my][mx];ｿｽ@ｿｽﾌとゑｿｽｿｽｿｽﾅ色ｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、ｿｽ痰ｦｿｽｿｽ(ｿｽｿｽｿｽﾈ擾ｿｽﾌ厄ｿｽｿｽ驍ｳｿｽﾅゑｿｽｿｽｿｽﾎ撰ｿｽｿｽﾆ費ｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾉ選ｿｽﾊゑｿｽｿｽｿｽﾆゑｿｽｿｽﾄ）
ｿｽ@if R+G+B>50 then begin
      R1:=255; G1:=255; B1:=255;ｿｽ@//ｿｽKｿｽｿｽｿｽｿｽRGBｿｽｿｽwｿｽ閧ｵｿｽｿｽｿｽｿｽ
  end;
ｿｽｿｽｿｽｿｽR1,G1,B1ｿｽｿｽｿｽ]ｿｽｿｽﾌピｿｽNｿｽZｿｽｿｽｿｽﾉ塗ｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽScanLineｿｽﾍ擾ｿｽｿｽﾟてでゑｿｽ閧ｩｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

var
  Dest: TBitmap; 
  pSources, pDests: array of PRGBArray;
  soWidth, soHeight, deWidth, deHeight: Integer;
  (ｿｽｿｽｿｽﾌ托ｿｽｿｽﾍ省暦ｿｽｿｽj
Begin

ｿｽiｿｽｿｽｿｽAｿｽｿｽｿｽAｿｽｿｽｿｽSｿｽｿｽｿｽWｿｽﾈどの計ｿｽZｿｽﾆ設抵ｿｽj

  //** ｿｽｿｽ]ｿｽｿｽ鞫懶ｿｽﾌ設抵ｿｽ
  Dest := TBitmap.Create;

deWidth := sowidth; 
   deHeight := soheight; 

  try

    Dest.PixelFormat := pf24bit;

    dest.Width:=sowidth;
    dest.Height:=soheight;

    with Dest.Canvas doｿｽ@//ｿｽｿｽｿｽｿｽｿｽhｿｽｿｽ
    begin
      Brush.Color := clWhite;
      FillRect(Rect(0, 0, soWidth, soHeight));
    end;

    //** ScanLineｿｽLｿｽｿｽｿｽbｿｽVｿｽｿｽｿｽﾌ作成
    //== ｿｽｿｽｿｽ鞫
    SetLength(pSources, soHeight);
    for I := 0 to soHeight - 1 do pSources[I] := Source.ScanLine[I];

    //== ｿｽｿｽ]ｿｽｿｽﾌ画像
    SetLength(pDests, deHeight);
    for I := 0 to deHeight - 1 do pDests[I] := Dest.ScanLine[I];

    //## ｿｽ鞫懶ｿｽﾌ会ｿｽ] 
    for iy := 0 to soHeight - 1 do begin
      dy:=iy-cy;ｿｽ@ｿｽ@//cy=ｿｽｿｽｿｽｿｽ/ｿｽQ

      for ix := 0 to soWidth - 1 do begin
        dx:=ix-cx;ｿｽ@//cx=ｿｽｿｽ/ｿｽQ
                mx := Trunc(CosRad * dx - SinRad * dy + 0.5+cx); 
                my := Trunc(SinRad * dx + CosRad * dy + 0.5+cy);  
 
        if (mx<sowidth) and (mx>0) and (my<soheight) and (my>0) then begin
ｿｽ@ｿｽ@
                pDests[iy][ix] := pSources[my][mx];

        end;

      end; //ix
    end;   //iy

  finally
    Source.Free;
  end;

KHE00221 2011/05/05(ｿｽｿｽ) 19:30:54

ｿｽｿｽｿｽｿｽﾅわかｿｽ驍ｩｿｽﾈ？

  TRGB = packed record 
    Blue     : Byte;
    Green    : Byte;
    Red      : Byte;
  end;

  TRGBArray    = array[0..0] of TRGB;
  PRGBArray    = ^TRGBarray;

var
   SrcRow : pRGBArray;

   for Y:=0 to H-1 do
   begin
     SrcRow := Bmp.ScanLine[Y];
     for X:=0 to W-1 do
     begin
       R := SrcRow[X].Red;
       G := SrcRow[X].Green;
       B := SrcRow[X].Blue;
     end;
   end;

ｿｽｿｽx 2011/05/06(ｿｽｿｽ) 11:58:52

KHE00221ｿｽlｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽ1ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽScanLineｿｽﾅゑｿｽｿｽｿｽｿｽﾌでまゑｿｽ1ｿｽsｿｽﾃつ変色ｿｽﾌテｿｽXｿｽgｿｽｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾅ終ｿｽIｿｽﾉは画像ｿｽﾌ会ｿｽ]ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで違うｿｽsｿｽﾌデｿｽ[ｿｽ^ｿｽ操搾ｿｽ
ｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで各ｿｽsｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽiｿｽZｿｽpｿｽIｿｽﾉはよくｿｽかｿｽｿｽﾈゑｿｽｿｽ況でゑｿｽｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽﾉ配ｿｽｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽ轤､ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽLｿｽﾌテｿｽXｿｽgｿｽｿｽﾍカｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽmｿｽNｿｽｿｽｿｽﾉゑｿｽｿｽﾄ上下ｿｽｿｽｿｽ]ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ黷ｪｿｽﾅゑｿｽｿｽｿｽﾎ思ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽﾌでゑｿｽｿｽ黷ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽいｿｽｿｽHｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽﾌ技ｿｽｿｽgｿｽﾉつゑｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

/////
bmp1.PixelFormat := pf24bit;
bmp2.PixelFormat := pf24bit;

setlength(abmprow1 ,h1);
setlength(abmprow2 ,h1);

 for jy := 0 to h1-1 do aBMProw1[jy]:=bmp1.ScanLine[jy];
 for jy := 0 to h1-1 do aBMProw2[jy]:=bmp2.ScanLine[jy];

 for jy := 0 to h1-1 do  //ｿｽcｿｽｿｽｿｽｿｽｿｽﾌ繰ｿｽｿｽﾔゑｿｽ
  begin

   ky:=h1-jy-1;  //ｿｽ繪ｺｿｽｿｽｿｽ]ｿｽﾌゑｿｽｿｽｿｽｿｽW

   for ix := 0 to w1-1 do //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ繰ｿｽｿｽﾔゑｿｽ
    begin

       Rb := abmpRow1[jy][iX].R;
       Gb := abmpRow1[jy][iX].G;
       Bb := abmpRow1[jy][iX].B;

     brt:=trunc(rb*0.3+gb*0.59+bb*0.11);
     aBMProw2[ky][ix].R := brt;
     aBMProw2[ky][ix].G := brt;
     aBMProw2[ky][ix].B := brt;
    end;
  end;

//ｿｽﾅ鯉ｿｽｿｽFORM1ｿｽﾖコｿｽsｿｽ[
 form1.Canvas.Draw(0,50,bmp2);
 bmp1.Free;
 bmp2.Free;

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ