Forth sur ZX81

[Dominique]

Bonjour à tous.

Je ne sais pas si les adeptes du forth sont nombreux sur ce site, mais si celà vous tente, je vous invite à jeter de temps en temps un coup d'oeil sur le site que je viens de débuter.

forthretro.new.fr

Le forth est peut être le langage du futur pour le ZX81
En tous cas j'en étais convaincu à l'époque.

Grace au forth le ZX81 peut parler comme un grand avec du Begin while repeat until, il fait du langage objet, de la récursion, de l'UDG etc enfin tout ce que vous n'auriez jamais imaginé.

SVP, soyez patient, je vais mettre à jour le site à jour au fur et à mesure de mon temps libre.
Bonsoir à tous et particulièrement à l'ami Xavier

[Torlus]

francoisp31 est appelé au parloir
Le forth j'aime bien aussi, j'ai fait joujou un peu avec (implémentation sur ARM, en Java et même sur un proc "fait maison"), j'attends la suite

[Xavier]

Salut,

Oui, avant que Dominique ne me contact, j'y compenais rien au Forth !
Bon, c'est toujours le cas ... mais avec du recule et tous les exemples.
On peut mieux maîtriser ce language ...
Merci pour tout.
Xav.

[Xavier]

Salut,

Bientôt, la version du compilateur de Dominique passera en HRG !
D'ici deux ou trois jour... le temps de mettre Vb81 Xur à jour.
Encore des nuits blanches à prévoire en programmation Forth...

[Forthretro.new.fr]

Salut à tous, bonne année à tous !
Désolé Xav si je te donne du travail, mais on sait que tu aimes çà !
Voici une version qui tourne à peu près bien sur les deux emul EO et le VB.
Après avoir chargé ZX4PAINT à
http://forthretro.new.fr/download/ZX4PAINT.zip
juste taper le <NewLine>
- Les flèches pour bouger le curseur.
- Touche '0' = Blanc - Touche '1'=Noir
- Touche ‘L’ se met en mode ‘LIGNE’ + les Flèches puis ‘L’ à nouveau pour valider la ligne.
- Touche ‘R’ se met en mode ‘RECTANGLE’ + flèches puis ‘R’ à nouveau pour valider le Rectangle
- Touche ‘F’ pour ‘FILL’ (Remplir d’encre une figure fermée) – ATTENTION : bien se mettre A l INTERIEUR d’une figure FERMEE, sinon il va peindre tout l’écran – D’ailleurs il plante avant.
- Touche ’ X’ pour sortir.
- Pour relancer le prog. Taper : ZX4PAINT puis faire <NL>


Dominique

[Xavier]

Merci Dominique !

Je mets le Xur à jour demain.
Sans les modifs clavier...
... Il y a trop de travail !

[Forthretro.new.fr]

OK Xavier ! Merci

D'ailleurs faire des diagonales en appuyant sur 2 touches n'ajoute pas grand chose.
SVP n'oublie pas de mettre la nouvelle version forth avec l'Editeur en mémoire haute comme envoyé l'autre jour.
Je bosse à rajouter le cercle en tapant 'C'.
...Pour la prochaine version.
Salut

[Xavier]

OK Xavier ! Merci
SVP n'oublie pas de mettre la nouvelle version forth avec l'Editeur en mémoire haute comme envoyé l'autre jour.
Je bosse à rajouter le cercle en tapant 'C'.
...Pour la prochaine version.
Salut

Voilà, la nouvelle version est disponible.
J'y ai mis les deux versions : la standard et celle en HRG (mémoire Haute).
Car j'ai remarqué que certaines routines avait été effacées (vlist par exemple).

[Dominique]

Version V2-beta de :
ZX4PAINT
Modifications :
- Meilleure option 'R' - Rectangle
- Meilleure lecture du clavier
- Meilleure lecture de sortie d'Ecran
Nouvelles options :
- Lettre 'C' pour CERCLE
- Lettre 'E' pour ELLIPSE ( Je vais l'améliorer grandement ces jours ci car elle est trop lente)

- Les sources en Forth sont dans le fichier 4TT inclus au ZIP - (à editer avec le bloc note)

Après avoir chargé ZX4PAINT à
http://forthretro.new.fr/download/ZX4PAINT.zip
juste taper le <NewLine>
- Les flèches pour bouger le curseur.
- Touche '0' = Blanc - Touche '1'=Noir
- Touche ‘L’ se met en mode ‘LIGNE’ + les Flèches puis ‘L’ à nouveau pour valider la ligne.
- Touche ‘R’ se met en mode ‘RECTANGLE’ + flèches puis ‘R’ à nouveau pour valider le Rectangle
- Touche 'C' se met en mode ‘CERCLE’ + flèches puis ‘C’ à nouveau pour valider le Cercle
- Touche 'E' se met en mode ‘ELLIPSE’ + flèches puis ‘E’ à nouveau pour valider l'ELLIPSE
- Touche ‘F’ pour ‘FILL’ (Remplir d’encre une figure fermée) – ATTENTION : bien se mettre A l INTERIEUR d’une figure FERMEE, sinon il va peindre tout l’écran –
- Touche 'P' pour mode PASTE - flèches pour définir le rectangle à copier - SHIFT C pour copier - flèches
pour promener le rectangle - SHIFT V pour COLLER
- Touche 'U' pour UNDO après avoir validé un des modes ci dessus
- Touche ’ Q’ pour sortir.
- Pour relancer le prog. Taper : ZX4PAINT puis faire <NL>


Dominique

[Dominique]

Bonsoir,

ZX4PAINT est à la V3.
Principales modifs :
- Contrôle de sortie d'écran pour le mode FILL
- Touche 'U' pour UNDO après avoir fait FILL LINE, RECTANGLE, CERCLE ou ELLIPSE.

http://forthretro.new.fr/download/ZX4PAINT.zip

Je m'attaque à pouvoir y faire un copier/coller.

[Dominique]

Quelques modifs pour la version ZX4PAINT V4
- Un bug dans la fonction FILL m'a beaucoup perturbé - Réparé.
- Pour sortir, touche 'Q' au lieu de 'X' (ça me semblait logique)
- Touche 'P' pour passer en mode COPY/PASTE - On dimensionne le rectangle abev les flèches - SHIFT C pour COPIER - On promène le rectangle - SHIFT V pour COLLER.

http://forthretro.new.fr/download/ZX4PAINT.zip

Je m'attaque à la LOUPE.

A+ Dominique