Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graph 35+USB/75(+E)/85/95 SD >> Graphisme >> Tentacules
Tentacules
Version : 1.1 Taille : 576 octets Ajouté le : 2019-07-02 17:58 Modifié le : 2019-07-04 16:15
Auteur et posteur :
AlexotHors ligneMembrePoints: 539 Défis: 18 Message
Planète Casio - Programme Casio de graphisme - Tentacules - alexot - Calculatrices
Nombre de visites sur cette page : 3040
Score au progrank : 31
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
645 téléchargements | Soumettre un test


Description :

/!\ la nouvelle version est le 2ème fichier (elle remplace l'utilisation de listes par l'utilisation de variables, réduisant la taille du programme de 760 à 576 octets)

Ce programme génère une animation semblable à mon avatar (à la date de publication de ce programme).
Lancez "TENTAC" pour générer l'animation (cela prend assez longtemps, je conseille donc d'overclocker la calculatrice).
("TENTAC1" est un sous programme)
"TENTANIM" permet de visualiser l'animation.
L'animation est composée de 15 pictures (31020 octets en tout), prévoyez donc de la place avant de commencer la génération.


Commentaires :

Pages: 1, 2 | Suivante

Sentaro21Hors ligneMembrePoints: 878 Défis: 0 Message
Posté le 03-07-2019 à 10:43 | # | Fichier joint
I like this movement.
Image generation is fast if executed in C.Basic.
Furthermore, real-time operation is also possible.
In high resolution 90+E/CG50, it will be similar to your avatar.
Thank you very much.

[Fichier joint] Tentacules for C.Basic
(Works with both FX and CG versions. )
Krevo_Hors ligneMaître du PuzzlePoints: 412 Défis: 2 Message
Posté le 03-07-2019 à 12:01 | #
Unfortunately, as of today, my Casio basic Web Interpreter is not ready to run this program. I will try to fix it, as soon as possible. One or two things are missing in my software to be able to run Tentacules without modifications.

As I said before, " every program we test made us progressing "

Krevo_Hors ligneMaître du PuzzlePoints: 412 Défis: 2 Message
Posté le 03-07-2019 à 14:15 | #
- fixed bug {68->List 1 was KO (not because of the missing '}', but because of a bug with 1 element lists)
- fixed grammar, missing ']' is accepted (like real calculator)
- fixed RcPict/StoPict/BG-Pict to accept variable (A to Z, r and θ) as arg (instead of accepting only an integer)

... now stuck with a curious bug with "If 1:Then [...] IfEnd" ?!? .... currently if I remove the "If 1: Then" and "IfEnd" lines it works !



Sentaro21Hors ligneMembrePoints: 878 Défis: 0 Message
Posté le 04-07-2019 à 10:50 | #
@Krevo_
I'm happy to see the progress situation.
If List works perfectly, it will be able to run a lot more programs.

As I said before, " every program we test made us progressing "
That's absolutely right.
I agree with you 1000%


AlexotHors ligneMembrePoints: 539 Défis: 18 Message
Posté le 04-07-2019 à 14:26 | # | Fichier joint
Thank you for showing interest in my program

@Krevo_ in fact I should have removed the "If 1:Then [...] IfEnd" and used variables instead of lists since using lists in this program is useless and take storage (when I wrote this program I was experimenting with a way to implement recursion in basic with the use of lists, inspired by this tutorial : La récursivité en Basic Casio but this program doesn't really need recursion. An example where the use of lists for recursion is needed is a "fractal tree" program I put in the attached file). But I'm glad leaving those "mystakes" helped you to find bugs and things to add to your project

@Sentaro21 thank you for adapting it for C.Basic, I tried this version and it's amazing how fast it is also thank you for having created Ftune which is the program I use for overclocking my calculator.
Krevo_Hors ligneMaître du PuzzlePoints: 412 Défis: 2 Message
Posté le 04-07-2019 à 15:21 | # | Fichier joint
Sinon, il est très bien ton programme.
Je le teste actuellement en haute-résolution (comme sur la 90+E), c'est presque pareil que sur ton avatar.

J'ai juste remarqué un petit truc : les tentacules se s'enroulent pas de la même façon dans un sens et dans l'autre.

Par ailleurs, je me disais que ce programme peut être rendu encore plus rapide en dessinant les 4 tentacules en même temps. Pour ce faire il faut center l'origine du repère mathématique au milieu de l'écran :

ViewWindow -63, 63, 0, -31, 31, 0


Puis décaler un peu la base du dessin et du coup ne faire qu'UN SEUL appel à "TENTAC1" :


{-4 -> List 1
{-4 -> List 2
{8 -> List 3
{0 -> List 4
Prog "TENTAC1"


Et enfin dans le sous-programme "TENTAC1", dessiner en même temps les 4 tentacules. Les rotations de 90°, -90° et 180° étant très faciles à faire. Il suffit quand tu dessine un point (x,y) de dessiner aussi le point (y, -x), (-y,x) et (-x,-y) :


    F-Line List 1[θ], List 2[θ], A, B
    F-Line List 1[θ], List 2[θ], C, D
    F-Line A, B, E, F
    F-Line C, D, E, F

    F-Line List 2[θ], -List 1[θ], B, -A
    F-Line List 2[θ], -List 1[θ], D, -C
    F-Line B, -A, F, -E
    F-Line D, -C, F, -E

    F-Line -List 2[θ], List 1[θ], -B, A
    F-Line -List 2[θ], List 1[θ], -D, C
    F-Line -B, A, -F, E
    F-Line -D, C, -F, E

    F-Line -List 1[θ], -List 2[θ], -A, -B
    F-Line -List 1[θ], -List 2[θ], -C, -D
    F-Line -A, -B, -E, -F
    F-Line -C, -D, -E, -F


J'ai pris une copie d'écran avec les axes :





Krevo_Hors ligneMaître du PuzzlePoints: 412 Défis: 2 Message
Posté le 04-07-2019 à 15:47 | # | Fichier joint
Ce qui donne ceci lors de la génération de l'une des 15 frames de l'animation :

AlexotHors ligneMembrePoints: 539 Défis: 18 Message
Posté le 04-07-2019 à 16:09 | #
Bien joué, c'est vrai que ces optimisations sont plutôt efficaces! Il faudrait les intégrer dans le programme en téléchargement sur cette page.

Pour ce qui est de la façon de s'enrouler des tentacules, c'est dû au fait que le point de pivot des carrés est situé dans un coin, et non au centre d'un segment.

Sympa la capture d'écran en haute résolution!
Krevo_Hors ligneMaître du PuzzlePoints: 412 Défis: 2 Message
Posté le 05-07-2019 à 00:05 | #
Voilà, avec l'aimable autorisation de Alexot, une version légèrement dérivée de son programme est ajoutée aux programmes d'exemple de mon projet Casio Basic Web Interpreter .

Il suffit donc d'aller sur basic.crevola.org et de cliquer sur le bouton "Tentacules" et c'est parti .... n'hésitez pas à overclocker en appuyant plusieurs fois sur le bouton "Speed +"

Et encore bravo pour ce beau programme !
Sentaro21Hors ligneMembrePoints: 878 Défis: 0 Message
Posté le 05-07-2019 à 10:20 | # | Fichier joint
@Alexot
Thanks for using Ftune.
It will be quite fast when used with C.Basic.

I tried the fractal program.
It works well in C.Basic's CPLX mode.
I like how this "fractal tree" is generated.


@Krevo_
It is a nice optimization.
It will be about 2x speed.
Thanks!

[Fichier joint] Tentacules for C.Basic with @Krevo_ optimization.

Pages: 1, 2 | Suivante

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 144 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd