004
30.01.2011, 12:48 Uhr
runni
|
ups, vertauscht, leider schreibt der Hersteller nur das 704x288 einem mögliche Auflösung ist bis max. 1024x1024..
Quellcode: | {$I glib.lib} {$I dma.lib} {$I line.lib} type str=string[8];
var i:integer;
procedure ScRead(name:str); type linep=array[1..40] of integer; var bildf:file of linep; bild:linep; begin Assign(bildf,name+'.scr'); rewrite(bildf); for i:=0 to 287 do begin DmaRead(bild,i,1); write(bildf,bild); end; close(bildf); end;
begin OpenGlib; DeviceOn; AbsolutOn; WritingMode(3); for i:=0 to 640 do Line(0,0,i,576); for i:=640 downto 0 do Line(640,0,i,576); ScRead('bild'); CloseGlib;
end.
|
|