Derniers sujets
» le retour du Commodore 64
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyAujourd'hui à 1:55 par jbperin

» Type in Master Mind
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyHier à 14:53 par Ladywasky

» Pictoric
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyMer 4 Déc 2019 - 12:02 par Sheld67

» Nouveau site ceo.oric.org
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyMar 3 Déc 2019 - 5:08 par didierv

» Bocco's adventures - nouveau jeu pour Oric
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyMar 3 Déc 2019 - 0:08 par retroric

» Problème avec les boucles
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyLun 2 Déc 2019 - 13:43 par TotoShampoin

» Nouvel ancien jeu: Oric Golf par K. Smith
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyDim 1 Déc 2019 - 12:19 par Symoon

» Aux couleurs de l'Atmos
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyDim 1 Déc 2019 - 11:52 par Dom50

» ORIC-1 sur LE BON COIN
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyVen 29 Nov 2019 - 21:15 par didierv

» recherche racine carrée 32 bits (et arctangente 16 bits) [RESOLU !! ]
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyVen 29 Nov 2019 - 9:43 par jbperin

» une atan2 pour vos lib math
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyJeu 28 Nov 2019 - 21:19 par jbperin

» Materiels Oric pour membres du CEO
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyMer 27 Nov 2019 - 14:38 par jbperin

» I had a dream .. glOric
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyMer 27 Nov 2019 - 1:01 par retroric

» CEO-MAG 355
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyMar 26 Nov 2019 - 23:19 par retroric

» Boite de réception des messages sur le forum
[résolu][BASIC] - Draw n'écrit pas une ligne ??? EmptyLun 25 Nov 2019 - 21:16 par Jede

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

Récupérer mon mot de passe

Statistiques
Nous avons 201 membres enregistrés
L'utilisateur enregistré le plus récent est David Coipel

Nos membres ont posté un total de 8294 messages dans 716 sujets
Portail ORIC




[résolu][BASIC] - Draw n'écrit pas une ligne ???

Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par maximus le Ven 11 Mai 2018 - 11:51

Bon il m'arrive tj des trucs bizarres qui me dépassent, vous avez l'habitude  Laughing  Razz

je teste qqs lignes de dessin élémentaires et il refuse de dessiner la 4e ligne qui remonte No Suspect

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
[résolu][BASIC] - Draw n'écrit pas une ligne ??? Attachment
blocs.zip DRAW pas contentVous n'avez pas la permission de télécharger les fichiers joints.(2 Ko) Téléchargé 5 fois


Dernière édition par maximus le Sam 12 Mai 2018 - 22:16, édité 1 fois
maximus
maximus

Messages : 1260
Date d'inscription : 02/12/2012
Age : 59
Localisation : Nimes

http://cinema.forumactif.org/

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par didierv le Ven 11 Mai 2018 - 22:34

Hello,

Tu as essayé de voir avec des print ... ce que retournais l'interpréteur ?
Sinon, le -(H2*6) m'inquiete un peu ...

_________________
DidierV - CEO Mag
alias coco.oric sur Defence-Force
didierv
didierv

Messages : 761
Date d'inscription : 19/01/2014
Age : 57
Localisation : Nord de la France

http://www.dmacoco.fr

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par retroric le Sam 12 Mai 2018 - 0:54

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... Very Happy Very Happy ).

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 ??  Rolling Eyes


Dernière édition par laurentd75 le Dim 13 Mai 2018 - 1:10, édité 1 fois
retroric
retroric

Messages : 554
Date d'inscription : 09/08/2014
Age : 48
Localisation : Paris

https://github.com/retroric

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par maximus le Sam 12 Mai 2018 - 7:46

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 Very Happy
maximus
maximus

Messages : 1260
Date d'inscription : 02/12/2012
Age : 59
Localisation : Nimes

http://cinema.forumactif.org/

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par iss le Sam 12 Mai 2018 - 11:51

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.
iss
iss

Messages : 108
Date d'inscription : 30/10/2014

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par retroric le Sam 12 Mai 2018 - 15:01

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.  Smile


Dernière édition par laurentd75 le Dim 13 Mai 2018 - 1:12, édité 1 fois
retroric
retroric

Messages : 554
Date d'inscription : 09/08/2014
Age : 48
Localisation : Paris

https://github.com/retroric

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par maximus le Sam 12 Mai 2018 - 16:33

HI ISS THANKS A LOT

bravo
maximus
maximus

Messages : 1260
Date d'inscription : 02/12/2012
Age : 59
Localisation : Nimes

http://cinema.forumactif.org/

Revenir en haut Aller en bas

[résolu][BASIC] - Draw n'écrit pas une ligne ??? Empty Re: [résolu][BASIC] - Draw n'écrit pas une ligne ???

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum