Delphi

Delphi code posted
created at 20 Jul 19:57

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
var
 Fit: TFitsFileFrame;
 Hdu: THduCore2d;
begin

 // init header core

 Hdu.Simple := True;
 Hdu.BitPix := bi16c;
 Hdu.NAxis1 := 1024;
 Hdu.NAxis2 := 1024;
 Hdu.BScale := 1.0;
 Hdu.BZero  := 0.0;

 // create new file

 Fit := TFitsFileFrame.CreateMade('some.fit', Hdu);

 // ... some code

 Fit.Free;

end;
379 Bytes in 2 ms with coderay