Version instantanée du 23-09-2011: PANORAMIC V 0.9.22i3

Version instantanée du 23 septembre 2011: PANORAMIC V 0.9.22i3

Une version instantanée est la version actuelle du développement de PANORAMIC, elle vous permet d'utiliser les toutes dernières améliorations, sans attendre la sortie de la prochaine version.
Une version instantanée n'a pas de procédure d'installation (c'est un fichier zip contenant l'EDITEUR).
Les nouveaux mots-clés n'ont pas de coloration syntaxique dans l'EDITEUR.

Pour obtenir la version instantanée, cliquez sur *** annulé ***

Voici les apports de cette version, par rapport à la dernière version régulière PANORAMIC V0.9.21 du 7 mai 2011:

1 - sons système
BEEP_ERROR : émet le son système d'une erreur
BEEP_QUESTION : émet le son système d'une question
BEEP_INFORMATION : émet le son système d'une information
BEEP_EXCLAMATION : émet le son système d'une exclamation

2 - conversion hexadécimal - décimal
A$=HEX$(N) : convertit le nombre N en une chaine de caractères A$ qui est sa représentation hexadécimale
N=HEX(A$) : convertit en nombre la chaine de caractère A$. A$ est une représentation hexadécimale

3 - existence d'objets système
OBJECT_EXISTS(N) : retourne 1 si l'objet système numéro N existe, 0 sinon
OBJECT_TYPE(N) : retourne le code du type de l'objet système numéro N, -1 si l'objet n'existe pas

4 - existence d'objets 3D
O3D_OBJECT_EXISTS(N) : retourne 1 si l'objet 3D numéro N existe, 0 sinon
O3D_OBJECT_TYPE(N) : retourne le code du type de l'objet 3D numéro N, -1 si l'objet 3D n'existe pas

5 - existence de SPRITES
SPRITE_EXISTS(N) : retourne 1 si le SPRITE numéro N existe, 0 sinon

Code du type d'objet système retourné par OBJECT_TYPE:
1=SCENE3D
2=BUTTON
3=EDIT
4=MEMO
5=COMBO
6=ALPHA
7=FORM
8=LIST
9=PICTURE
10=CHECK
11=OPTION
12=MAIN_MENU
13=SUB_MENU
14=SOUND
15=MOVIE
16=TRACK_BAR
17=OPEN_DIALOG
18=SAVE_DIALOG
19=SCROLL_BAR
20=PROGRESS_BAR
21=SPIN
22=GRID
23=CONTAINER
26=DLIST
27=SCENE2D
28=TIMER
32=CONTAINER_OPTION
41=IMAGE

Code du type d'objet 3D retourné par O3D_OBJECT_TYPE:
1=3D_CUBE
2=3D_BOX
3=3D_SPHERE
4=3D_CONE
5=3D_TORUS
6=3D_CYLINDER
7=3D_DODECAHEDRON
8=3D_TEAPOT
9=3D_TEXT
10=3D_LINE
11=3D_MESH
12=3D_ACTOR
14=3D_SKYBOX
15=3D_TERRAIN
16=3D_PLANE

6 - correction du bug dans 2D_IMAGE_COPY

7 - six nouvelles fonctions :

MOD(X,Y) : retourne le modulo de X et Y. Le modulo de X et de Y est le reste de la division entière de X par Y.
MIN(X,Y) : retourne le plus petit de X et Y
MAX(X,Y) : retourne le plus grand de X et Y
WRAP_VALUE(X) : retourne une valeur de X ramenée à l'intervalle 0,360
CURVE_ANGLE(DESTINATION, CURRENT, SPEED) : retourne un angle auto-interpolé basé sur une vitesse donnée
CURVE_VALUE(DESTINATION, CURRENT, SPEED) : retourne une valeur auto-interpolée basée sur une vitesse donnée

Ces 2 dernières fonctions sont des aides pour le programmeur, car elles évitent de programmer des calculs compliqués de position intermédiaire.
Vous indiquez la valeur que vous voulez atteindre (destination), la valeur actuelle (current), et la valeur de la vitesse (speed) avec laquelle vous voulez atteindre la destination.
Vous ne vous cassez pas la tête et vous mettez cette fonction dans une boucle: tous les valeurs intermédiaires seront calculées !

Par exemple, on veut amener une caméra d'une position haute vers l'arrière d'un véhicule (un cube rouge), on met 3 fois cette fonction dans une boucle (une foix pour X, une fois pour Y et une fois pour Z) et le tour est joué ! Toutes les positions de la caméra sont calculées automatiquement !

Exemple appliqué au lissage d'un mouvement de caméra:

Code:

' déclaration des variables pour tracer le quadrillage
dim maxi,nb_case,taille_case,i
dim vehicx,vehicy,vehicz
dim cam_posx,cam_posy,cam_posz
dim posx_cible,posy_cible,posz_cible
dim deltax,deltay,deltaz,lissage

' taille maximale du quadrillage
maxi=800

' nombre de cases sur X ou Y
nb_case=100

' taille d'une case
taille_case=int(maxi/nb_case)

full_space 0:scene3D 1:full_space 1
color 1,0,0,0

' tracé des des nb-case+1 lignes horizontales
for i=0 to nb_case
    3d_line i+2, 0, i*taille_case, 0
    3d_line i+2, nb_case*taille_case, i*taille_case, 0
    3d_line_width i+2,3
    3d_color i+2,255,255,0
next i

' tracé des nb-case+1 lignes verticales
for i=0 to nb_case
    3d_line i+nb_case+3, i*taille_case, 0, 0
    3d_line i+nb_case+3, i*taille_case, nb_case*taille_case, 0
    3d_line_width i+nb_case+3,3
    3d_color i+nb_case+3,255,255,0
next i

' création du véhicule
3d_cube 1,8:3d_color 1,255,0,0

' position initiale du véhicule
vehicx=nb_case*taille_case/2
vehicy=nb_case*taille_case/2
vehicz=4
3d_x_position 1,vehicx
3d_y_position 1,vehicy
3d_z_position 1,vehicz

' position initiale de la caméra
cam_posx=vehicx
cam_posy=vehicy
cam_posz=500
cam_position cam_posx, cam_posy, cam_posz

' la caméra pointe sur le véhicule
point_position vehicx, vehicy, vehicz

' point à atteindre par la caméra
posx_cible=vehicx
posy_cible=vehicy-25
posz_cible=vehicz

' vitesse de lissage
lissage=0.3

for i=1 to 90
 ' les positions intermédiaires sont calculées ici
 cam_posx=curve_value(posx_cible,cam_posx,lissage)
 cam_posy=curve_value(posy_cible,cam_posy,lissage)
 cam_posz=curve_value(posz_cible,cam_posz,lissage)
 cam_position cam_posx,cam_posy,cam_posz
 wait 50
next i

terminate

8 - dimensions d'une chaine de caractères sous une police donnée (police, taille et style)

TEXT_HEIGHT(A$,N) : retourne la hauteur en pixels qu'aurait A$ s'il était imprimé sur l'objet de numéro N, compte tenu de la police du style et de la taille, utilisée pour N
TEXT_WIDTH(A$,N) : retourne la largeur en pixels qu'aurait A$ s'il était imprimé sur l'objet de numéro N, compte tenu de la police du style et de la taille, utilisée pour N

9 - gestion des disques

DISK_EXISTS(A$) : retourne 1 si le disque A$ existe, 0 sinon
DISK_KILO_FREE(A$) : retourne en Ko la place disponible sur le disque A$, -1 si le disque n'existe pas
DISK_KILO_SIZE(A$) : retourne en Ko la taille du disque A$, -1 si le disque n'existe pas
Remarque: A$ n'a qu'une lettre. Exemple: "a", "c", "z"

Exemple:

Code:

dim a$
label disque
a$="a":gosub disque
a$="b":gosub disque
a$="c":gosub disque

end

disque:
if disk_exists(a$)=1
  print a$+" existe"
  print "taille de "+a$+" = "+str$(disk_kilo_size(a$))+" Ko"
  print "disponible sur "+a$+" = "+str$(disk_kilo_free(a$))+" Ko"
else
  print a$+" n'existe pas"
end_if
return

Bonjour Jack,

un grand merci pour toutes ces nouveautés!!

petite question, as tu aussi corrigé le probleme evoqué plusieurs fois sur 2D_IMAGE_PASTE ?

j'ai essayé sur un de mes programmes et ça ne fonctionne toujours pas mais comme ça peut aussi venir de mon programme, je te demande, c'est plus simple.


encore un grand merci pour tout ton travail sur Panoramic et Toonic !!!

jp

Les problèmes rencontrés sur 2D_IMAGE_COPY et 2D_IMAGE_PASTE ont été corrigés et c'était le but de cette mise à jour.

Mais essayez quand même.

merci Jack , effectivement , ça marche. Cela ouvre des possibilités énormes qui j'espere existeront aussi dans Toonic.
voici mon code de test :

Code:

image 2 : ' containeur image
 ' petit rectangle contiendra ce qu'on veut copier
PICTURE 3: TOP 3, 0: LEFT 3, 0: WIDTH 3, 128:  HEIGHT 3, 33
COLOR 3,128,128,128 : ' fond gris
2d_target_is 3
2d_pen_color 255,0,0
2d_circle 16,16,8      : ' cercle  a copier coller d'un picture a un autre

' la picture cible
PICTURE 4: TOP 4, 40: LEFT 4, 0: WIDTH 4, 200:  HEIGHT 4, 200
COLOR 4,64,0,64 : ' avec une couleur de fond pour la distinguer

' copie le cercle de picture 3 vers picture 4
2D_TARGET_IS 3: 2D_IMAGE_COPY 2,1,1,32,32 : ' ds le petit recangle, prend un carré 32*32

2D_TARGET_IS 4: 2D_IMAGE_PASTE 2,0,0 : ' ds le grand , paste le petit carré

wait 5000
terminate

Super !
Une version tous les 7 jours !
Je suis tout à fait d'accord pour que Jack continue à ce rythme !!!

Merci, Jack !

Merci ça marche
Merci Jack, du coup j'ai mis à jour mon programme ^^

Merci Jack, des fonctions bien intéressantes à explorer et pour simplifier la vie !

Après essai rapide, les fonctions qui m'intéressent particulièrement (2D_Image_Copy, gestion des disques, et taille d'un string en pixels) marchent bien, super.
Un seul petit regret, cependant, que la taille de police soit toujours limitée à 30.

idem
Comme toi JL35, je trouve dommage que la fonte soit limitée à 30.
Si je ne t'appuie pas, et que les autres ne le font pas aussi, il est évident, que cela restera au fond d'un tiroir. (c'est un peu ce que je pense lorsque je mets un nouveau sujet comme "derniers sujet" et que les autres les passer). Donc pour la fonte on est déjà deux (mais nous faisons très peu de jeux en 2d ou 3d, ce qui veut dire qu'on est seuls )

Chacun sa spécialité, je trouve très bien que d'autres comme actuellement s'intéressent à élaborer des jeux par exemple, pour moi (comme pour toi je pense et d'autres) c'est plutôt gestion, fichiers, données, traitement de textes et d'images, utilitaires divers, etc. et ce qui est bien avec le basic c'est qu'on peut faire tout ça en fonction de ses goûts.
Et chacun réclame à Jack ce dont il a besoin, c'est bien à lui en dernier ressort de décider ce qui est d'intérêt général ou pas.

Pour ce qui est de la taille maximum de fonte (30), si je réclame c'est que je ne vois pas bien l'objet de cette contrainte, et ce qui peut empêcher de la supprimer d'un trait de plume, mais comme j'ai dit seul Jack sait ce que ça coûte et les problèmes que ça entraîne.

Concernant le DISK_EXISTS j'ai un petit problème:

Code:

dim i%, a$, v$, lib, tot
for i% = 65 to 90
    a$ = chr$(i%)
    IF DISK_EXISTS(a$) = 1
        lib = DISK_KILO_FREE(a$)
        tot = DISK_KILO_SIZE(a$)
        a$ = a$ + ":"
        EXECUTE_WAIT "Cmd.exe /c VOL " + a$+" >C:\Temp/vol"
        file_open_read 1, "C:\Temp/vol"
        File_readln 1, v$: v$ = MID$(v$, 40, 100)
        file_close 1: file_delete "C:\temp\vol"
        print a$ + " " + v$ + " " + str$(int(lib/1000)) + "/" + str$(int(tot/1000))+" Mb"
    END_IF
NEXT i%
END

Sur le disque D: (qui n'existe pas), j'obtiens ceci:
il faut cliquer 'Annuler' pour continuer...

Citation :

je trouve très bien que d'autres comme actuellement s'intéressent à élaborer des jeux par exemple

Je suis tout à d'accord là dessus. Loin de moi de penser le contraire. Ce qu'il y a en plus est qu'ils ont décidé de se mettre en commun pour faire leur jeux. Là dessus je les encourage.

entre parenthèse: (J'aurai bien aimé voir un peu ce que celà donne. Mais comme chacun met son bout de code ou autre, j'ai aucune idée de ce qu'il faudrait chargé pour essayer) On verra au final ce que cela donnera!

Bonjour Cosmos, content que tu vienne jetter un oeil

jpcr met à jour un site qui fait une récap "propre" de nos tergiversations.
Le lien est: http://jeanpierre.creis.free.fr/Panoramic/projet%20Medieval-Pano.html
(Il évolue au fil de l'eau). Je ne peux pas faire un zip à chaque fois car j'utilise un hébergeur gratuit et refaire un zip complet qui va être téléchargé consomme une bonne partie du nombre de méga autorisé par mois car les zip contiennent aussi les images, etc ... et comme on en est au début, ça évolue un peu tout le temps en fonction des besoins. J'ai envoyé à jpcr un zip pour qu'il le mette sur le site, mais avec le correctif d'hier, le source est déjà obsolète. Pour ne pas avoir tout à renvoyer, je n'ais posté que le source sur le forum.

Les autres bouts de codes que j'ai mis sont juste de petits outils qui permettent de se faciliter la vie pour convertir plusieurs images(tiles) en une grosse (Tileset) car on travaille de cette manière pour les décors

Voilà et si il y a une chose qui n'est pas clair dans notre projet ou pour que tu testes, n'hesite pas à demander, je me ferais un plaisir de t'expliquer, nous essayons de communiquer le plus possible pour que quiconque se sentant intéressé où ayant un talent qui permette à l'équipe de s'améliorer puisse se joindre à nous s'il le désire.

Hallo Jack,
Danke für die neuen Disk-Befehle. Das hat meine Erwartung übertroffen. Großartig !!!

Salut Jack,
Merci pour les commandes du nouveau disque. Cela a dépassé mes attentes. Super!



Hallo an alle, folgender Hinweis JL35 schrieb:
Bonjour à tous, l'avis suivant JL35 a écrit:

Sujet: Fonction copie de fichiers
Betreff: File Copy-Funktion
Ven 13 Mai 2011 - 20:52
Fr 13. Mai 2011 - 20:52

Habe ich diesen Befehl verschlafen ?
J'ai dormi cette commande?

--------------------------------------------------------------------------------

Il me manque beaucoup une fonction copie de fichiers, genre FILE_COPY f1$ f2$.
Ich vermisse ihn eine Datei zu kopieren Funktion, wie file_copy f1 $ $ f2.
A défaut, pour copier une série de fichiers binaires, j'utilise la fonction COPY de ms-dos (avec EXECUTE_WAIT cmd.exe /c Copy etc.),
c'est rapide mais ça fait apparaître à chaque appel une fenêtre noire inesthétique.
Ansonsten, eine Reihe von binären Dateien zu kopieren, benutze ich die Kopierfunktion des MS-DOS (mit EXECUTE_WAIT cmd.exe / c kopieren etc.)
ist schnell, aber es zeigt jedem Anruf eine unansehnliche schwarze Fenster.
J'ai essayé avec les moyens Panoramic existants (Filebin_block_read, ou Filebin_hexa_read)
mais c'est très long à l'exécution ou limité en taille, quasiment inutilisable.
Ich habe versucht, mit den vorhandenen Mitteln Panoramic (Filebin_block_read oder Filebin_hexa_read),
aber es ist sehr lange in der Ausführung oder in der Größe kleiner, fast unbrauchbar.
Il s'agit dans mon cas (pour l'exemple) de fichiers images (jpg) de l'ordre d'un ou deux mégaoctets.
Dies ist in meinem Fall (zum Beispiel) Bilddateien (jpg) in der Größenordnung von ein oder zwei Megabyte.

PS je m'aperçois que j'ai fait exactement la même demande en mars...
PS Ich weiß, dass ich genau haben den gleichen Antrag März ...

Dans le cas des fichiers images, il ya bien une solution Panoramic: déclarer un objet Picture caché,
puis File_Load du fichier à copier et File_Save dans le fichier résultat, mais:
Für Bilddateien gibt es eine Lösung Panoramabild erklären ein Objekt verdeckt und File_Load Kopieren
von Dateien und Datei-file_save Ergebnis, aber:
- j'ai mesuré que c'est 10 fois plus long que la fonction ms-dos Copy -
Ich maß sie 10-mal länger als die MS-DOS-Funktion kopieren
- ça ne marche que pour des fichiers bmp ou jpg. -
Es gilt nicht als BMP-oder JPG-Dateien zu arbeiten.




Mit diesem Befehl und den neuen "Disk" - Befehlen kann ein Installationsprogramm erstellt werden.
Das wäre dann ein hight-Ligth.

Cette commande et le nouveau "disque" - les commandes d'un installateur peut être créé.
Ce serait une hight-Ligth.



Merci pour votre temps de lire ceci.

Severin

Citation :

Comme toi JL35, je trouve dommage que la fonte soit limitée à 30.
Si je ne t'appuie pas, et que les autres ne le font pas aussi, il est évident, que cela restera au fond d'un tiroir. (c'est un peu ce que je pense lorsque je mets un nouveau sujet comme "derniers sujet" et que les autres les passer). Donc pour la fonte on est déjà deux.

OK, cette limitation de la taille de la fonte n'a aucune raison et elle n'existera plus dans la prochaine version.

Schade Jack war schneller.
Dommage Jack était plus rapide.
Too bad Jack was quicker.
Severin

Merci, une très bonne chose. Cela me semblait bizarre ce blocage, et ne le comprenais pas.

Idem, merci Jack.

PS la citation de Severin concernant la copie de fichiers est toujours d'actualité (du moins pour moi ! )

Pendant 4 mois avec le BAC -je l'ai eu au fait!- et l' ordi en panne, j'ai pas pu aller sur Panoramic...
Et quand je reviens, j'ai du prendre 45 minutes pour tout lire
Et, oh! miracle! Jack vient juste de faire une version avec des commandes disque.

Franchement, bravo Jack pour tout ce travail avec en plus toonic, illiric, goric game maker! Dès que je trouverais un peu de temps (l'année s'annonce chargée), je vais potasser tout ça.

Coucou à tous!

Félicitation pour ton Bac, un grand bravo.
Bon retour sur Panoramic avec toutes les nouveautés beaucoup de dev à venir.

Oh oui, bravo, Flowerkinzy !!!!!!!!
D'ailleurs, moi qui suis féru de programmes personnalisés,
je t'en dédie un petit, tout joli !

Code:

dim i , a$ , b$ , c$ , n$
width 0,960
alpha 1
font_name 1,"Parchment"
font_size 1,30
alpha 2
left 2,220
top 2,170
font_name 2,"Harrington"
font_size 2,30
a$=chr$(13)+"      "
for i=1 to 34
  a$=a$+chr$(192)
next i
b$="      "+chr$(192)+string$(208," ")+chr$(192)
c$="Félicitations  pour  ton  bac !"
for i=1 to 6
  n$=n$+chr$(13)+b$
next i
caption 1,a$+n$+a$
caption 2,c$

(je sens que tu vas fêter ça...)
Alors, bonne fête !!!

Bon retour et félicitations. It's the Flower power !! ^^

Je me joins au concert de louanges: félicitations flowerkinzy, et bon retour parmi nous !
Est-ce qu'il y a un rapport entre l'ordi en panne et le fait de décrocher le bac ?

^^ surement, mais chute ... sinon elle ne va pas prendre le temps de revenir à Panoramic (avec modération pour ne pas rater les études quand même...)

Merci, c'est trop sympa!

@ jjn4: Je le prends comme un diplome en attendant l'officiel;)

Bah oui, j'essaie de faire tout à la fois, d'autant plus que je me dirige vers l'informatique (quand même!)

Alors pour l'ordi, c'est sure que ça m'a aidé pour le bac!