CARTE DE VOEUX

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Pour le nouvel an, comme vous êtes tous sympa,
je vous envoie une petite carte de voeux
(en langage panoramic, bien sûr).
Je l'ai faite un peu comme une peinture.
J'espère que vous l'apprécierez.
Bonne année à tous !

Code:: rem ' Bonne année
dim i , j , x , y
width 0,800 : height 0,450 : caption 0,"CARTE DE VOEUX"
picture 1
left 1,0 : top 1,0 : width 1,791 : height 1,415 : color 1,0,0,0
alpha 2 : left 2,65 : top 2,362
color 2,0,0,0 : font_color 2,160,255,0
font_bold 2 : font_size 2,30 : font_name 2,"French Script MT"
caption 2," Bon nouvel an et bonne santé pour toute l'année "
2d_target_is 1
for i=1 to 340
2d_line 20,20+i,770,20+i : 2d_pen_color 255,99+i/4,0
next i
2d_pen_color 0,200,255 : 2d_fill_color 0,200,255
for i=1 to 50 : 2d_line 430,275+i,400,290+i : 2d_line 430,275+i,460,290+i : next i
2d_rectangle 460,270,500,320 : 2d_rectangle 415,275,420,300
for i=1 to 40 : 2d_line 481,240+i,460,269+i : 2d_line 481,240+i,502,269+i : next i
2d_pen_color 0,120,255 : 2d_fill_color 0,120,255
for i=1 to 70 : 2d_line 20,249+i,140,329+i : next i
for i=1 to 60 : 2d_line 40,285+i,80,255+i : 2d_line 80,255+i,120,285+i : next i
2d_rectangle 38,255,45,280 : 2d_rectangle 93,260,100,280
for i=1 to 70 : 2d_line 200,310+i,260,270+i : 2d_line 260,270+i,320,310+i : next i
for i=1 to 70 : 2d_line 310,315+i,370,265+i : 2d_line 370,265+i,430,315+i : next i
for i=1 to 60 : 2d_line 420,325+i,480,290+i : 2d_line 480,290+i,540,325+i : next i
2d_rectangle 230,275,237,340 : 2d_rectangle 295,284,305,340
2d_rectangle 385,267,395,320 : 2d_rectangle 385,260,395,262
2d_line 385,269,385,260 : 2d_line 394,269,394,260 : 2d_line 540,340,549,340
2d_rectangle 510,297,517,320 : 2d_rectangle 540,350,550,352
2d_rectangle 20,315,140,362 : 2d_rectangle 200,320,520,362
for i=1 to 5 : 2d_line 539+i*2,340,539+i*2,350 : next i
for i=1 to 80
2d_line 170,120+i,140,260+i : 2d_line 170,120+i,200,260+i
next i
2d_rectangle 140,265,202,380 : 2d_rectangle 155,200,185,270
2d_line 170,110,170,121 : 2d_line 167,114,174,114
2d_rectangle 600,220,665,400 : 2d_rectangle 660,270,770,362
for i=0 to 6 : 2d_rectangle 600+i*10,215,605+i*10,220 : next i
for i=0 to 10 : 2d_rectangle 665+i*10,265,670+i*10,270 : next i
2d_line 660,190,660,220
for i=1 to 9 : 2d_line 660+i,190+i+sin(i),660+i,199+i+sin(i) : next i
2d_pen_color 0,0,255 : 2d_fill_color 0,0,255
for i=1 to 63 : 2d_line 20,260+i,70,300+i : next i
2d_rectangle 20,300,70,362 : 2d_rectangle 55,280,62,350
2d_line 70,325,79,325 : 2d_rectangle 70,335,80,337
for i=1 to 5 : 2d_line 69+i*2,325,69+i*2,335 : next i
for i=1 to 40 : 2d_line 300,329+i,250,361+i : 2d_line 300,329+i,350,361+i : next i
for i=1 to 40 : 2d_line 390,324+i,345,346+i : 2d_line 390,324+i,435,346+i : next i
2d_rectangle 435,350,530,370 : 2d_rectangle 265,340,273,360
2d_rectangle 405,323,412,360 : 2d_rectangle 485,343,504,360
for i=1 to 3 : 2d_line 488+i,338,484+i,350 : 2d_line 488+i,338,492+i,350 : next i
for i=1 to 3 : 2d_line 496+i,338,492+i,350 : 2d_line 496+i,338,500+i,350 : next i
for i=1 to 45 : 2d_line 630,315+i,580,350+i : 2d_line 630,315+i,680,350+i : next i
for i=1 to 22 : 2d_line 769,318+i,720,340+i : next i
2d_rectangle 721,341,770,362 : 2d_rectangle 680,356,721,362
2d_line 680,350,721,350 : 2d_rectangle 645,320,652,360 : 2d_rectangle 750,312,757,360
for i=1 to 13 : 2d_line 679+i*3,350,679+i*3,360 : next i
2d_pen_color 255,255,0 : 2d_fill_color 255,255,0
2d_rectangle 90,290,95,297 : 2d_rectangle 230,335,235,342
2d_rectangle 236,335,241,342 : 2d_rectangle 460,320,463,324
2d_rectangle 460,325,463,329 : 2d_rectangle 464,320,467,324
2d_rectangle 464,325,467,329 : 2d_rectangle 616,343,621,350
2d_pen_color 99,99,99
for i=1 to 100 : x=int(rnd(8))+295 : y=int(rnd(30))+245 : j=int(rnd(3))-1
if abs(j)=1 then x=x+int(rnd(4))*j : y=y+int(rnd(10))*j
2d_point x,y : next i
for i=1 to 100 : x=int(rnd(6))+93 : y=int(rnd(30))+224 : j=int(rnd(3))-1
if abs(j)=1 then x=x+int(rnd(4))*j : y=y+int(rnd(10))*j
2d_point x,y : next i
2d_pen_color 255,255,255 : 2d_fill_color 255,255,255
for i=1 to 400
x=int(rnd(745)+24) : y=int(rnd(335)+24)
2d_circle x,y,2.5
next i

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Sinon, à propos, ce programme peut être l'occasion pour signaler
que faire des dessins avec seulement des 2d_rectangle, 2d_circle
et 2d_line, c'est dur-dur.
Ca manque de :
2d_triangle
2d_ovale
2d_trapeze
2d_parall (élogramme)
2d_polygone C,... (C étant le nombre de côtés)
et autres formes...
drunken

Sujet: Re: CARTE DE VOEUX Ven 1 Jan 2010 - 11:43

BRAVO, çà du être dur dur.

Code:: for i=1 to 340
2d_line 20,20+i,770,20+i : 2d_pen_color 255,99+i/4,0
next i

Si on met un rem devant ces 3 lignes(11,12 et 13), on a l'image de nuit.
J'ai regardé de près ces 3 lignes, car je me demandait comment tu avais fait pour le dégradé de couleurs (Orange vers jaune).
Voila une belle astuce.

Le texte est plus grand que la carte postal (sur mon écran en tout cas), alors j'ai modifié left et font_size aux lignes 6et8, et c'est nickel.

Code:: alpha 2 : left 2,0 : top 2,362
color 2,0,0,0 : font_color 2,160,255,0
font_bold 2 : font_size 2,25 : font_name 2,"French Script MT"

Encore Bravo c'est très beau. Very Happy

Invité

Le résultat est formidable !
C'est sur, il manque des fonctions, dont la principale est de remplir une forme quelconque fermée.
Moi, j'ai rien fait pour l'année nouvelle. J'ai eu plein d'imprévu, qui mon pris mon temps, même pour venir ici.
Bonne année.

Invité

C'est vrai que ça a l'air formidable !

Mais je suis partie pour le nouvel an

Sujet: Re: CARTE DE VOEUX Ven 1 Jan 2010 - 17:03

Bravissimo jjn4, je trouve ta carte très jolie, bonne année à toi également.
Et à tous les autres !
J'ai juste exécuté, pas regardé le code en détail, ce qui m'intrigue un peu c'est comment tu as fait pour remplir les formes de couleurs ?
Pas trop d'accord avec toi pour le manque de fonctions parallélogrammes et autres polygones, avec le 2d_Line ça suffit il me semble. Sauf pour l'ellipse. De toute facçn il faut bien donner les coordonnées des points successifs.

Par contre je suis d'accord avec cosmos pour une fonction Fill (remplir une forme quelconque).

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Citation :: Le texte est plus grand que la carte postal (sur mon écran en tout cas)

Oui, j'ai eu ça quand je faisais une démonstration d'un des mes programmes à quelqu'un d'autre sur son propre ordinateur, et (comme il était myope) il avait les lettres qui étaient réglées pour être en grand format, et ça fichait tout en l'air dans le programme panoramic que je présentais, en faisant apparaître des scoll-bar partout, qui en devenait absolument horrible.
C'est dommage que le format des lettres qu'on donne aux textes des alpha, memo... de panoramic ne soit pas indépendant des réglages donnés par Windows !
(petit clin d'oeil (décidément) à Jack.
Wink

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Citation :: le 2d_Line ça suffit il me semble. Sauf pour l'ellipse

Et le triangle, alors, essentiel, le triangle !
D'accord que pour les autres, ça fait un peu sophiqtiqué,
mais pourquoi pas ?
PS : réponse à la question de JL35 :
si c'est des rectangles, fill
et des line, pen

Sujet: Re: CARTE DE VOEUX Ven 1 Jan 2010 - 17:34

Le triangle ? 3 x 2d_line et le tour est joué.

Code:: 2d_line x1,y1,x2,y2: 2d_poly_to x3,y3: 2d_poly_to x1,y1

Pour le remplissage c'est autre chose (j'ai vu comment tu fais, des lignes successives, mais c'est un peu laborieux à faire).
Je sais bien que c'est automatique pour les formes prédéfinies (cercles et rectangles, et d'ailleurs on ne peut pas ne pas les remplir, c'est parfois embêtant), mais ça n'existe pas pour les formes libres (avec les 2d_line Very Happy

)

tiens un petit utilitaire pour connaître la couleur rgb d'un point quelconque de l'écran: colorpix, très pratique.

Sujet: Re: CARTE DE VOEUX Ven 1 Jan 2010 - 18:19

Citation :: Oui, j'ai eu ça quand je faisais une démonstration d'un des mes programmes à quelqu'un d'autre sur son propre ordinateur

Avec SCREEN... , çà devrait s'arranger.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Tu parles de screen_x et screen_y ?
scratch

Sujet: Re: CARTE DE VOEUX Ven 1 Jan 2010 - 18:44

Oui, pour définir la taille de l'écran de l'utilisateur.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Ca ne résoud pas le problème, puisque
les lettres windows peuvent être agrandies
indépendamment de la taille des form
(si bien que les phrases dépassent les form panoramic)
sans que la résolution d'écran soit changée
(pour les images, quoi).
Donc, les screen ne peuvent pas servir.
Et là, pour le moment, je ne vois pas de solution.
scratch

Sujet: Re: CARTE DE VOEUX Ven 1 Jan 2010 - 20:07

je pensais que suivant la taille de l'écran tu pourrais gérer le letf et le size de l'alpha 2. Je n'ai pas essayé, peut-être ce n'est pas la bonne voie.
De toute façons on peut corriger comme je l'ai fait et çà marche.
Et ta carte de voeux reste belle et ton tavail remarquable. A+

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Pour prendre l'exemple de ma carte, chez moi, le texte était bon,
et sur n'importe quel autre écran, les rapports de taille restent les mêmes.
Pour que les phrases augmentent plus que l'image, il faut qu'il y ait
une commande spéciale de Windows qui fait augmenter la taille des
lettres sans augmenter la taille du reste.
Une de ces commandes se trouve dans :
pointeur sur le bureau, clic à droite, chapitre "Propriétés",
onglet "Paramètres", Bouton "Avancé", onglet "Général",
dans "Affichage" : choisir "Paramètres PPP",
à la place de "Taille normale (96 ppp)", choisir "Grande taille (120 ppp)",
cliquer "Ok", puis encore "Ok"
Et là, c'est le bordel, tous les textes se mettent à dépasser des objets panoramic qui auparavant les contenaient fort bien...
A mon avis, tu dois avoir un truc comme ça,
parce que c'est pas logique, que c'était trop grand.
Et quand on veut faire des programmes qui puissent aller sur tous les ordinateurs, ça pose un problème (j'espère que Jack entend ce que je viens de dire).

» Bonne année 2019
» Les voeux du crocodile
» Cartes de voeux, menus, etc.
» Naissance de Crocodile Basic
» Impression de menus, faire-part, cartes de voeux, etc.