22878120 / delafits Goto Github PK

var
  Fit: TFitsFileBitmap;
  I, X, Y: Integer;
  Item: TLineItem;
  Rgn: TRgn;
  Data: array of array of Integer;
  Bmp: TBitmap;
begin
  Fit := TFitsFileBitmap.CreateJoin('some.fit', cFileReadWrite);
  Data := nil;
  Bmp := nil;
  try
    // edit header
    I := Fit.LineBuilder.IndexOf('DATE-OBS');
    if I >= 0 then
    begin
      Fit.LineBuilder.ValuesDateTime[I] := Now;
      Fit.LineBuilder.Notes[I] := 'Set datetime';
    end
    else
    begin
      Item.Keyword       := 'DATE-OBS';
      Item.ValueIndicate := True;
      Item.Value.Dtm     := Now;
      Item.NoteIndicate  := True;
      Item.Note          := 'Add datetime';  
      Fit.LineBuilder.Add(Item, cCastDateTime);
    end;   
    // edit data
    Rgn.X1        := 0;
    Rgn.Y1        := 0;
    Rgn.ColsCount := 200;
    Rgn.RowsCount := 200;
    Fit.DataRep := rep32c;
    Fit.DataPrepare(Pointer(Data), Rgn);
    Fit.DataRead(Pointer(Data), Rgn); 
    for Y := 0 to Rgn.RowsCount - 1 do
    for X := 0 to Rgn.ColsCount - 1 do
      Data[X, Y] := Data[X, Y] + 1; 
    Fit.DataWrite(Pointer(Data), Rgn);    
    // render
    Bmp := TBitmap.Create;
    Rgn.X1     := 0;
    Rgn.Y1     := 0;
    Rgn.Width  := 200;
    Rgn.Height := 200;
    Fit.GraphicColor.ToneContrast := 1.2;
    Fit.GraphicGeom.Scl(2.0, 2.0, xy00).Rot(45.0, xy00);
    Fit.BitmapRead(Bmp, Rgn);
    Bmp.SaveToFile('some.bmp');    
  finally
    Fit.Free;
    if Assigned(Bmp) then
      Bmp.Free;
    Data := nil;
  end;
end;