Derniers sujets
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités Aucun
Le record du nombre d'utilisateurs en ligne est de 29 le Mer 25 Fév 2015 - 14:01
Connexion
Statistiques
Nous avons 242 membres enregistrésL'utilisateur enregistré le plus récent est AIRBUS44
Nos membres ont posté un total de 8922 messages dans 811 sujets
[résolu][BASIC] - Draw n'écrit pas une ligne ???
4 participants
Forum Oric :: Forums :: Forum Public :: BASIC
Page 1 sur 1
[résolu][BASIC] - Draw n'écrit pas une ligne ???
Bon il m'arrive tj des trucs bizarres qui me dépassent, vous avez l'habitude
je teste qqs lignes de dessin élémentaires et il refuse de dessiner la 4e ligne qui remonte
si vous avez une idée, 1000 merci
j'ai essayé de changer la variable par le chiffre , sous oricutron et euphoric, nada
ci joint le texte et le prog complet
je teste qqs lignes de dessin élémentaires et il refuse de dessiner la 4e ligne qui remonte
si vous avez une idée, 1000 merci
- Code:
10 PAPER 0:INK 7:HIRES:POKE#26A,PEEK(#26A)AND254
40 H1=40:H2=30:H3=14'hauteur selon les 3 plans
45 LP=44:LB=54:X0=9:Y0=38'largeur plan, largeur bloc, départ
1020 CURSET X0,0,1
1030 DRAW LP,H2,1
1040 DRAW 0,H2*4,1
1050 DRAW -LP,H2,1
1060 DRAW 0,-(H2*6),1
j'ai essayé de changer la variable par le chiffre , sous oricutron et euphoric, nada
ci joint le texte et le prog complet
- Fichiers joints
Dernière édition par maximus le Sam 12 Mai 2018 - 22:16, édité 1 fois
Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???
Hello,
Tu as essayé de voir avec des print ... ce que retournais l'interpréteur ?
Sinon, le -(H2*6) m'inquiete un peu ...
Tu as essayé de voir avec des print ... ce que retournais l'interpréteur ?
Sinon, le -(H2*6) m'inquiete un peu ...
Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???
Salut Maximus,
Pour moi, je viens de tester le code tel quel dans ton post (pas le ZIP), sur une version d'Oricutorn sur MacOS , et ça passe nickel,n ça dessine un mur en 3D sur la gauche de l'écran HIRES (comme dans Tyrann je pense... ).
Avant d'exécuter le code, pour être sûr je l'avais modifié comme suit pour faire des PRINT, pour voir s'il n'y avait pas de 'sortie d'écran" lors des DRAW avec les coordonnées indiquées, mais c'est nickel:
(pour cette première exécution je n'ai pas mis ta ligne 10 bien sûr..)
Voilà ce que ça donnait à l'exécution:
Comme on le voit, pas de souci a priori à première lecture.
Du coup, pour vérifier je suis passé en HIRES et ai exécuté les commandes avec les valeurs "en dur" une à une... Pas de souci.
Et graphiquement donc, ça donne (approximativement) ça:
Après, j'ai réexécuté ton code d'origine, mais SANS le POKE en ligne 10: pas de souci.
Et en rajputant le POKE (je ne savais pas trop ce qu'il faisait de mémoire, en fait il cache juste le curseur BASIC), pas de souci non plus...
Bref... Je ne vois pas trop pourquoi ça coince chez toi ??
Pour moi, je viens de tester le code tel quel dans ton post (pas le ZIP), sur une version d'Oricutorn sur MacOS , et ça passe nickel,n ça dessine un mur en 3D sur la gauche de l'écran HIRES (comme dans Tyrann je pense... ).
Avant d'exécuter le code, pour être sûr je l'avais modifié comme suit pour faire des PRINT, pour voir s'il n'y avait pas de 'sortie d'écran" lors des DRAW avec les coordonnées indiquées, mais c'est nickel:
- Code:
40 H1=40:H2=30:H3=14'hauteur selon les 3 plans
45 LP=44:LB=54:X0=9:Y0=38'largeur plan, largeur bloc, départ
1020 ? "CURSET "; X0;","; 0;","; 1
1030 ? "DRAW "; LP;","; H2;","; 1
1040 ? "DRAW "; 0;","; H2*4;","; 1
1050 ? "DRAW "; -LP;","; H2;","; 1
1060 ? "DRAW "; 0;","; -(H2*6);","; 1
(pour cette première exécution je n'ai pas mis ta ligne 10 bien sûr..)
Voilà ce que ça donnait à l'exécution:
- Code:
CURSET 9 , 0 , 1
DRAW 44 , 30 , 1
DRAW 0 , 120 , 1
DRAW -44 , 30 , 1
DRAW 0 ,-180 , 1
Comme on le voit, pas de souci a priori à première lecture.
Du coup, pour vérifier je suis passé en HIRES et ai exécuté les commandes avec les valeurs "en dur" une à une... Pas de souci.
Et graphiquement donc, ça donne (approximativement) ça:
- Code:
|\
| \
| \
| |
| |
| |
| |
| /
| /
| /
Après, j'ai réexécuté ton code d'origine, mais SANS le POKE en ligne 10: pas de souci.
Et en rajputant le POKE (je ne savais pas trop ce qu'il faisait de mémoire, en fait il cache juste le curseur BASIC), pas de souci non plus...
Bref... Je ne vois pas trop pourquoi ça coince chez toi ??
Dernière édition par laurentd75 le Dim 13 Mai 2018 - 1:10, édité 1 fois
Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???
Merci pour vos tests et conseils , j'ai pas compris le souci, mais je l'ai résolu en décalant le dessin de qqs pixels, sûrement un problème de l'émulation avec windows10 , mais j'en sais rien en fait, comme ma touche de clavier égale (=) qui refuse de fonctionner sous Euphoric
Content de voir que le code n'y est pour rien, c'est l'essentiel
Content de voir que le code n'y est pour rien, c'est l'essentiel
Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???
Hi maximus,
in HIRES when used PAPER and INK, first 12 pixel on every row are unavailable for DRAW command. It works but the result is invisible. So use X>11 with colored HIRES.
in HIRES when used PAPER and INK, first 12 pixel on every row are unavailable for DRAW command. It works but the result is invisible. So use X>11 with colored HIRES.
iss- Messages : 112
Date d'inscription : 30/10/2014
Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???
Well spotted iss, I didn't even notice that aspect, I was focusing on Maximus' reported problem with the 4th DRAW command, that I could not reproduce (no error for me when executing the code, but actually I realized I did not bother to set the PAPER and INK in the end, so I could not reproduce the behaviour Mximus reported and missed the point, as I thought there was an actual BASIC error reported...).
But you are indeed right, when applying PAPER and COLOR, the leftmost 12 pixels are unusable.
But you are indeed right, when applying PAPER and COLOR, the leftmost 12 pixels are unusable.
Dernière édition par laurentd75 le Dim 13 Mai 2018 - 1:12, édité 1 fois
Sujets similaires
» [résolu] Format des fichiers Hyperbasic...
» plus de 4 couleurs différentes par ligne
» [résolu]Utilitaire Hex2Oric
» Euphoric et Windows 8 [Résolu]
» Branchement alimentation péritel [Résolu]
» plus de 4 couleurs différentes par ligne
» [résolu]Utilitaire Hex2Oric
» Euphoric et Windows 8 [Résolu]
» Branchement alimentation péritel [Résolu]
Forum Oric :: Forums :: Forum Public :: BASIC
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|
Dim 31 Mar 2024 - 14:35 par kenneth
» Bla Bla général du Jury
Jeu 21 Mar 2024 - 8:51 par Dom50
» carte mère Oric (re)tracée
Mar 5 Mar 2024 - 18:54 par kenneth
» Meurtre à Grande Vitesse
Dim 25 Fév 2024 - 5:09 par Iurius
» ORIC-1 sur LE BON COIN
Ven 23 Fév 2024 - 23:01 par Mcar
» ORIC ATMOS sur LE BON COIN
Dim 4 Fév 2024 - 12:06 par kiwilevrai
» Problème d'affichage des couleurs avec un Oric Atmos
Sam 27 Jan 2024 - 1:26 par pierbail
» Bienvenue dans le Forum des Oriciens
Mar 9 Jan 2024 - 12:33 par Dom50
» Rencontre avec Laurant Weill, co-fondateur de Loriciel, et mon garçon de 12 ans
Ven 29 Déc 2023 - 14:13 par Arcade-des-Monts
» Bonnes fêtes
Mar 26 Déc 2023 - 10:21 par Dom50
» Murders in Venice / Meutres à Venise
Sam 18 Nov 2023 - 22:44 par retroric
» Un clavier PS/2 pour tester un ORIC
Dim 27 Aoû 2023 - 9:49 par Voyageur
» Disquette 3" Sedoric
Mar 1 Aoû 2023 - 14:22 par AtomeX
» faire un 6502 avec des phototransistor
Dim 16 Juil 2023 - 17:26 par Voyageur
» Oricutron linux et DSK
Jeu 29 Juin 2023 - 18:34 par Voyageur