Compilateur FBPano

L'antivirus est en train de vérifier que "ce nouveau programme est RARE et peut être dangereux".

https://www.youtube.com/watch?v=oSoHqGHcM3M

Salut tout le monde.

@jean_debord

Merci pour cette nouvelle version : téléchargée, testée et approuvée.
Bravo !

SUGGESTION :
La fenêtre de l’invite de commande étant (trop) petite, il est possible de lancer FBPano dans une fenêtre beaucoup plus grande.
Par exemple avec 50 lignes et 150 colonnes.
Pour cela, j’ai codé le fichier suivant :

Code:

echo off
mode con cols=150 lines=50
start_fbpano.exe

Je l’ai sauvegardé dans le dossier FBPano sous fbpano.bat et j’ai crée un raccourcis sur le bureau.
FBPano s’ouvrira désormais dans une grande fenêtre (plus confortable à mon sens !)

Mais ce n'est qu'une question de goût.


REMARQUE :
Ayant associé l’extension .bas à Panoramic_Editor, mes fichiers .bas s’ouvrent le plus logiquement du monde dans Panoramic_Editor.
Dans FBPano, en ajoutant l’extension .bas, le fichier s’ouvrira dans Panoramic_Editor et non dans FBPano.
Pour éviter cela, il suffit d’utiliser, dans FBPano la syntaxe suivante : fbpano <nom du fichier sans extension .bas>.


@Ouf_ca_passe

Ne crois pas toujours ton antivirus

Merci Papydall !

Effectivement, il peut être utile d'avoir une grande fenêtre, notamment si l'on a un programme qui écrit beaucoup de choses sur la console.

J'ai donc modifié le code de start_fbpano ; les dimensions de la fenêtre peuvent être passées sur la ligne de commande, p. ex. start_fbpano 150 50

Les valeurs par défaut sont : 120 colonnes et 40 lignes

En plus, cela nous fait un bon exemple

Code:

dim cols% = 120, lines% = 40
dim progdir$, path$, tmp%

progdir = exepath()
path = environ("path")

tmp = val(param_value(1))
if tmp > 0 then cols = tmp

tmp = val(param_value(2))
if tmp > 0 then lines = tmp

if instr(path, progdir) = 0 then
  setenviron "PATH=" + path + ";" + progdir
end_if

shell "mode con cols=" & cols & "lines=" & lines
shell "cmd.exe /t:0A /k fbpano.exe"

Nouvelle version 0.16
---------------------

Principale modification : l'instruction fb_save permet désormais de sauvegarder une image au format PNG (avec ou sans l'information de transparence)

Voir le programme exemple : exemples\FLTK\ex43.bas : 12 k pour le fichier PNG contre presque 1 méga pour le fichier BMP

Les fichiers sont sur mon WebDav, dossier FBPano :

- setup_016.exe pour l'installation automatique complète
- update_015_to_016.exe pour la mise à jour automatique à partir de la version 0.15
- FBPano.zip pour l'installation manuelle

Coucou Jean, c'est super ce que tu fais. Je ne pollue pas le forum car je n'ai absolument plus le temps de programmer pour le moment mais je voulais juste te dire que je continuais de vous suivre sur Panoramic et sur FBPano.

FBPano commence vraiment à être intéressant.

J'espère que tu continueras à convertir d'autres programmes Panoramic pour montrer la simplicité et la puissance de ce langage et qu'ainsi d'autres personnes plus disponibles que moi commenceront à l'utiliser. Ca serait dommage que tout ce travail reste confidentiel.

Bonsoir.

J'ai souvenir d'avoir lu dans un précédent post que FBPano était open-source.
Donc ouvert aux utilisateurs, dans l'esprit qu'ils pourraient l'utiliser pour, peut-être, créer leur propre
langage.

Qu'en est-il exactement ?

Où peut-on trouver le source de FBPano ?

Merci de la réponse.

Le source est dans le dossier src qui est installé avec FBPano. Il y a 3 sous-dossiers : un pour le programme (fbpano) et deux pour ses bibliothèques : panofunc et panofltk.

Il se compile avec FreeBASIC, qui est aussi inclus dans la distribution. Chaque sous-dossier contient un script de compilation (fichier compil.bat).

Bonjour.

OK, merci Jean.

Mais si je désire créer une nouvelle commande, comment dois-je procéder ?

Mais je ne trouve pas FBPANO sur le webdav (après des essais répétés).

N'y aurait-il pas un lien direct pour télécharger ce fichier ?

Bonjour à tous et merci pour votre aide.

Optimax

@Optimax

c'est ici : https://www.mydrive.ch/browse#/

username : panoramic@jean_debord
password : panoramic123

Merci Papydall, je l'ai trouvé.

Pedro Alvarez a écrit:

Mais si je désire créer une nouvelle commande, comment dois-je procéder ?

Tout dépend de la commande que tu veux créer

- Si c'est une commande de FreeBASIC, on doit pouvoir l'adapter, cela peut nécessiter une traduction de la syntaxe.

- Si la commande est programmable à l'aide des fonctions de FreeBASIC, il faut faire un sous-programme que l'on intégrera à la bibliothèque panofunc

- S'il faut recourir à une bibliothèque externe (utilisable par FreeBASIC), cela devient plus compliqué car il faut écrire une interface entre FBPano et la bibliothèque.

Quelle(s) commande(s) veux-tu créer ?

Bonjour.

En fait, j'aimerais créer une nouvelle commande cube(x), qui retournerait donc le cube de x, soit x*x*x.

Dans ce cas, comment dois-je procéder pour l'intégrer dans les commandes de FBPano ?

Cette commande n'étant qu'un exemple, ce qui m'intéresse en fait, est la création de nouvelles commandes, selon mes besoins immédiats.

Merci de ton aide.

Dans un cas comme cela le plus simple serait de faire une bibliothèque de sous-programmes :

1) On crée un module, p. ex. test.bas avec les codes des sous-programmes et des fonctions :

Code:

function cube(x)
  cube = x * x * x
end_function

2) On compile avec l'option -lib (pour faire une bibliothèque statique) ou -dll (pour faire une DLL) :

Code:

fbpano test.bas -lib  

On obtient un fichier d'en-têtes test.bi et un fichier de bibliothèque libtest.a

3) Pour utiliser la fonction dans un programme, il suffit d'inclure le fichier d'en-têtes :

Code:

#include "test.bi"
dim x, y
x = 3
y = cube(x)
print x, y

Pour plus de précisions, voir dans la documentation de FBPano le chapitre 3 : Les bibliothèques et les appels de DLL.

Bonsoir.

Merci beaucoup Jean de ta réponse.

Un nouveau programme pour le "jeu de la vie" avec :

- grille de grande taille (5000 x 5000)
- mécanismes de zoom et de défilement
- possibilité d'afficher des sprites



Ce programme est décrit dans l'article qui vient d'être soumis pour PLM. Il sera inclus dans la prochaine mise à jour de FBPano.

Nouvelle version 0.17
---------------------

Les incursions récentes de papydall dans les spirales de Ulam m'ont incité à étendre les possibilités de FBPano dans le domaine des nombres entiers

Cette nouvelle version apporte donc :

- des nombres entiers de taille variable : la taille est indiquée en octets, suivie éventuellement de la lettre `u` si l'entier est non signé ("unsigned")

Code:

Notation        Type d'entier                        Min.                   Max.
--------------------------------------------------------------------------------
i%*1            8 bits signé                         -128                    127
i%*1u          8 bits non signé                        0                    255

i%*2           16 bits signé                       -32768                  32767
i%*2u         16 bits non signé                        0                  65535

i%*4 ou i%  32 bits signé                  -2147483648             2147483647
i%*4u         32 bits non signé                        0                 4294967295

i%*8           64 bits signé         -9223372036854775808    9223372036854775807
i%*8u         64 bits non signé                        0            18446744073709551615

- une version pour FBPano de la DLL BIGINT pour le calcul sur les grands entiers, précédemment écrite pour PANORAMIC ; cette version se trouve dans le dossier exemples\bigint ; la documentation est dans le fichier bigint.htm ; il y a un script compil.bat pour compiler automatiquement la DLL et les exemples fournis.

En plus, les 2 programmes du "jeu de la vie" (vie2.bas et vie2s.bas, dans le dossier exemples\vie) décrits dans l'article soumis au magazine ; vie2s.bas est la version utilisant des sprites (voir mon précédent message)

Les fichiers sont sur mon WebDav, dossier FBPano :

- setup_017.exe pour l'installation automatique complète
- update_016_to_017.exe pour la mise à jour automatique à partir de la précédente version 0.16

J'essaye maintenant d'introduire le support de l'Unicode dans FBPano.

J'ai pu adapter 2 exemples fournis avec FLTK. Voici les résultats : dans le premier cas la chaîne Unicode est affectée à un bouton ; dans le deuxième cas ce sont des ALPHAs.

Ce n'est qu'un début. Il reste encore beaucoup à faire.

Povas i demandas tion saman en Esperanto ?

bonhumore

J'ai simplement recopié les phrases qui figuraient dans le programme FLTK. Ne connaissant que le français et l'anglais, je ne sais pas ce que veulent dire les phrases écrites dans les autres langues.

J'ai quand même vérifié dans le Robert que "crapaüter" est une forme ancienne de "crapahuter".

Quant à l'espéranto, il ne semble pas nécessiter de caractères Unicode, tout au moins dans l'exemple que tu donnes ...

ça marche ! Geany et FLTK acceptent bien ces caractères.



Si tu peux faire une phrase en Esperanto, incluant tout ou partie de ces caractères, je l'ajouterai aux exemples précédents.

Le quasi-pangramme Eĥoŝanĝo ĉiuĵaŭde (« changement d’écho tous les jeudis »), qui contient les six lettres accentuées, est souvent employés pour tester l’affichage des caractères spéciaux de l’espéranto.

(Source Wikipédia)

Cordialement

ça marche aussi ! Je vais l'ajouter à la liste des phrases déjà disponibles.

Bonjour Jean_debord.

Voici un pangramme (phrase qui comporte toutes les lettres de l'alphabet d'une langue) en arabe :

Citation :

نص حكيم له سر قاطع وذو شأن عظيم مكتوب على ثوب أخضر ومغلف بجلد أزرق

dont la traduction est :

Citation :

"Un texte sage qui a un secret absolu et une grande importance, écrit sur un tapis vert et recouvert de cuir bleu."