GPascal

Hoeppie · 8. April 2012

Hi,
hat sich jemand mehr mit GPascal auseinander gesetzt und Erfahrungen?

Die Sourcen und die Dokumentation sind jetzt frei.

http://www.supercoders.com.au/blog/nickgammongpascal.shtml Der Entwickler

http://www.gammon.com.au/GPascal/ Die Dokumentation

http://www.gammon.com.au/GPascal/source/ Die Sourcen

Gruß Höp

Tale-X · 1. April 2017

So, heute mal ein lange fälliges Thema angegangen... seit über 2 Jahrzehnten vermisse ich Winkelfunktionen unter GPascal (die fehlen da genauso wie Fließkommazahlen). Für das Thema Affine Darstellung von Texturen brauche ich sie aber. Also Internet befragt und bei den Leuten aus dem Embedded Bereich fündig geworden:
http://www.atwillys.de/content…lookup-for-embedded-in-c/

Ist zwar dort in C, aber was wichtiger ist - durchgängig mit Integerzahlen. Einziges "Manko" - dort wird mit 16Bit-Zahlen gearbeitet, GPascal hat 24Bit. Ich hab versucht, das so dicht wie möglich an der C-Version zu halten... bei der steht auch dabei, was genau passiert

Code

var sin90:array[32] of integer;
i,j,k:integer;
(* Wertetabelle vorbereiten *)
procedure initsim;
begin
sin90[0]:=$000000;sin90[1]:=$000647;sin90[2]:=$000c8b;
sin90[3]:=$0012c7;sin90[4]:=$0018f8;sin90[5]:=$001f19;
sin90[6]:=$002527;sin90[7]:=$002b1e;sin90[8]:=$0030fb;
sin90[9]:=$0036b9;sin90[10]:=$003c56;sin90[11]:=$0041cd;
sin90[12]:=$00471c;sin90[13]:=$004c3f;sin90[14]:=$005133;
sin90[15]:=$0055f4;sin90[16]:=$005a81;sin90[17]:=$005ed6;
sin90[18]:=$0062f1;sin90[19]:=$0066ce;sin90[20]:=$006a6c;
sin90[21]:=$006dc9;sin90[22]:=$0070e1;sin90[23]:=$0073b5;
sin90[24]:=$007640;sin90[25]:=$007883;sin90[26]:=$007a7c;
sin90[27]:=$007c29;sin90[28]:=$007d89;sin90[29]:=$007e9c;
sin90[30]:=$007f61;sin90[31]:=$007fd7;sin90[32]:=$007fff;
end;
(* Sinusberechnung *)
function sin1(angle);
var v0,v1,va:integer;
begin
if angle < 0 then begin
repeat
angle := 32768+angle;
until angle>=0;
angle:=1+angle;
end;
v0 := (angle shr 8);
if(v0 and 32) then begin
v0 := $ffffff xor v0;
v1 := $ffffff xor angle;
end;
if((v0 and 32)=0) then begin
v1 := angle;
end;
v0:=v0 and 31;
va:=1+v0;
v1:= sin90[v0] + (((sin90[va]-sin90[v0]) * (v1 and 255)) shr 8);
if((angle shr 8) and 64) then v1 := -v1;
sin1:= v1;
end ;
(* Hauptprogramm *)
begin
initsim;
for i:=0 to 64 do begin
j:=20+sin1(512*i)/2048;
for k:=0 to j do begin
write (" ");
end ;
writeln ("*");
end ;
end .

Alles anzeigen

daybyter · 2. April 2017

In dem gcc-6502 Thread steht auch bisserl was zu den Mathe Funktionen.

Tale-X · 2. April 2017

Muss ich nochmal beim gcc-Thread reinschauen, dachte da wären Fließkommazahlen gewesen.

Kleiner peinlicher Fehler, der die Sinusfunktion unförmig machte... ist hier behoben.

Code

var sin90:array[32] of integer;
i,j,k:integer;
(* Wertetabelle vorbereiten *)
procedure initsin;
begin
sin90[0]:=$000000;sin90[1]:=$000647;sin90[2]:=$000c8b;
sin90[3]:=$0012c7;sin90[4]:=$0018f8;sin90[5]:=$001f19;
sin90[6]:=$002527;sin90[7]:=$002b1e;sin90[8]:=$0030fb;
sin90[9]:=$0036b9;sin90[10]:=$003c56;sin90[11]:=$0041cd;
sin90[12]:=$00471c;sin90[13]:=$004c3f;sin90[14]:=$005133;
sin90[15]:=$0055f4;sin90[16]:=$005a81;sin90[17]:=$005ed6;
sin90[18]:=$0062f1;sin90[19]:=$0066ce;sin90[20]:=$006a6c;
sin90[21]:=$006dc9;sin90[22]:=$0070e1;sin90[23]:=$0073b5;
sin90[24]:=$007640;sin90[25]:=$007883;sin90[26]:=$007a7c;
sin90[27]:=$007c29;sin90[28]:=$007d89;sin90[29]:=$007e9c;
sin90[30]:=$007f61;sin90[31]:=$007fd7;sin90[32]:=$007fff;
end;
(* Sinusberechnung *)
function sin1(angle);
var v0,v1,va:integer;
begin
if angle < 0 then begin
repeat
angle := 32768+angle;
until angle>=0;
angle:=1+angle;
end;
v0 := (angle shr 8);
if(v0 and 32) then begin
v0 := $ffffff xor v0;
v1 := $ffffff xor angle;
end else begin (* muss else sein *)
v1 := angle;
end;
v0:=v0 and 31;
va:=1+v0;
v1:= sin90[v0] + (((sin90[va]-sin90[v0]) * (v1 and 255)) shr 8);
if((angle shr 8) and 64) then v1 := -v1;
sin1:= v1;
end ;
(* Hauptprogramm *)
begin
initsin;
for i:=0 to 64 do begin
j:=20+sin1(512*i)/2048;
for k:=0 to j do begin
write (" ");
end ;
writeln ("*");
end ;
end .

Alles anzeigen

daybyter · 2. April 2017

Ja, beim gcc waren das floats. Stimmt.

GPascal

Ähnliche Themen

Heute so gecodet...

Jemand hier noch mit Pascal unterwegs?

Affines Texture Mapping in ... verschiedenen Sprachen