| Novembre 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | | | 1 | 2 | 3 | | 4 | 5 | 6 | 7 | 8 | 9 | 10 | | 11 | 12 | 13 | 14 | 15 | 16 | 17 | | 18 | 19 | 20 | 21 | 22 | 23 | 24 | | 25 | 26 | 27 | 28 | 29 | 30 | |  Calendrier |
|
|
| | Nouvelle palette de couleurs |  |
| | | Auteur | Message |
|---|
bignono
Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011
| | Sujet: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 16:09 | |
| A la fin de mon article que je viens d'envoyer sur le web dav d'Ygeronimi pour correction, j'ai fait un petit programme d'une palette circulaire que je met également sur le forum: - Spoiler:
label pick
dim d
init()
timer 99:timer_interval 99,100:on_timer 99,pick
end
pick:
timer_off 99
d=int(sqr(power(64-mouse_x_position(1),2)+power(64-mouse_y_position(1),2)))
if d<64
caption 4,"R="+str$(color_pixel_red(1,mouse_x_position(1),mouse_y_position(1)))+" V="+str$(color_pixel_green(1,mouse_x_position(1),mouse_y_position(1)))+" B="+str$(color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1)))
color 2,color_pixel_red(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_green(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
end_if
if clicked(1)=1 and d<64
color 3,color_pixel_red(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_green(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
caption 7,caption$(4)
end_if
timer_on 99
return
sub init()
dim_local i,r,v,b,pi:pi=acos(-1)
picture 1 : width 1,128 : height 1,128
picture 2 : left 2,130 : width 2,128 : height 2,128
picture 3 : left 3,260 : width 3,128 : height 3,128
alpha 4 : top 4,130:font_bold 4
alpha 5 : left 5,130 : top 5,130 : caption 5,"Couleur survolée"
alpha 6 : left 6,260 : top 6,130 : caption 6,"Couleur choisie"
alpha 7 : left 7,left(6) : top 7,top(6)+height(6)+1
2d_target_is 1
' Tracé de la palette circulaire
for i=0 to (2*pi)/3 step pi/3060
r=r+0.333333
if r>255
r=255:v=v+0.333333
if v>255
v=255:b=b+0.333333
end_if
end_if
2d_pen_color int(r),int(v),int(b):2d_line 64,64,64*cos(i)+64,64*sin(i)+64
2d_pen_color int(v),int(b),int(r):2d_line 64,64,64*cos(i+(2*pi)/3)+64,64*sin(i+(2*pi)/3)+64
2d_pen_color int(b),int(r),int(v):2d_line 64,64,64*cos(i+2*((2*pi)/3))+64,64*sin(i+2*((2*pi)/3))+64
display
next i
end_sub
A+  | |
| | | | JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 17:05 | |
| Bravo bignono, joli programme, impeccable ! | |
| | | | bignono
Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011
| | Sujet: Re: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 18:19 | |
| merci JL35. Tiens, j'ai agrandi la palette, mais c'est plus long à tracer. - Spoiler:
label pick
dim d
init()
timer 99:timer_interval 99,100:on_timer 99,pick
end
pick:
timer_off 99
d=int(sqr(power(128-mouse_x_position(1),2)+power(128-mouse_y_position(1),2)))
if d<128
caption 4,"R="+str$(color_pixel_red(1,mouse_x_position(1),mouse_y_position(1)))+" V="+str$(color_pixel_green(1,mouse_x_position(1),mouse_y_position(1)))+" B="+str$(color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1)))
color 2,color_pixel_red(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_green(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
end_if
if clicked(1)=1 and d<128
color 3,color_pixel_red(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_green(1,mouse_x_position(1),mouse_y_position(1)),color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
caption 6,"Couleur choisie: "+caption$(4)
end_if
timer_on 99
return
sub init()
dim_local i,r,v,b,pi:pi=acos(-1)
width 0,800 : height 0,320
picture 1 : width 1,256 : height 1,256
picture 2 : left 2,260 : width 2,256 : height 2,256
picture 3 : left 3,520 : width 3,256 : height 3,256
alpha 4 : top 4,260:font_bold 4
alpha 5 : left 5,260 : top 5,260 : caption 5,"Couleur survolée"
alpha 6 : left 6,520 : top 6,260 : font_bold 6
2d_target_is 1
' Tracé de la palette circulaire
for i=0 to (2*pi)/3 step pi/12240
r=r+0.08333325
if r>255
r=255:v=v+0.08333325
if v>255
v=255:b=b+0.08333325
end_if
end_if
2d_pen_color int(r),int(v),int(b):2d_line 128,128,128*cos(i)+128,128*sin(i)+128
2d_pen_color int(v),int(b),int(r):2d_line 128,128,128*cos(i+(2*pi)/3)+128,128*sin(i+(2*pi)/3)+128
2d_pen_color int(b),int(r),int(v):2d_line 128,128,128*cos(i+2*((2*pi)/3))+128,128*sin(i+2*((2*pi)/3))+128
display
next i
end_sub
A+ | |
| | | | JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 18:24 | |
| C'est plus précis mais c'est un peu trop long, je préfère l'autre ! Je me suis fait une petite variante de ta première version, en plus compact encore: - Spoiler:
label pick
dim d,a$,r,g,b,ct,h$
init()
timer 99:timer_interval 99,100:on_timer 99,pick
end
pick:
timer_off 99
d=int(sqr(power(64-mouse_x_position(1),2)+power(64-mouse_y_position(1),2)))
if d<64
r = color_pixel_red(1,mouse_x_position(1),mouse_y_position(1))
g = color_pixel_green(1,mouse_x_position(1),mouse_y_position(1))
b = color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
h$ = RIGHT$("0"+HEX$(r),2)+RIGHT$("0"+HEX$(g),2)+RIGHT$("0"+HEX$(b),2)
ct=65536*r+256*g+b
a$ = "R= "+RIGHT$(" "+STR$(r),3)+CHR$(10)+"G= "+RIGHT$(" "+STR$(g),3)+CHR$(10)+"B= "+RIGHT$(" "+STR$(b),3)
a$=a$+CHR$(10)+h$+CHR$(10)+STR$(ct)
caption 4,a$
COLOR 2,r,g,b
end_if
if clicked(1)=1 and d<64
COLOR 3,r,g,b
caption 7,caption$(4)
end_if
timer_on 99
return
sub init()
dim_local i,r,v,b,pi:pi=acos(-1)
WIDTH 0,280: HEIGHT 0,170: BORDER_SMALL 0: CAPTION 0," - PALETTE -"
picture 1 : width 1,128 : height 1,128
picture 2 : TOP 2,20: left 2,130 : width 2,60 : height 2,50
picture 3 : TOP 3,20: left 3,LEFT(2)+WIDTH(2)+4 : width 3,WIDTH(2) : height 3,HEIGHT(2)
' alpha 4 : top 4,130:font_bold 4
ALPHA 4: TOP 4,TOP(2)+HEIGHT(2)+3: LEFT 4,LEFT(2): FONT_NAME 4,"Lucida Console"
alpha 5 : left 5,LEFT(2)+10 : top 5,5 : caption 5,"Survol": FONT_BOLD 5
alpha 6 : left 6,LEFT(3)+15 : top 6,5 : caption 6,"Choix": FONT_BOLD 6
' alpha 7 : left 7,left(6) : top 7,top(6)+height(6)+1
ALPHA 7: TOP 7,TOP(4): LEFT 7,LEFT(3): FONT_NAME 7,"Lucida Console"
2d_target_is 1
' Tracé de la palette circulaire
for i=0 to (2*pi)/3 step pi/3060
r=r+0.333333
if r>255
r=255:v=v+0.333333
if v>255
v=255:b=b+0.333333
end_if
end_if
2d_pen_color int(r),int(v),int(b):2d_line 64,64,64*cos(i)+64,64*sin(i)+64
2d_pen_color int(v),int(b),int(r):2d_line 64,64,64*cos(i+(2*pi)/3)+64,64*sin(i+(2*pi)/3)+64
2d_pen_color int(b),int(r),int(v):2d_line 64,64,64*cos(i+2*((2*pi)/3))+64,64*sin(i+2*((2*pi)/3))+64
display
next i
end_sub
| |
| | | | bignono
Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011
| | Sujet: Re: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 18:38 | |
| Super JL35, bien vu!  | |
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 18:55 | |
| Bravo, j'adore. Je prends la version de la palette avec la modif de JL35. Super lisible, très compacte et en peu de ligne. Bravo à vous. | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Nouvelle palette de couleurs Jeu 1 Mai 2014 - 20:19 | |
| Très bon utilitaire ! Je prends aussi. Merci a tous les 2. Je cherché une palette de ce genre depuis quelques temps, mais je n'avais pas pris le temps de la faire. J'ai bien fais d'attendre...  | |
| | | | Invité
Invité
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 1:44 | |
| Bonsoir, Je me suis permis de mettre le programme sur mon site. C'est un entrainement et le programme est intéressant.
- hors sujet, mais changement de lien:
J'ai du changé le lien, car depuis une nouvelle interface de hostinger, c'était pas pratique. A titre indicatif, il devient: iciOn en reparlera plus tard. Le double 'site' c'est un problème de zip qui n'est plus intégré directement mais qu'il faut le décompacter. Je ne sais pas pourquoi, mais le menu du haut ne fonctionne pas, peut-être le lien. 
|
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 9:31 | |
| Hors sujet: Merci pour le nouveau lien sur ton site Cosmos. Hors sujet 2: Tu sais avec le contenu de ton site pour créer un site en Panoramic, tu as tout ce qu'il faut pour faire deux ou trois articles très intéressant pour le mag. Ne commence pas à te dévaloriser comme tu peux le faire des fois en pensant que ça n’intéresse personne car ce sujet intéresse beaucoup de monde et mériterait bien quelques articles basés sur le tutoriel que tu as mis sur ton site. Pour la mise en forme, la correction et autres choses qui pourraient te refroidir, ne t'inquiète pas. D'une part tu l'as déjà faits sur ton site et ce n'est pas bien différent pour un article et d'autre part, tu sais que l'on te donnera notre avis et que tu pourras y faire ton choix. Fin des hors sujet | |
| | | | bignono
Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 11:55 | |
| Salut Cosmos,  Ce n'est pas hors sujet, et je te remercie d'avoir mis mon code sur ton site! Bon, j'ai encore un peu modifié le code, et pour moi, je pense que la palette est plus logique comme ça, mais c'est plus long à s'afficher: - Spoiler:
label pick
dim d,a$,r,g,b,ct,h$
init()
timer 99:timer_interval 99,100:on_timer 99,pick
end
pick:
timer_off 99
d=int(sqr(power(64-mouse_x_position(1),2)+power(64-mouse_y_position(1),2)))
if d<64
r = color_pixel_red(1,mouse_x_position(1),mouse_y_position(1))
g = color_pixel_green(1,mouse_x_position(1),mouse_y_position(1))
b = color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
h$ = RIGHT$("0"+HEX$(r),2)+RIGHT$("0"+HEX$(g),2)+RIGHT$("0"+HEX$(b),2)
ct=65536*r+256*g+b
a$ = "R= "+RIGHT$(" "+STR$(r),3)+CHR$(10)+"G= "+RIGHT$(" "+STR$(g),3)+CHR$(10)+"B= "+RIGHT$(" "+STR$(b),3)
a$=a$+CHR$(10)+h$+CHR$(10)+STR$(ct)
caption 4,a$
COLOR 2,r,g,b
end_if
if clicked(1)=1 and d<64
COLOR 3,r,g,b
caption 7,caption$(4)
end_if
timer_on 99
return
sub init()
dim_local i,r,v,b,pi:pi=acos(-1)
WIDTH 0,280: HEIGHT 0,170: BORDER_SMALL 0: CAPTION 0," - PALETTE -"
picture 1 : width 1,128 : height 1,128
picture 2 : TOP 2,20: left 2,130 : width 2,60 : height 2,50
picture 3 : TOP 3,20: left 3,LEFT(2)+WIDTH(2)+4 : width 3,WIDTH(2) : height 3,HEIGHT(2)
ALPHA 4: TOP 4,TOP(2)+HEIGHT(2)+3: LEFT 4,LEFT(2): FONT_NAME 4,"Lucida Console"
alpha 5 : left 5,LEFT(2)+10 : top 5,5 : caption 5,"Survol": FONT_BOLD 5
alpha 6 : left 6,LEFT(3)+15 : top 6,5 : caption 6,"Choix": FONT_BOLD 6
ALPHA 7: TOP 7,TOP(4): LEFT 7,LEFT(3): FONT_NAME 7,"Lucida Console"
2d_target_is 1
' Tracé de la palette circulaire
for i=0 to (2*pi) step (pi/3060)
r=r+0.125
if r>255
r=255:v=v+0.125
if v>255
v=255:b=b+0.125
end_if
end_if
2d_pen_color int(r),int(v),int(b)
2d_line 64,64,64*cos(i)+64,64*sin(i)+64
display
next i
r=0:v=0:b=0
for i=0 to (2*pi) step (pi/3060)
r=r+0.125
if r>255
r=255:v=v+0.125
if v>255
v=255:b=b+0.125
end_if
end_if
2d_pen_color int(b),int(r),int(v)
2d_line 64,64,48*cos(i)+64,48*sin(i)+64
display
next i
r=0:v=0:b=0
for i=0 to (2*pi) step (pi/3060)
r=r+0.125
if r>255
r=255:v=v+0.125
if v>255
v=255:b=b+0.125
end_if
end_if
2d_pen_color int(v),int(b),int(r)
2d_line 64,64,32*cos(i)+64,32*sin(i)+64
display
next i
end_sub
Maintenant, je ne sais pas ce que vous en penserez. Quelle est la mieux d'après vous? A+ | |
| | | | Invité
Invité
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 13:17 | |
| Bonjour, Merci pour vos commentaires, mais comme c'est en dehors du sujet "Nouvelle palette de couleur", cette histoire de lien, c'est pour moi du hors sujet, je vais donc spoiler pour minimiser ce post. suite - ...:
Tant que le tutoriel n'est pas fini, je ne considérerai pas que le programme le soi. Je profite de celui-ci pour résoudre ce qui ne me convient pas, et pour rajouter des outils comme je l'ai fait depuis quelques temps, avec des tas de problèmes, comme une perte totale de 15 jours de modifications, suite à un blocage de l'ordi. Le pire était que j'étais sur le point de tester lorsque cela c'est produit. Pour éviter un renouvellement de ce problème, j'ai remis en place les outils d'AutoIt. Je fais un racourcis car c'est bien plus compliqué que cela. Ensuite je me suis trouvé avec les problèmes de la nouvelle version de comodo, le temps de comprendre ce qui se passait. Le changement d'aunti-virus, et m'adapter avec. Et encore, une chose que je ne comprend pas avec Iobit et Zone-Alarm, le remplaçant, c'est que lorsque je teste depuis mon programme le fichier généré, celui-ci fonctionne avec IE et Firefox, mais tourne en rond avec Chrome! Encore hier soir, après l'envoi des fichiers, je constate une modification des dossiers, qui me fait un dossier site dans un autre dossier site. Maintenant il faut que je pose la question pour savoir pourquoi le menu du haut ne fonctionne pas, alors que ça fonctionne sur le disque. Donc comme vous le voyez, c'est encore pas fini.
Maintenant je fais un site, surtout parce que j'ai commencé le truc, et je veux aller jusqu'au bout, et je pense que je serai l'un des seuls bénéficiaire. Je doute fort, malgrès vos encouragements, vous y voyez votre intérêt, et concernant le programme de création, je pourrai presque parier que personne ne créera de site avec. Mais je ne lâche rien! Là où j'en suis, je le fini.
Enfin pour ce qui est du mag, j'ai toujours été très mauvais pour mettre en avant de façon positive ce que je fais. Et pour cela il y a des raisons que je ne peux pas dire. En plus ce programme, je l'ai refais trois fois, les deux premières, je ne savais comment continuer, et la troisième fois, c'est avec un programme provisoire pour faire celui-ci par morceau assemblé par include qu'il a été conçu. Lorsque j'ai pensé que j'étais à la fin, je l'ai repris avec l'éditeur Panoramic pour faire des petites retouches et tester avec un exécutable, et ce fût de grosses retouches que j'ai fait, et cela devenait trop compliqué à reprendre par le découpage en includes. A partir de là pour m'y retrouver, j'ai préféré mettre mes bouts de procédures ,label et autre, avec la création des objets ou autre, pour voir ce que je faisais. Aussi le programme fonctionne dans sa totalité sans blocage. Tout semble correct (sauf l'histoire du menu dont je ne sais pas pourquoi il n'est plus présent. Peut-être une sécurité sur les iframes) mais c'est pas un programme propre comme on le montre sur un forum. Si on regarde de près, on peut se demander qu'est-ce qu'il lui a pris de coder comme cela? (en parlant de moi bien sûre).
|
| | | | Jicehel
Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 13:48 | |
| OK Cosmos C'est ton bébé, c'est toi qui voit. En tout cas bonne continuation Sinon Bignono, j'aime beaucoup ta nouvelle palette. Perso, ce que je ferais à ta place c'est de masquer la construction pour laisser la magie opérer. En plus, je pense que c'est un peu plus rapide, mais je n'ai pas testé. Je te met le code dans le spoiler (c'est ton code avec juste les hide et les show en plus, sinon, le reste est identique...) - Code:
- Code:
-
label pick
dim d,a$,r,g,b,ct,h$
hide 0
init()
timer 99:timer_interval 99,80:on_timer 99,pick
end
pick:
timer_off 99
d=int(sqr(power(64-mouse_x_position(1),2)+power(64-mouse_y_position(1),2)))
if d<64
r = color_pixel_red(1,mouse_x_position(1),mouse_y_position(1))
g = color_pixel_green(1,mouse_x_position(1),mouse_y_position(1))
b = color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
h$ = RIGHT$("0"+HEX$(r),2)+RIGHT$("0"+HEX$(g),2)+RIGHT$("0"+HEX$(b),2)
ct=65536*r+256*g+b
a$ = "R= "+RIGHT$(" "+STR$(r),3)+CHR$(10)+"G= "+RIGHT$(" "+STR$(g),3)+CHR$(10)+"B= "+RIGHT$(" "+STR$(b),3)
a$=a$+CHR$(10)+h$+CHR$(10)+STR$(ct)
caption 4,a$
COLOR 2,r,g,b
end_if
if clicked(1)=1 and d<64
COLOR 3,r,g,b
caption 7,caption$(4)
end_if
timer_on 99
return
sub init()
dim_local i,r,v,b,pi:pi=acos(-1)
WIDTH 0,280: HEIGHT 0,170: BORDER_SMALL 0: CAPTION 0," - PALETTE -"
picture 1 : width 1,128 : height 1,128 : hide 1
picture 2 : TOP 2,20: left 2,130 : width 2,60 : height 2,50
picture 3 : TOP 3,20: left 3,LEFT(2)+WIDTH(2)+4 : width 3,WIDTH(2) : height 3,HEIGHT(2)
ALPHA 4: TOP 4,TOP(2)+HEIGHT(2)+3: LEFT 4,LEFT(2): FONT_NAME 4,"Lucida Console"
alpha 5 : left 5,LEFT(2)+10 : top 5,5 : caption 5,"Survol": FONT_BOLD 5
alpha 6 : left 6,LEFT(3)+15 : top 6,5 : caption 6,"Choix": FONT_BOLD 6
ALPHA 7: TOP 7,TOP(4): LEFT 7,LEFT(3): FONT_NAME 7,"Lucida Console"
2d_target_is 1
' Tracé de la palette circulaire
for i=0 to (2*pi) step (pi/3060)
r=r+0.125
if r>255
r=255:v=v+0.125
if v>255
v=255:b=b+0.125
end_if
end_if
2d_pen_color int(r),int(v),int(b)
2d_line 64,64,64*cos(i)+64,64*sin(i)+64
next i
r=0:v=0:b=0
for i=0 to (2*pi) step (pi/3060)
r=r+0.125
if r>255
r=255:v=v+0.125
if v>255
v=255:b=b+0.125
end_if
end_if
2d_pen_color int(b),int(r),int(v)
2d_line 64,64,48*cos(i)+64,48*sin(i)+64
next i
r=0:v=0:b=0
for i=0 to (2*pi) step (pi/3060)
r=r+0.125
if r>255
r=255:v=v+0.125
if v>255
v=255:b=b+0.125
end_if
end_if
2d_pen_color int(v),int(b),int(r)
2d_line 64,64,32*cos(i)+64,32*sin(i)+64
next i
show 1 : show 0
end_sub
| |
| | | | bignono
Nombre de messages : 1127
Age : 67
Localisation : Val de Marne
Date d'inscription : 13/11/2011
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 16:11 | |
| Bon j'ai revu mon code. Jicehel, j'ai chronométré ton code chez moi, et il faut 8 secondes et demi avant d'avoir l'image. Alors j'ai revu les pas des boucles et l'incrémentation des couleurs. Je suis descendu en dessous de 4 secondes, ce qui est acceptable. - Spoiler:
label pick
dim d,a$,r,g,b,ct,h$
init()
timer 99:timer_interval 99,100:on_timer 99,pick
end
pick:
timer_off 99
d=int(sqr(power(64-mouse_x_position(1),2)+power(64-mouse_y_position(1),2)))
if d<64
r = color_pixel_red(1,mouse_x_position(1),mouse_y_position(1))
g = color_pixel_green(1,mouse_x_position(1),mouse_y_position(1))
b = color_pixel_blue(1,mouse_x_position(1),mouse_y_position(1))
h$ = right$("0"+hex$(r),2)+right$("0"+hex$(g),2)+right$("0"+hex$(b),2)
ct=65536*r+256*g+b
a$ = "R= "+right$(" "+str$(r),3)+chr$(10)+"G= "+right$(" "+str$(g),3)+chr$(10)+"B= "+right$(" "+str$(b),3)
a$=a$+chr$(10)+h$+chr$(10)+str$(ct)
caption 4,a$
color 2,r,g,b
end_if
if clicked(1)=1 and d<64
color 3,r,g,b
caption 7,caption$(4)
end_if
timer_on 99
return
sub init()
dim_local i,r,v,b,pi:pi=acos(-1)
hide 0 : width 0,280 : height 0,170: border_small 0: caption 0," - PALETTE -"
picture 1 : width 1,128 : height 1,128
picture 2 : top 2,20: left 2,130 : width 2,60 : height 2,50
picture 3 : top 3,20: left 3,left(2)+width(2)+4 : width 3,width(2) : height 3,height(2)
alpha 4: top 4,top(2)+height(2)+3: left 4,left(2): font_name 4,"Lucida Console"
alpha 5 : left 5,left(2)+10 : top 5,5 : caption 5,"Survol": font_bold 5
alpha 6 : left 6,left(3)+15 : top 6,5 : caption 6,"Choix": font_bold 6
alpha 7: top 7,top(4): left 7,left(3): font_name 7,"Lucida Console"
2d_target_is 1
' Tracé de la palette circulaire
for i=0 to (2*pi) step (pi/2600)
r=r+0.1471152
if r>255
r=255:v=v+0.1471152
if v>255
v=255:b=b+0.1471152
end_if
end_if
2d_pen_color int(r),int(v),int(b)
2d_line 64,64,64*cos(i)+64,64*sin(i)+64
next i
r=0:v=0:b=0
for i=0 to (2*pi) step (pi/550)
r=r+0.6954543
if r>255
r=255:v=v+0.6954543
if v>255
v=255:b=b+0.6954543
end_if
end_if
2d_pen_color int(b),int(r),int(v)
2d_line 64,64,48*cos(i)+64,48*sin(i)+64
next i
r=0:v=0:b=0
for i=0 to (2*pi) step (pi/550)
r=r+0.6954543
if r>255
r=255:v=v+0.6954543
if v>255
v=255:b=b+0.6954543
end_if
end_if
2d_pen_color int(v),int(b),int(r)
2d_line 64,64,32*cos(i)+64,32*sin(i)+64
next i
show 0
end_sub
A+ | |
| | | | JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 18:18 | |
| C'est effectivement plus rapide, mais ce silence visuel au début est un peu... frustrant. | |
| | | | Invité
Invité
| | Sujet: Re: Nouvelle palette de couleurs Ven 2 Mai 2014 - 18:51 | |
| J'ai faits une copie du deuxième modèle (pour l'instant sur l'ordi.) Je vais faire une critique, et je m'en excuse d'avance. Il est dommage que ces petits programmes interagissant soient faits avec des n° d'objets fixes. Si on a fait un programme, et qu'on décide d'incorporer ces subs, il faut reprendre les objets. Certes ce n'est pas un gros travail pour reprendre, mais peut-être que c'est plus cher, et celui qui n'a pas les moyens, il doit encore donner de sa personne.  |
| | | | JL35
Nombre de messages : 7112
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Nouvelle palette de couleurs Sam 3 Mai 2014 - 10:18 | |
| Des numéros d'objets fixes dans les subs, je ne trouve pas que ce soit très gênant...
Il faut évidemment que ce soit transparent pour le programme principal, mais il suffit de choisir dans la sub des numéros qu'on n'utilise pas habituellement, par exemple des numéros élevés, du genre 4 ou 5000, ou même plus (dans mes programmes je ne dépasse pratiquement jamais les 1000).
D'autre part on a les moyens dans la sub de vérifier si les numéros ne sont pas déjà pris (If Object_Exists) et dans ce cas de progresser en numéro dans une boucle, à grands pas éventuellement.
Et ne pas oublier de détruire les objets utilisés en sortant de la sub, pour pouvoir réutiliser celle-ci. | |
| | | | Jean Claude
Nombre de messages : 5950
Age : 70
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: Nouvelle palette de couleurs Sam 3 Mai 2014 - 21:17 | |
| Je vais mettre mon grain de sel, dans cet échange sur les N° d'objets. - JL35 a écrit:
- D'autre part on a les moyens dans la sub de vérifier si les numéros ne sont pas déjà pris (If Object_Exists) et dans ce cas de progresser en numéro dans une boucle, à grands pas éventuellement.
Oui c'est vrai, mais moi je suis plutôt de l'avis de Cosmos, car cela permet entre Panoramiciens de partager nos SUB, sans être obligé de les retoucher. Il semble que beaucoup d'entre nous ont adoptés no% comme variable dédiée aux N° d'objets, ce qui permet d'intégrer une SUB d'un Panoramicien dans son programme, sans se soucier des détails. Bien sur, si l'objet n'est utile que pour la SUB, alors ça n'a plus d'importance vu qu'on DELETE l'objet avant de sortir de la SUB. Au passage, je signale que cette palette de couleur est bien sympathique. D'entrée j'ai retouché les dimensions du FORM pour que le programme laisse de la place sur l'écran et je l'ai positionnée en haut et à droite car ça me semble plus pratique (affaire de goût). A+ | |
| | | | mindstorm
Nombre de messages : 685
Age : 55
Localisation : charente
Date d'inscription : 13/02/2013
| | Sujet: Re: Nouvelle palette de couleurs Mer 11 Fév 2015 - 21:19 | |
| avec une petite année de retard
MERCI BIGNONO
Palette convivial
Je vais tenter de l'utiliser
| |
| | | | Contenu sponsorisé
| | Sujet: Re: Nouvelle palette de couleurs | |
| |
| | | | | | Nouvelle palette de couleurs | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
