Concours: défi de programmation février 2012

Sujet: Concours: défi de programmation février 2012 Mar 31 Jan 2012 - 13:50

Bonjour!

Je pense que ça peut être intéressant de lancer des concours de programmation mensuel, si ça intéresse et amuse les panoramiciens. Le plupart fait la programmation pour son plaisir, et ça peut être rigolo de proposer un défi et comparer les solutions différents que les panoramiciens vont trouver, ce qui peut inspirer aussi, ou ce qui permet d'explorer un autre terrain de programmation.

Comme Panoramic est excellent pour le graphisme 2D et 3D et pour pas s'approfondir trop dans le mathématique (on est quand-même des programmateurs, pas des mathématiciens), je propose comme concours de février 2012 ce défi:

Programmez une scéne avec au moins 1 maison et 1 arbre, et le soleil qui se lève et qui se couche, en boucle. (2D ou 3D)

Conditions:
1. Tout doit être Panoramic pur: donc n'utiliser ni DLL, ni BMP, PNG, JPG ou autres
2. Publiez les code dans le forum comme réponse sur ce poste au dernier le 25 février 2012 a 22h.
(Et pas trop tôt non, plus, pour éviter que l'un serait inspiré de l'autre.)

Le vainceur sera celui qui donne le meilleur résultat. Chaque participant a le droit de voter.
Il n'y a pas de prix a gagner, c'est juste pour le fun.

Alors, qui accepte le défi?

Nombre de messages : 601 Date d'inscription : 05/01/2012

Ok chef^^
Je participe Wink

Bonjour tout le monde!
Pour le concours, il serait peut-être souhaitable d'attendre jusqu'au dernier moment avant de publier vos codes dans le forum pour eviter que l'un aurait de l'inspiration de l'autre, disons le 25 février vers 22h je voudrais voir les codes publiés. Si qq'un ne peut pas publier les codes le jour même, il/elle peut me les envoyer par message privé, ou, bien sur, les poster la veille.
Bon, je suis sur que les panoramiciens de ce forum sont bien honnête, donc on va bien s'arranger et s'amuser!
Bonne journée et bonne programmation!
Lode

Je n'ai pas encore décidé si je vais participer, car en 2D ou 3D je suis encore plus nul que pour le reste.

Mais, je trouve cette initiative plus que positive, rien que pour cela, tu mérites une salve d'applaudissement.

Bravo, A+ cheers

Merci beaucoup, Jean Claude!
L'idée c'était aussi pourqu'on essaye un peu les autres possibilités de Panoramic. (Pour moi aussi le 2D et 3D étaient nouveaux, mais avec Panoramic, ça roule très bien.)
Sur les défis, je vais essayer de varier les thèmes, pour qu'il y aurait des défi intéressants pour tout le monde. Wink

A+!
Lode
PS: J'ai déjà bcp participé aux concours photos amicales, c'est ce qui m'a donné cette idée Wink

PS2: Des suggestions de défi sont le bienvenu en message privé. (Pour que tout le monde puisse commencer a les réaliser en même temps.)

excellente initiative, peu de chance que j'y participe mais sympa comme principe.

je pense que t devrai centraliser les sources puis les publier un jour donné OU laisser les gens publier un EXE et le gagnant fournit son code une fois élu.

jp

Nombre de messages : 601 Date d'inscription : 05/01/2012

C'est une bonne idée JPCR Wink

Nombre de messages : 601 Date d'inscription : 05/01/2012

Je viens de penser à un truc, 2D et 3D c'est pas la même catégorie ni les mêmes outils, ni le même rendu.

Je pense que pour départager des concurrents il faut qu'ils travaillent tous avec les mêmes outils et/ou la même matière.
Un dessinateur ne pourra pas concourir contre un photographe, car la façon de les juger n'est pas la même, autant que les outils qu'ils utilisent et le rendu.

Surtout qu'en 2D Panoramic scintille obligatoirement lors des animations.
Alors un soleil qui monte et descend ça va scintiller.

En plus, Comme il ne gère pas la transparence, tu ne peux pas faire passer un soleil derrière l'horizon, celui-ci sera toujours visible.
J'ai fait mon programme et je l'ai encore confirmé.

La seule solution pour faire un truc convenable c'est de le faire en 3D car là il y a surement les outils adaptés, je ne connais pas.

Je présenterais mon déchet de dessin en 2D mais ce sera juste pour participer ^^

je ne crois pas que ce soit très grave car les limitations sont les mêmes pour tous donc pas de souci.

Bonjour!

Oui, c'est vrai que pour ce défi, le 3D marche mieux. Pour l'utilisation de sprite (en 2D alors), c'est impossible parce qu'il y a la condition de pas utiliser de fichiers externes. Ou, est-il possible de dessiner un truc sur un canvas sécondaire ou non-visible et le copier coller pour utiliser comme un sprite?
Sinon, je crois qu'il éxiste une manière quand-même pour faire bouger le soleil dans le 2D sans utiliser de sprite et sans que le transparence soit nécessaire.

Pour répondre a JPCR, je crois que si tout le monde poste les codes le plus tard possible le jour J, il n'y aura pas de problème.

J'avais pensé aux EXE aussi, mais je l'avais rejetté pour 2 raisons:

1. Ce qui compte, c'est bien sur le résultat, mais je crois aussi que l'élégance du code est un critère
(peut-être plus pour d'autres défis moins visuels, mais quand-même)

2. Des fichiers EXE doivent être aubergés qq'part et c'est moins sûr (virus), donc ça pourrait un peu compliquer les choses, hors que les codes sources en texte, c'est facile a copier-coller dans le forum. Wink

J'espère que vous êtes d'accord et que je ne donne pas l'impression d'être têtu Wink

Bonne journée!!

Lode

Nombre de messages : 601 Date d'inscription : 05/01/2012

Moi j’arrête, là, je n'ai pas pas fait de maison ni d'arbre, car l'animation impossible me dégoute.
Je te passe mon code pour la participation, et pour que tu vois s'il y a des choses à retirer pour toi, mais tu le testeras tu verras c'est le dégoût.

Pour faire des dessins sans importer d'images il y a une solution mais je ne voulais pas la faire car pour moi c'est comme importer une image, même si ce n'est pas du BMP, c'est quand même la représentation d'une image.
L'astuce c'est de mettre des caractères dans un fichier texte, et quand tu le lis tu convertis les caractères en pixels de couleurs.

Je te passe le source par MP.

Bnjour tout le monde! J'espère que vous n'avez pas oublié le défi de ce mois ci! Wink

J'espère que vous publiez vos codes avant le 25 février 2012, 22h00.
Je suis curieux de voir les résultats!

Amicalement,

Lode

rien de mon coté, désolé.

Désolé, je ne participerais pas non plus Lodcho... mais l'idée est bonne. Juste pas eu le temps / inspiration pour faire un truc

Salut Lodchjo,

Comme je l'ai laissé entendre plus haut, je ne participerais pas sur ce coup-là.

Je prépare une application qui semble résister à à tout les tests que je lui fait subir. C'est une application de gestion comptable qui n'a rien à voir avec la 2D/3D et qui me prend tout mon temps libre. Je commence à peine de préparer le tuto qui va avec.
J'espère vous mettre une première version de cette application en ligne d'ici à 2 mois.

Je t'encourage à continuer ton initiative car elle est bonne, et je suis curieux de voir ce qu'il va en ressortir ce mois-ci. bounce

A+

Bonjour tout le monde!
Bon, j'espère que le prochain défi marchera mieux. De mon côté, pas de problème, je comprends qu'on n'as pas que ça a faire! Wink

De toute façon, je posterai ma solution demain. Et peut-être qu'il y aura d'autres qui bossent encore en silence Wink

En tout cas, le prochain défi sera tout différent. Wink

Bien a vous,
Lode

Bon pour ce coup là Lodcho, tu n'auras pas beaucoup de concurence, mais la prochaine fois, ce sera (je l'espère) plus difficile Smile

Bonsoir à tous amis panoramiciens,

Ces deux derniers jours, j'ai disparu du forum, et je ne pouvais rien faire, car je me trouvais au lit avec 40° de fièvre. Ce soir ça commence à aller mieux et je voulais quand même envoyer mon code pour le petit concours que Lode a lancé. Je ne sais pas si je serais le seul participant, mais tant pis! Et puis j'avoue que je me suis aidé de mon programme 3d_world.
voici mon code, rien de bien compliqué (appui sur esc pour arrêter le programme):

Code:: full_space 0:border_hide 0:scene3d 1:full_space 1:color 1,0,200,200
cam_position 0,1.7,10:point_position 0,1.7,0
' Terrain
3d_plane 2:3d_rotate 2,90,0,0:3d_scale 2,100,100,1:3d_color 2,75,50,0
' Maison
3d_cube 3,3:3d_position 3,0,1.5,0:3d_scale 3,2,1,1:3d_color 3,105,110,120
' Toit
3d_cylinder 4,1,3,1:3d_position 4,0,3.5,0:3d_scale 4,1.75,1.25,0.7:3d_color 4,100,0,0
' Porte
3d_box 5,1,2,1:3d_position 5,0,1,1.05:3d_color 5,0,0,0
' Fenêtre Gauche
3d_box 6,1,1,1:3d_position 6,-1.75,1.25,1.05:3d_color 6,0,100,100
' Fenêtre Droite
3d_box 7,1,1,1:3d_position 7,1.75,1.25,1.05:3d_color 7,0,100,100
' Tronc
3d_cylinder 8,5,1.15,1:3d_position 8,10,3.75,-2.5:3d_scale 8,0.5,1.5,0.5:3d_color 8,80,30,0
' Feuillage
3d_cone 9,7,2.5:3d_position 9,10,6,-2.5:3d_color 9,0,140,0
' Soleil
3d_sphere 10,1:3d_color 10,250,255,20
dim x,y:x=30
while scancode <> 27
3d_position 10,x,13,0:light_position x,15,3
wait 100:x=x-0.5:if x=-30 then x=30
end_while:terminate

D'autre part, comme mon post sur la coloration des rectangles en biais a été verouillé, je remercie chaleureusement JL35 pour sa colaboration à résoudre mon problème. Mais je dois dire que sa dernière solution ne me donnait pas satisfaction.
Alors, même avec 40° de fièvre, je peux réfléchir aux problèmes et j'ai trouvé une solution hyper simple qui tient en une boucle pour effacer le contenu de mon rectangle en biais et le colorer comme je le souhaite! Je poste donc ma réponse ici pour JL35 et les autres membres, car ça peut servir!

Code:: dim xa%,ya%,xb%,yb%,xc%,yc%,xd%,yd%,xe%,ye%,xf%,yf%,xp%,yp%,xv%,yv%
dim lg%,ha%,dh%,a,k,pi,mx,my,x1%,y1%,x2%,y2%,ka%,j
label pos_souris,trace,calcul_points,fin

full_space 0:picture 1:full_space 1

color 1,100,0,0

image 100
pi=4*atn(1):ha%=300:dh%=ha%/2:2d_target_is 1

main_menu 10
sub_menu 11:parent 11,10:caption 11,"Trace rectangle":on_click 11,trace
on_close 0,fin

end

pos_souris:
2d_fill_color 255,255,100
print_locate xp%-20,yp%-30:print "x=";str$(xp%);" y=";str$(yp%)
wait 200
return

trace:
2d_image_copy 100,0,0,width(1),height(1)
cursor_cross 1
print_target_is 1
repeat
xd%=mouse_x_position(1):yd%=mouse_y_position(1)
if xd%<>xp% or yd%<>yp%
2d_image_paste 100,0,0
xp%=xd%:yp%=yd%:gosub pos_souris
end_if
until (mouse_left_down(1)=1 and mouse_left_up(1)=0)
2d_image_paste 100,0,0:2d_image_copy 100,0,0,width(1),height(1)
2d_pen_color 0,0,0:2d_pen_width 2
while mouse_left_up(1)=0
xf%=mouse_x_position(1):yf%=mouse_y_position(1)
lg%=sqr(power(xf%-xd%,2)+power(yd%-yf%,2))
if xf%<>xv% or yf%<>yv%
2d_image_paste 100,0,0:gosub calcul_points
2d_line xa%,ya%,xe%,ye%:2d_poly_to xc%,yc%:2d_poly_to xb%,yb%:2d_poly_to xa%,ya%
xv%=xf%:yv%=yf%:xp%=xf%:yp%=yf%
print_locate xp%-20,yp%-60:print "Angle: ";str$(wrap_value(a));"°";" Épaisseur= ";str$(ha%)
print_locate xp%-20,yp%-45:print "Longueur= ";str$(lg%)
gosub pos_souris:wait 100
end_if
end_while
2d_image_paste 100,0,0
if lg%<>0
' Nettoyage
2d_pen_color 255,255,255:2d_pen_width 2
for j=-1*dh% to dh%
x1%=xd%-j*sin(k):y1%=yd%-j*cos(k)
x2%=x1%+lg%*cos(k):y2%=y1%-lg%*sin(k)
2d_line x1%,y1%,x2%,y2%
next j
' Trace rectangle final
2d_pen_color 0,0,0
2d_line xa%,ya%,xe%,ye%:2d_poly_to xc%,yc%:2d_poly_to xb%,yb%:2d_poly_to xa%,ya%
mx=(xd%+xf%)/2:my=(yd%+yf%)/2:2d_fill_cross:2d_flood mx,my,0,0,255
end_if
cursor_arrow 1
return

calcul_points:
if xf%>xd%
k=atn((yd%-yf%)/(xf%-xd%)):a=k*180/pi:a=int(a*100)/100
end_if
if xf%<xd%
k=atn((yd%-yf%)/(xf%-xd%)):a=k*180/pi:a=int(a*100)/100:a=180+a:k=k+3.14
end_if
if xd%=xf%
if yf%<yd% then a=90:k=1.57
if yf%>yd% then a=270:k=4.71
end_if
xa%=xd%-dh%*sin(k):ya%=yd%-dh%*cos(k): ' point A
xe%=xd%+dh%*sin(k):ye%=yd%+dh%*cos(k): ' point E
xc%=xe%+lg%*cos(k):yc%=ye%-lg%*sin(k): ' point C
xb%=xa%+lg%*cos(k):yb%=ya%-lg%*sin(k): ' point B
return

fin:
terminate

Enfin, pour terminer, je voudrais dire un petit mot à exdragon.
Ne m'en veux pas si je ne te répond pas. Si tu n'as pas de réponse de ma part, c'est que ta proposition est hors sujet avec mon problème. Comme dans mon ancienne profession, je manipulais une radiotéléphonie et que non seulement mes agents mais le public aussi pouvaient m'entendre, et que je traitais environ en moyenne une trentaine de message par heure, j'ai toujours fais le tri entre les informations qui devaient être traitées.
Je crois que tu n'es pas le seul à ne pas avoir eu de réponses de ma part sur certains problèmes. Alors, je m'excuse auprès de vous tous, et je vous remercie de votre contribution.

Je retourne me reposer et je vous souhaite à tous une très bonne soirée.

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Salut bignono,
Veinard, tu peux rester au lit toute la journée !
Blague à part, soigne-toi bien et reviens vite.

PS je n'ai pas étudié ton code en détail (pour les rectangles), mais en tout cas ça semble marcher dans tous les cas, bravo !

Et ton code du concours, très joli ! en si peu de lignes ! (même si le soleil a un peu l'air d'un ballon de rugby, on dirait un essai en train d'être marqué Very Happy

)
Décidément, la fièvre te donne des idées !

Bignono, merci pour la participation! J'aime bien la maison et l'arbre, qui sont mieux réussi que les miens!
Voila ce que j'ai fabriqué (cliquez pour sortir):

Code:: label stp
dim x, a$, h, m
width 0,800:height 0,600
caption 0, "Revolution by Lodchjo."
scene3d 1
full_space 1
on_click 1,stp
3d_sphere 2,0.5
3d_color 2,200,200,50
3d_plane 3:3d_x_scale 3,0.2:3d_y_scale 3,2:3d_y_position 3,-4.1:3d_z_rotate 3,90
3d_color 3,80,80,80
3d_plane 4:3d_x_scale 4,1:3d_y_scale 4,2:3d_y_position 4,3:3d_z_position 4,-4:3d_z_rotate 4,90
3d_color 4,0,0,80
3d_plane 5:3d_x_scale 5,1:3d_y_scale 5,2:3d_y_position 5,-1:3d_z_position 5,-4:3d_z_rotate 5,90
3d_color 5,0,80,0
for x = 6 to 9
3d_cube x,1.5: 3d_x_scale x,0.8:3d_y_scale x,1.5:3d_z_scale x,1.5:3d_color x,rnd(80),rnd(80),rnd(80)
3d_x_position x,7.5-x*1.22: 3d_y_position x,-2: 3d_z_position x,-1.25
3d_cube x+8,1.15: 3d_x_scale x+8,1:3d_y_scale x+8,1.6:3d_z_scale x+8,1:3d_color x+8,80,rnd(80),rnd(80)
3d_x_position x+8,7.5-x*1.22: 3d_y_position x+8,-0.6: 3d_z_position x+8,-1.15:3D_X_ROTATE x+8,45
next x
3d_cylinder 10, 2,0.5,0.5
3d_x_position 10,2.9: 3d_y_position 10,-1.8
3d_color 10,126,82,45
3d_sphere 11,1.5:3d_x_scale 11,0.5:3d_color 11,0,100,0
3d_x_position 11,2.7:3d_y_position 11,0.3
3d_plane 12: 3d_x_scale 12,1.1:3d_z_position 12,2
3d_color 12, 0,0,0:3d_transparent 12,255
3d_text 18,1
3d_color 18, 255,255,255
3d_x_position 18, -5
3d_y_position 18, 3
3d_z_position 18, 0
3d_x_scale 18, 0.5
3d_y_scale 18, 0.5
3d_z_scale 18, 0.5
while x<100
h=4
for x=-7 to 7 step 0.015
m=m+1.2:if m>59 then m=0:h=h+1
3d_text_change 18, str$(h)+":"+right$("0"+str$(int(m)),2)
if scancode=27 then stop
3d_x_position 2,x: 3d_y_position 2,3-x*(sin(x/9))
light_position x,3-x*(sin(x/9)),0
3d_transparent 12,255-abs(x*x*254/49)
wait 10
next x
while h<>4
m=m+1.2:if m>59 then m=0:h=h+1
if h>23 then h=0
3d_text_change 18, str$(h)+":"+right$("0"+str$(int(m)),2)
wait 10
end_while
end_while
end
stp:
terminate

Merci, c'était agréable de le faire!
Au prochain défi, a annoncer dans quelques jours! Wink

Lode

Nombre de messages : 601 Date d'inscription : 05/01/2012

Bravo lodchjo !!!
Très beau programme !

Impressionnant...

Mon appréciation: graphiquement, je préfère le dessin de Bignono.
Par contre, l'animation de lodcho est très sympa.

Jicehel a écrit:: Mon appréciation: graphiquement, je préfère le dessin de Bignono.
Par contre, l'animation de lodcho est très sympa.

Si on bricole un peu, on pourrait fusionner les deux Wink

Comme ça vous serez co-gagnants ^^

Re_bonjour Lode, Smile

Très bien fait ton petit programme! Ce que j'apprécie le plus, c'est ton 3d_plane 12, avec son 3d_transparent. Personellement, je n'aurais jamais pensé utiliser ceci pour faire la nuit! C'est une solution très originale! Bon courage, à plus! Wink

» Concours: défi de programmation mars 2012
» Petit défi de programmation.
» Version instantanée du 13 février 2012: PANORAMIC V 0.9.23i5
» Programmation linéaire
» Les pentaminos