FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:12

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

» a l'aide klaus
par Minibug Hier à 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Concours: défi de programmation février 2012

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Concours: défi de programmation février 2012   Mar 31 Jan 2012 - 15: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?


Dernière édition par lodchjo le Mer 1 Fév 2012 - 11:09, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
exdragon

avatar

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

MessageSujet: Re: Concours: défi de programmation février 2012   Mar 31 Jan 2012 - 17:02

Ok chef^^
Je participe Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Mer 1 Fév 2012 - 11:08

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Concours: défi de programmation février 2012   Mer 1 Fév 2012 - 15:36

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Mer 1 Fév 2012 - 16:05

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.)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
jpcr

avatar

Nombre de messages : 276
Age : 50
Localisation : Val de Marne (94)
Date d'inscription : 06/05/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Mer 1 Fév 2012 - 18:39

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

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jeanpierre.creis.free.fr/Panoramic/Panoramic.html
exdragon

avatar

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

MessageSujet: Re: Concours: défi de programmation février 2012   Mer 1 Fév 2012 - 20:01

C'est une bonne idée JPCR Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
exdragon

avatar

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

MessageSujet: Re: Concours: défi de programmation février 2012   Jeu 2 Fév 2012 - 6:17

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 ^^
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jpcr

avatar

Nombre de messages : 276
Age : 50
Localisation : Val de Marne (94)
Date d'inscription : 06/05/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Jeu 2 Fév 2012 - 11:38

je ne crois pas que ce soit très grave car les limitations sont les mêmes pour tous donc pas de souci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jeanpierre.creis.free.fr/Panoramic/Panoramic.html
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Jeu 2 Fév 2012 - 11:45

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
exdragon

avatar

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

MessageSujet: Re: Concours: défi de programmation février 2012   Jeu 2 Fév 2012 - 12:25

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.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Mer 22 Fév 2012 - 22:11

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
jpcr

avatar

Nombre de messages : 276
Age : 50
Localisation : Val de Marne (94)
Date d'inscription : 06/05/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Ven 24 Fév 2012 - 13:03

rien de mon coté, désolé.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jeanpierre.creis.free.fr/Panoramic/Panoramic.html
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Ven 24 Fév 2012 - 13:31

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5086
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Concours: défi de programmation février 2012   Ven 24 Fév 2012 - 22:18

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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Sam 25 Fév 2012 - 0:38

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Sam 25 Fév 2012 - 0:57

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Sam 25 Fév 2012 - 22:06

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Concours: défi de programmation février 2012   Sam 25 Fév 2012 - 22:42

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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Dim 26 Fév 2012 - 0:59

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
exdragon

avatar

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

MessageSujet: Re: Concours: défi de programmation février 2012   Dim 26 Fév 2012 - 1:05

Bravo lodchjo !!!
Très beau programme !

Impressionnant...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Dim 26 Fév 2012 - 2:45

Mon appréciation: graphiquement, je préfère le dessin de Bignono.
Par contre, l'animation de lodcho est très sympa.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
lodchjo

avatar

Nombre de messages : 162
Age : 46
Localisation : Anvers
Date d'inscription : 26/12/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Dim 26 Fév 2012 - 2:54

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://lode.weebly.com
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Dim 26 Fév 2012 - 3:27

Comme ça vous serez co-gagnants ^^


Dernière édition par Jicehel le Dim 26 Fév 2012 - 12:01, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Concours: défi de programmation février 2012   Dim 26 Fév 2012 - 10:24

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Concours: défi de programmation février 2012   

Revenir en haut Aller en bas
 
Concours: défi de programmation février 2012
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Pour les vrais débutants en programmation
» Comodo Internet Security Pro gratuit en février
» Voie de Programmation pour profil de vitesse
» Problème de mise à jour de CN Europe NT V9 vers CN Europe NT 2012.20
» FR7B - Programmation MIDI...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: