Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Technische Diskussionen » Kreis zeichnen mit Sinus-Cosinus » Themenansicht

Autor

Thread - Seiten: -1-

000
27.04.2013, 17:59 Uhr
funkheld

Hallo, guten Tag.

Wie sieht eine ALLOT-Tabelle aus ?

Quellcode:

DECIMAL
VARIABLE SINUSTABELLE 91 ALLOT
0000 ,  0175 ,  0349 ,  0523 ,  0698 ,  0872 ,
1045 ,  1219 ,  1392 ,  1564 ,  1736 ,  1908 ,
2079 ,  2250 ,  2419 ,  2588 ,  2756 ,  2924 ,
3090 ,  3256 ,  3420 ,  3584 ,  3746 ,  3907 ,
4067 ,  4226 ,  4384 ,  4540 ,  4695 ,  4848 ,
5000 ,  5150 ,  5299 ,  5446 ,  5592 ,  5736 ,
5878 ,  6018 ,  6157 ,  6293 ,  6428 ,  6561 ,
6691 ,  6820 ,  6947 ,  7071 ,  7193 ,  7314 ,
7431 ,  7547 ,  7660 ,  7771 ,  7880 ,  7986 ,
8090 ,  8192 ,  8290 ,  8387 ,  8480 ,  8572 ,
8660 ,  8746 ,  8829 ,  8910 ,  8988 ,  9063 ,
9135 ,  9205 ,  9272 ,  9336 ,  9397 ,  9455 ,
9511 ,  9563 ,  9613 ,  9659 ,  9703 ,  9744 ,
9781 ,  9816 ,  9848 ,  9877 ,  9903 ,  9925 ,
9945 ,  9962 ,  9976 ,  9986 ,  9994 ,  9998 ,
10000 ,

: SINUS@ 2 * SINUSTABELLE + @ ;

: SIN
   DUP 0< >R ABS
   360 MOD
   DUP 180 > IF 180 - -1 >R ELSE 0 >R THEN
   DUP  90 > IF 180 SWAP - THEN
   SINUS@
   R> IF -1 * THEN
   R> IF -1 * THEN ;

: COS 90 + SIN ;

Danke.

Gruss
peter

Dieser Beitrag wurde am 27.04.2013 um 19:59 Uhr von funkheld editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
27.04.2013, 19:27 Uhr
volkerp
Default Group and Edit

allot wird gar nicht benötigt. Schau mal bei http://www.forth-ev.de/wiki/doku.php/words:sinus vorbei ...
--
VolkerP

http://hc-ddr.hucki.net
(Z9001, Z1013, LC-80, ...)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
27.04.2013, 19:57 Uhr
funkheld

Au ...Backe... danke.

Das klappt wunderbar mit der Grafik.

Hier ist ein Strahlenbündel mit dem Forth-ASM-Sourcode :
-------------------------------------------------
; File Name : c : \ user\hobby\hobby0\f83 fg forth\z1013\f83 1.3 bcb2.rom
; Format : Binary file
; Base Address: 0000h Range: 0200h - 2A20h Loaded length: 2820h

; F83 Version V1.3 Th. Beierlein 1988
; Anpassung Z1013 A.2 Andreas Driesel 1988
; reass. VPohlers 11/2010
-------------------------------------------------

, erweitert mit dem ASM , GET_PUT, SINUS-Tabelle und den Grafikkbefehlen von der fa92_grafik. Dieses erweiterte Forth hat 14000Kb und ich habe jetzt noch ca 17000Kb frei ! Als Speichermedium benutze den USB-Stick , der auch am originalen Z1013 sein dasein hat mit dem dazugehörigen Z1013-Programm.

Das Bild:
http://forum.zusi.de/viewtopic.php?f=21&t=11501

Quellcode:

VARIABLE X
VARIABLE Y

: STERN
  GCLS
  360 0 DO
    I SIN 80 10000 */ X !
    I COS 80 10000 */ Y !
    128 128 X @ 128 + Y @ 128 + GLINE
  10 +LOOP
  KEY
  DROP
  GOFF ;

PS: Der Z1013 ist ein sehr gut geeigneter Computer für das Forth-System.

Gruss
peter

Dieser Beitrag wurde am 27.04.2013 um 22:22 Uhr von funkheld editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
27.04.2013, 22:39 Uhr
funkheld

Hier sind jetzt noch einmal die ASM-Befehle für die Grafik mit "POP" in ASM :

Quellcode:

HEX
D0F5 CONSTANT PEN0
D0E1 CONSTANT PEN1
D0E5 CONSTANT PEN2
D0D4 CONSTANT PEN3
D1AA CONSTANT PSET
D1B2 CONSTANT LINE
D1BB CONSTANT LINETO
DECIMAL

CODE GCLS
 BC PUSH,
 PEN0 #) CALL,
 PEN1 #) CALL,
 BC POP,
NEXT END-CODE

CODE GPSET
 DE POP,
 HL POP,
 E H LD,
 BC PUSH,
 PSET #) CALL,
 BC POP,
NEXT END-CODE

CODE GLINETO
 DE POP,
 HL POP,
 E H LD,
 BC PUSH,
 LINETO #) CALL,
 BC POP,
NEXT END-CODE

CODE GLINE
 DE POP,
 HL POP,
 E H LD,
 DE POP,
 E A LD,
 DE POP,
 E D LD,
 A E LD,
 BC PUSH,
 LINE #) CALL,
 BC POP,
NEXT END-CODE

CODE GOFF
 BC PUSH,
 PEN3 #) CALL,
 BC POP,
NEXT END-CODE

Gruss
peter

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
27.04.2013, 22:48 Uhr
Micha

Avatar von Micha

in einem Buch zum Thema Forth (Zech: die Programmiersprache Forth) steht im Vorwort: "Forth wird nicht ganz zu Unrecht als Write-Only Language bezeichnet"

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
27.04.2013, 22:56 Uhr
funkheld

Es wäre schön, wenn auf diesen Geräten wieder mit Forth programmiert wird.
Der Z1013 und der KC87 sind dafür optimal. Das Lernen mach mir mit 64 Jahren gerade am Z1013-JKcemu Spass. Ist sehr übersichtlich und man sieht den Erfolg. Das Forth ist sehr schnell und man kommt in allen Ecken und Kannten damit, wenn das System bekannt ist. Siehe oben den Grafikerfolg, Assembler pur, welche Sprache kann das schon so schnell mischen.
Gerade beim Z1013 ist die Grafik vernachlässigt worden, ich glaube die wurde da nie so richtig entdeckt in der Wundermaschiene mit der einfach aufgebauten Grafikplatine.

Gruss
peter

Dieser Beitrag wurde am 28.04.2013 um 18:05 Uhr von funkheld editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Technische Diskussionen ]