icobox = icones-cubes ou sculpture 3D

Auteur  
# 11/03/2011 à 11:46 sculptKub
base d'une icobox : sculpture 3D dans un cube
(ici, la sculpture est aléatoire):

script-gam1 =

_-_-_-_-_-_ icoBox0 _-_-_ (compact DIRECT) _-_-_-_-_-_<br/>
$V0: type=decimal(0)§ §µ1R0o: cc=90,90,180§ cf=20,20,40§ %grad2=-3;90§ gradCyc§ p1=0;0§ dM=%W100;%H100§ §µ0P0bid: p=1;2§ %setK=234§ VU_N§ §µ0P0o: p=%W15;%H45§ VU_N§ §µ0P0on: p=%k12;%k10§ VU_N§ §µ0A1001: p=40;%H95§ bo=10;91§ va=50§ §µ1A1002: p=%W40;%H95§ bo=10;200§ va=120§ §µ1$V001: type=decimal((A1001.va*0.01))§ §µ1$V002: type=decimal((A1002.va*0.01))§ §µ1P01: p=($V001.sin()*P0on.y);($V001.cos()*P0on.y)§ VU_N§ §µ1P02: p=P0on.x;%k9§ VU_N§ §µ0P03: p=($V002.sin()*P02.x);($V002.cos()*P02.x)§ VU_N§ §µ1CMD: !=>§ §µ0 P0:p=..P0o.x;..P0o.y§ VU_N§ §µ0 P2:p=..P02.x;..P02.y§ VU_N§ §µ0 $V9: type=decimal(0.5,0,0.74,@)§ §µ1 $V3: type=nombre(0,0,5)§ §µ1 $V1: type=nombre(8,0,9)§ §µ1 $V2: type=nombre(4,0,9)§ §µ1 $V3c: type=nombre((5-$V3),0,5)§ §µ1 $V2c: type=nombre((5-$V2),0,5)§ §µ1 P1:p=..P01.x;..P01.y§ VU_N§ §µ1 P3:p=..P03.x;..P03.y§ VU_N§ §µ1 $V6: type=nombre(100,40,180,@)§ §µ1 $V4: type=nombre(250,120,200,@)§ §µ1 $V5: type=nombre(180,0,220,@)§ §µ1 P4: p=$V6;$V4§ VU_N§ §µ1 P5: p=$V5;$V9.round()§ VU_N§ §µ1P9:p=P0.x+P3.x*$V1+P1.x*$V2c;((P0.y+(P3.y*$V1))+(P2.y*$V3c)-(P1.y*$V2c))§ VU_N§ §µ1 G1: § cf=P4.x,P4.y,P5.x,P5.y,Ss§ pts=_P9.x;P9.y!§ _P1.x;(0-P1.y)|§ _P3.x;P3.y|§ _(0-P1.x);P1.y|§ &§µ1 G2: § cf=P4.x,P4.y,P5.x,P5.y,Ss§ pts=_P9.x;P9.y!§ _P3.x;P3.y|§ _0;P2.y|§ _(0-P3.x);(0-P3.y)|§ &§µ1 G3: § cf=99,$V5,$V5,P5.y,Ss§ pts=_P9.x+P3.x;P9.y+P3.y!§ _P1.x;(0-P1.y)|§ _0;P2.y|§ _(0-P1.x);(P1.y)|§ &§µ1CMD: !<=GRP1:_top ,copie=evolutive§ §µ1$V2: type=nombre(0,0,9)§ §µ1$V3: type=nombre(0,0,9)§ §µ1$V4: type=nombre(0,0,9)§ §µ1$V5: type=nombre(0,0,125)§ §µ1CMD0a10: #-> ?=(OUI)§ §µ1CMD0a100: #-> ?=(OUI)§ §µ1CMD0a1022: #-> ?=(OUI)§ §µ1CMD0a1023: # $V5.v=(($V2*25)+($V3*5)+$V4)§ §µ1CMD0a1024: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,§ §µ1CMD0a1026: # $V4.Plus(1)§ §µ1CMD0a1027: #<- ?=($V4<5)§ §µ1CMD0a1028: # $V4.v=0;§ §µ1CMD0a104: # $V3.Plus(1)§ §µ1CMD0a106: #<- ?=($V3<5)§ §µ1CMD0a108: # $V3.v=0;§ §µ1CMD0a15: # $V2.Plus(1)§ §µ1CMD0a20: #<- ?=($V2<5)§ §µ1CMD0a09: @ GRP1[0_]§ §µ0//GRP1T22: Clone(GRP1) ,$V8.v=1, § $V3.v=4, § $V1.v=2, § $V2.v=2, § P4.x=227, § P4.y=71, § P5.x=18, § §µ1//A4T: p=%W95;%H45§ t=16;100§ bo=0;51§ va=40§ or=1§ §µ1//GRP1T20: Clone(GRP1) ,$V3.v=2, § $V1.v=2,$V2.v=4,P4.x=227 ,P4.y=71,P5.x=18, § §µ1P7C1: p=-400;P0o.y§ VU_N§ §µ0P7cache2:p=P0o.x+P01.x*5+P03.x*2;P0o.y+P03.y*2-P01.y*5§ VU_N§ §µ1G7cache1: cc=gris-sombre§ VU_O§ cf=50,50,50,0.9,Ss§ pts=_P7C1!§ _(P01.x*5);(0-(P01.y*5))|§ _P03.x*2;P03.y*2|§ _(0-(P01.x*5));(P01.y*5)|§ _0;(P02.y*5)|§ _(0-(P03.x*2));(0-(P03.y*2))|§ &§µ1P7C2: p=P7C1.x+P01.x*5+P03.x*2;P7cache2.y§ %setK=300§ VU_O§ §µ1G7cache2: cc=gris-sombre§ cf=50,50,50,0.9,Ss§ pts=_P7C2!§ _(0-(P01.x*2);(P01.y*2)|§ _P03.x;P03.y|§ _(0-P01.x);P01.y|§ _(0-P03.x);(0-P03.y)|§ _(0-P01.x*2);P01.y*2|§ _0;P02.y*2|§ _P03.x;P03.y|§ _0;P02.y|§ _(0-P03.x);(0-P03.y)|§ _0;P02.y*2|§ _P03.x*3;P03.y*3|§ _P01.x*5;(0-P01.y*5)|§ _0;(0-P02.y*5)|§ &§µ1T7cacher1:p=%W85;30§ cc=blanc§ cf=bleu§ d=15§ t= hide§ §µ0T7voir1:p=%W85;60§ cc=blanc§ cf=bleu§ d=15§ t= show§ §µ0B7c1: frm=T7cacher1§ CLICK=gm1.faireP(P7C2.x=P7cache2.x,P7C1.x=P01.x+P0o.x,ERR[STATUT])§ §µ0B7s1: frm=T7voir1§ CLICK=gm1.faireP(P7C2.x=-200,P7C1.x=-200,ERR[STATUT])§ §µ0

<br/>
_-_-_-_-_-_-_-_-_-_-_
# 16/03/2011 à 18:08 sculptKub
paramétrez ce script pour modifier cette ico-box ou "sculpture-cube" semi-aléatoire :
(- "décompactez" d'abord le script pour y voir plus clair ...)
il suffit de modifier les 6 premières lignes [$V1d0*:...] pour définir une nouvelle sculture-cube combinant :
- des cubes avec des couleurs fixes (positionnés par des '9')
- d'autres cubes avec d'autres couleurs
(positionnés par des '8')
- d'autres cubes avec des couleurs aléatoires (positionnés par des '7')
- et en plus, des cubes translucides aléatoires (qui apparaissent et disparaissent) - positionné par des '1'

Le paramétrage d'une face choisie du cube (5X5) est affiché (à utiliser avec précaution : pas trop testé ...)

Si ce jeu vous tente, vous aurez sûrement envie d'aller plus loin:
- possibilité de déformer les arrêtes de chaque cube, de re-travailler les nuances de couleurs, les transparences ...
voir + d'explications ci-après ...

script-gam1 =
_-_-_-_-_-_ icoBox2 _-_-_ (compact DIRECT) _-_-_-_-_-_<br/>
$V1d00: type=liste(270019~200029~200809~220009~299999~,7,0)§ §µ0$V1d01: type=liste(270029~200801~208880~220802~291008~,7,1)§ §µ0$V1d02: type=liste(272009~200000~200800~200000~291001~,7,1)§ §µ0$V1d03: type=liste(299999~299004~290004~299224~299000~,7,1)§ §µ0$V1d04: type=liste(210000~207003~207700~207000~210023~,7,1)§ §µ0$V0: type=decimal(0)§ §µ0$V1ddd: type=liste(5~4~3~2~1~0~,2,0)§ §µ0R0o: cc=190,230,250§ cf=20,10,30§ %grad2=-3;100§ gradCyc§ p1=0;0§ dM=%W100;%H100§ §µ0T1next:p=%W70;30§ cc=bleu§ cf=vert§ d=15§ t=next§ §µ0B1next: frm=T1next§ CLICK=gm1.faireP($V1nE.Plus(1),ERR[STATUT])§ §µ0T1prev:p=%W55;30§ cc=bleu§ cf=vert§ d=15§ t=prev§ §µ0B1next: frm=T1prev§ CLICK=gm1.faireP($V1nE.Plus(-1),ERR[STATUT])§ §µ0$V1Ln: type=texte(_,80)§ §µ0$V1LnE: type=texte(-_,80)§ §µ0$V1txt: type=texte( ,80)§ §µ0P1md0: p=0;0§ VU_N§ §µ0P1md1: p=0;0§ VU_N§ §µ0$V1nn1: type=nombre(0)§ §µ0$V1nn2: type=nombre(0)§ §µ0CMD: !=>§ §µ0 $V1: type=nombre(120,0,999)§ §µ1 T1: p=%W75;$V1§ cc=noir§ cf=blanc§ d=14§ t=a?_§ §µ1CMD: !<=GRP8:_txn ,copie=evolutive§ §µ1$V1nC: type=nombre(0,0,7)§ §µ0$V1nR: type=nombre(0,0,6)§ §µ0$V1nE: type=nombre(2,0,4)§ §µ1T1k3: p=%W65;30§ cc=rouge§ cf=blanc§ d=14§ t=$V1nE§ §µ1CMD1h00: # $V1nC.v=0§ §µ1CMD1h01: # $V1nR.v=0§ §µ1CMD1h03: #-> ?=($V1nE<99) §µ1CMD1Ln001: # $V1Ln.v='$V1LnE.v=$V1d0 +$V1nE +[$V1nR]'§ §µ1CMD1Ln007: # $V1Ln.Eval()§ §µ1CMD1Ln009: # $V1txt.Plus($V1LnE +_|_)§ §µ1CMD1cc001: # P1md0.Modulo($V1LnE,10000)§ §µ1CMD1cc003: # $V1nn1.v=(P1md0.x*0.1);$V1nn2.v=(P1md0.x-($V1nn1*10))§ §µ1CMD1cc005: # P1md1.Modulo(P1md0.y,100)§ §µ1CMD1kk001: # $V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);§ §µ1CMD1kk003: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1kk005: # $V1nn1.v=((P1md1.x*0.1));$V1nn2.v=(P1md1.x-($V1nn1*10))§ §µ1CMD1kk007: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1kk009: # $V1nn1.v=((P1md1.y*0.1));$V1nn2.v=(P1md1.y-($V1nn1*10))§ §µ1CMD1kk00B: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1hh01: # $V1txt.v= §µ1CMD1hh02: # $V1nC.v=(2) §µ1CMD1hh022: #-> ?=(OUI) §µ1CMD1hh024: # $V1txt.Plus(. +$V1ddd[$V1nC] +.|) §µ1CMD1hh026: # $V1nC.Plus(1) §µ1CMD1hh027: #<- ?=($V1nC<7) §µ1CMD1h05: # GRP8[$V1nR]: $V1.v=..$V1nR*25+120,§ T1.t=..$V1txt,§ §µ1CMD1h06: # $V1nR.Plus(1) §µ1CMD1h07: #<- ?=($V1nR<5) §µ1CMD1h09: @ GRP8[0_]§ §µ0P0bid: p=1;2§ %setK=250§ VU_N§ §µ0P0o: p=%W9;%H40§ VU_N§ §µ0P0on: p=%k12;%k10§ VU_N§ §µ0P02: p=P0on.x;%k9§ VU_N§ §µ0A1001: p=40;%H95§ bo=10;91§ va=50§ §µ1A1002: p=%W40;%H95§ bo=10;200§ va=120§ §µ1$V001: type=decimal((A1001.va*0.01))§ §µ1$V002: type=decimal((A1002.va*0.01))§ §µ1P01: p=($V001.sin()*P0on.y);($V001.cos()*P0on.y)§ VU_N§ §µ1P03: p=($V002.sin()*P02.x);($V002.cos()*P02.x)§ VU_N§ §µ1CMD: !=>§ §µ0 P0:p=..P0o.x;..P0o.y§ VU_N§ §µ0 P2:p=..P02.x;..P02.y§ VU_N§ §µ0 $V9: type=decimal(0.5,0,0.56,@)§ §µ1 $V3: type=nombre(0,0,5)§ §µ1 $V1: type=nombre(8,0,9)§ §µ1 $V2: type=nombre(4,0,9)§ §µ1 $V3c: type=nombre((5-$V3),0,5)§ §µ1 $V2c: type=nombre((5-$V2),0,5)§ §µ1 P1:p=..P01.x;..P01.y§ VU_N§ §µ1 P3:p=..P03.x;..P03.y§ VU_N§ §µ1 $V6: type=nombre(100,40,180,@)§ §µ1 $V4: type=nombre(250,120,200,@)§ §µ1 $V5: type=nombre(180,0,220,@)§ §µ1 P4: p=$V6;$V4§ VU_N§ §µ1 P5: p=$V5;$V9.round()§ VU_N§ §µ1 $V8: type=nombre(0,0,999999)§ §µ1P9:p=P0.x+P3.x*$V1+P1.x*$V2c;((P0.y+(P3.y*$V1))+(P2.y*$V3c)-(P1.y*$V2c))§ VU_N§ §µ1 G1: § cf=P4.x,P4.y,P5.x,P5.y,Ss§ pts=e-9!_P9.x;P9.y!§ _P1.x;(0-P1.y)|§ e9!_P3.x;P3.y|§ _(0-P1.x);P1.y|§ &§µ1 G2: § cf=99,P4.y,P5.x,P5.y,Ss§ pts=_P9.x;P9.y!§ e9!_P3.x;P3.y|§ _0;P2.y|§ _(0-P3.x);(0-P3.y)|§ &§µ1 G3: § cf=(P5.x+120),P4.y,P4.y,P5.y,Ss§ pts=_P9.x+P3.x;P9.y+P3.y!§ _P1.x;(0-P1.y)|§ _0;P2.y|§ _(0-P1.x);(P1.y)|§ &§µ1CMD: !<=GRP1:_top ,copie=evolutive§ §µ0$V2: type=nombre(0,0,7)§ §µ0$V3: type=nombre(0,0,99)§ §µ0$V4: type=nombre(0,0,7)§ §µ0$V4p: type=nombre(1,0,7)§ §µ0$V5: type=nombre(0,0,125)§ §µ0$V7: type=nombre(0,0,999999)§ §µ0$V9: type=decimal(0.5,0,0.8,@)§ §µ0$V9m: type=decimal(0,0,0.8)§ §µ0CMD0a2: # $V2.v=0§ §µ1CMD0a3: # $V3.v=0§ §µ1CMD0a4: # $V4.v=0§ §µ1CMD0a5: # $V5.v=0§ §µ1CMD0a10: #-> ?=(OUI)§ §µ1CMD0a100: #-> ?=(OUI)§ §µ1CMD1mn001: # $V1Ln.v='$V1LnE.v=$V1d0 +$V2 +[$V3]'§ §µ1CMD1mn007: # $V1Ln.Eval()§ §µ1CMD1mc001: # P1md0.Modulo($V1LnE,10000)§ §µ1CMD1mc003: # $V1nn1.v=(P1md0.x*0.1);$V1nn2.v=(P1md0.x-($V1nn1*10))§ §µ1CMD1mc005: # P1md1.Modulo(P1md0.y,100)§ §µ1CMD1mk001: # $V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);§ §µ1CMD1mk003: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1mk005: # $V1nn1.v=((P1md1.x*0.1));$V1nn2.v=(P1md1.x-($V1nn1*10))§ §µ1CMD1mk007: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1mk009: # $V1nn1.v=((P1md1.y*0.1));$V1nn2.v=(P1md1.y-($V1nn1*10))§ §µ1CMD1mk00B: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD0a1022: #-> ?=(OUI)§ §µ1CMD0a10220a: # $V4p.v=$V4+2§ §µ1CMD0a10220b: # $V1txt.v=$V1ddd[$V4p]§ §µ1CMD0a10220e: # $V7.v=($V1txt)§ §µ1CMD0a102013: #-> ?=(($V7=1)&&($V9>$V9m))§ §µ1CMD0a102014: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P5.x=200,P5.y=0.8,§ §µ1CMD0a102015: # $V5.Plus(1)§ §µ1CMD0a102018: #<- ?=(NON)§ §µ1CMD0a10211: #-> ?=($V7=7)§ §µ1CMD0a10214: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P4.x=180,P4.y=150,P5.x=200,P5.y=1,§ §µ1CMD0a10215: # $V5.Plus(1)§ §µ1CMD0a10219: #<- ?=(NON)§ §µ1CMD0a10221: #-> ?=($V7=8)§ §µ1CMD0a10224: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P5.y=1,$V8.v=..$V7,§ §µ1CMD0a10225: # $V5.Plus(1)§ §µ1CMD0a10229: #<- ?=(NON)§ §µ1CMD0a10231: #-> ?=($V7=9)§ §µ1CMD0a10234: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P4.x=200,P4.y=90,P5.x=160,P5.y=1,$V8.v=..$V7,§ §µ1CMD0a10235: # $V5.Plus(1)§ §µ1CMD0a10239: #<- ?=(NON)§ §µ1CMD0a1026: # $V4.Plus(1)§ §µ1CMD0a1027: #<- ?=($V4<5)§ §µ1CMD0a1028: # $V4.v=0;§ §µ1CMD0a104: # $V3.Plus(1)§ §µ1CMD0a106: #<- ?=($V3<5)§ §µ1CMD0a108: # $V3.v=0;§ §µ1CMD0a15: # $V2.Plus(1)§ §µ1CMD0a20: #<- ?=($V2<5)§ §µ1CMD0a22: # $V9m.v=0.4;§ §µ0$V5m: type=nombre(($V5+1),0,125)§ §µ0CMD0af30: #-> ?=($V5<$V5m)§ §µ1CMD0af32: # GRP1[$V5]: $V3.v=0,P5.y=0,§ §µ1CMD0af34: # $V5.Plus(1)§ §µ1CMD0af38: #<- ?=(OUI)§ §µ1CMD0a09: @ GRP1[0_]§ §µ0P7C1: p=-400;P0o.y§ VU_N§ §µ0P7cache2:p=P0o.x+P01.x*5+P03.x*2;P0o.y+P03.y*2-P01.y*5§ VU_N§ §µ1G7cache1: cc=gris-sombre§ VU_O§ cf=50,50,50,0.9,Ss§ pts=_P7C1!§ _(P01.x*5);(0-(P01.y*5))|§ _P03.x*2;P03.y*2|§ _(0-(P01.x*5));(P01.y*5)|§ _0;(P02.y*5)|§ _(0-(P03.x*2));(0-(P03.y*2))|§ &§µ1P7C2: p=P7C1.x+P01.x*5+P03.x*2;P7cache2.y§ %setK=300§ VU_O§ §µ1G7cache2: cc=gris-sombre§ cf=50,50,50,0.9,Ss§ pts=_P7C2!§ _(0-(P01.x*2);(P01.y*2)|§ _P03.x;P03.y|§ _(0-P01.x);P01.y|§ _(0-P03.x);(0-P03.y)|§ _(0-P01.x*2);P01.y*2|§ _0;P02.y*2|§ _P03.x;P03.y|§ _0;P02.y|§ _(0-P03.x);(0-P03.y)|§ _0;P02.y*2|§ _P03.x*3;P03.y*3|§ _P01.x*5;(0-P01.y*5)|§ _0;(0-P02.y*5)|§ &§µ1T7cacher1:p=%W85;30§ cc=blanc§ cf=bleu§ d=15§ t= hide§ §µ0T7voir1:p=%W85;60§ cc=blanc§ cf=bleu§ d=15§ t= show§ §µ0B7c1: frm=T7cacher1§ CLICK=gm1.faireP(P7C2.x=P7cache2.x,P7C1.x=P01.x+P0o.x,ERR[STATUT])§ §µ0B7s1: frm=T7voir1§ CLICK=gm1.faireP(P7C2.x=-200,P7C1.x=-200,ERR[STATUT])§ §µ0
<br/>
_-_-_-_-_-_-_-_-_-_-_

# 16/03/2011 à 18:49 sculptKub (site web)
le même ico-box en version simplifiée
(celui-là ne devrait jamais planter !)

script-gam1 compacté=
_-_-_-_-_-_ icoBox simple _-_-_ (normal DIRECT) _-_-_-_-_-_
$V1d00: type=liste(270019~200029~200809~220009~299999~,7,0)§ §µ0$V1d01: type=liste(270029~200801~208880~220802~291008~,7,1)§ §µ0$V1d02: type=liste(272009~200000~200800~200000~291001~,7,1)§ §µ0$V1d03: type=liste(299999~299004~290004~299224~299000~,7,1)§ §µ0$V1d04: type=liste(210000~207003~207700~207000~210023~,7,1)§ §µ0$V0: type=decimal(0)§ §µ0$V1ddd: type=liste(5~4~3~2~1~0~,2,0)§ §µ0R0o: cc=190,230,250§ cf=20,10,30§ %grad2=-3;100§ gradCyc§ p1=0;0§ dM=%W100;%H100§ §µ0$V1Ln: type=texte(_,80)§ §µ0$V1LnE: type=texte(-_,80)§ §µ0$V1txt: type=texte( ,80)§ §µ0P1md0: p=0;0§ VU_N§ §µ0P1md1: p=0;0§ VU_N§ §µ0$V1nn1: type=nombre(0)§ §µ0$V1nn2: type=nombre(0)§ §µ0P0bid: p=1;2§ %setK=250§ VU_N§ §µ0P0o: p=%W9;%H40§ VU_N§ §µ0P0on: p=%k12;%k10§ VU_N§ §µ0P02: p=P0on.x;%k9§ VU_N§ §µ0A1001: p=40;%H95§ bo=10;91§ va=50§ §µ1A1002: p=%W40;%H95§ bo=10;200§ va=120§ §µ1$V001: type=decimal((A1001.va*0.01))§ §µ1$V002: type=decimal((A1002.va*0.01))§ §µ1P01: p=($V001.sin()*P0on.y);($V001.cos()*P0on.y)§ VU_N§ §µ1P03: p=($V002.sin()*P02.x);($V002.cos()*P02.x)§ VU_N§ §µ1CMD: !=>§ §µ0 P0:p=..P0o.x;..P0o.y§ VU_N§ §µ0 P2:p=..P02.x;..P02.y§ VU_N§ §µ0 $V9: type=decimal(0.5,0,0.56,@)§ §µ1 $V3: type=nombre(0,0,5)§ §µ1 $V1: type=nombre(8,0,9)§ §µ1 $V2: type=nombre(4,0,9)§ §µ1 $V3c: type=nombre((5-$V3),0,5)§ §µ1 $V2c: type=nombre((5-$V2),0,5)§ §µ1 P1:p=..P01.x;..P01.y§ VU_N§ §µ1 P3:p=..P03.x;..P03.y§ VU_N§ §µ1 $V6: type=nombre(100,40,180,@)§ §µ1 $V4: type=nombre(250,120,200,@)§ §µ1 $V5: type=nombre(180,0,220,@)§ §µ1 P4: p=$V6;$V4§ VU_N§ §µ1 P5: p=$V5;$V9.round()§ VU_N§ §µ1 $V8: type=nombre(0,0,999999)§ §µ1P9:p=P0.x+P3.x*$V1+P1.x*$V2c;((P0.y+(P3.y*$V1))+(P2.y*$V3c)-(P1.y*$V2c))§ VU_N§ §µ1 G1: § cf=P4.x,P4.y,P5.x,P5.y,Ss§ pts=e-9!_P9.x;P9.y!§ _P1.x;(0-P1.y)|§ e9!_P3.x;P3.y|§ _(0-P1.x);P1.y|§ &§µ1 G2: § cf=99,P4.y,P5.x,P5.y,Ss§ pts=_P9.x;P9.y!§ e9!_P3.x;P3.y|§ _0;P2.y|§ _(0-P3.x);(0-P3.y)|§ &§µ1 G3: § cf=(P5.x+120),P4.y,P4.y,P5.y,Ss§ pts=_P9.x+P3.x;P9.y+P3.y!§ _P1.x;(0-P1.y)|§ _0;P2.y|§ _(0-P1.x);(P1.y)|§ &§µ1// T2:p=P9§ cc=noir§ d=11§ t=$V8§ §µ1CMD: !<=GRP1:_top ,copie=evolutive§ §µ0$V2: type=nombre(0,0,7)§ §µ0$V3: type=nombre(0,0,99)§ §µ0$V4: type=nombre(0,0,7)§ §µ0$V4p: type=nombre(1,0,7)§ §µ0$V5: type=nombre(0,0,125)§ §µ0$V7: type=nombre(0,0,999999)§ §µ0$V9: type=decimal(0.5,0,0.8,@)§ §µ0$V9m: type=decimal(0,0,0.8)§ §µ0CMD0a2: # $V2.v=0§ §µ1CMD0a3: # $V3.v=0§ §µ1CMD0a4: # $V4.v=0§ §µ1CMD0a5: # $V5.v=0§ §µ1CMD0a10: #-> ?=(OUI)§ §µ1CMD0a100: #-> ?=(OUI)§ §µ1CMD1mn001: # $V1Ln.v='$V1LnE.v=$V1d0 +$V2 +[$V3]'§ §µ1CMD1mn007: # $V1Ln.Eval()§ §µ1CMD1mc001: # P1md0.Modulo($V1LnE,10000)§ §µ1CMD1mc003: # $V1nn1.v=(P1md0.x*0.1);$V1nn2.v=(P1md0.x-($V1nn1*10))§ §µ1CMD1mc005: # P1md1.Modulo(P1md0.y,100)§ §µ1CMD1mk001: # $V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);§ §µ1CMD1mk003: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1mk005: # $V1nn1.v=((P1md1.x*0.1));$V1nn2.v=(P1md1.x-($V1nn1*10))§ §µ1CMD1mk007: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1mk009: # $V1nn1.v=((P1md1.y*0.1));$V1nn2.v=(P1md1.y-($V1nn1*10))§ §µ1CMD1mk00B: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD0a1022: #-> ?=(OUI)§ §µ1CMD0a10220a: # $V4p.v=$V4+2§ §µ1CMD0a10220b: # $V1txt.v=$V1ddd[$V4p]§ §µ1CMD0a10220e: # $V7.v=($V1txt)§ §µ1CMD0a102013: #-> ?=(($V7=1)&&($V9>$V9m))§ §µ1CMD0a102014: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P5.x=200,P5.y=0.8,§ §µ1CMD0a102015: # $V5.Plus(1)§ §µ1CMD0a102018: #<- ?=(NON)§ §µ1CMD0a10211: #-> ?=($V7=7)§ §µ1CMD0a10214: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P4.x=180,P4.y=150,P5.x=200,P5.y=1,§ §µ1CMD0a10215: # $V5.Plus(1)§ §µ1CMD0a10219: #<- ?=(NON)§ §µ1CMD0a10221: #-> ?=($V7=8)§ §µ1CMD0a10224: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P5.y=1,$V8.v=..$V7,§ §µ1CMD0a10225: # $V5.Plus(1)§ §µ1CMD0a10229: #<- ?=(NON)§ §µ1CMD0a10231: #-> ?=($V7=9)§ §µ1CMD0a10234: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P4.x=200,P4.y=90,P5.x=160,P5.y=1,$V8.v=..$V7,§ §µ1CMD0a10235: # $V5.Plus(1)§ §µ1CMD0a10239: #<- ?=(NON)§ §µ1CMD0a1026: # $V4.Plus(1)§ §µ1CMD0a1027: #<- ?=($V4<5)§ §µ1CMD0a1028: # $V4.v=0;§ §µ1CMD0a104: # $V3.Plus(1)§ §µ1CMD0a106: #<- ?=($V3<5)§ §µ1CMD0a108: # $V3.v=0;§ §µ1CMD0a15: # $V2.Plus(1)§ §µ1CMD0a20: #<- ?=($V2<5)§ §µ1CMD0a22: # $V9m.v=0.4;§ §µ0$V5m: type=nombre(($V5+1),0,125)§ §µ0//T5m:p=%W65;70§ cc=noir§ d=16§ t=$V5m§ §µ0CMD0af30: #-> ?=($V5<$V5m)§ §µ1CMD0af32: # GRP1[$V5]: $V3.v=0,P5.y=0,§ §µ1CMD0af34: # $V5.Plus(1)§ §µ1CMD0af38: #<- ?=(OUI)§ §µ1CMD0a09: @ GRP1[0_]§ §µ0
_-_-_-_-_-_-_-_-_-_-_
# 17/03/2011 à 17:02 sculptKub
suppression d'une instabilité constatée dans le script icoBox2 précédent :
(on verra plus tard pour permettre la modification des paramètres depuis le dessin lui-même ...)

script-gam1 compacté=
_-_-_-_-_-_ icoBox2_Correct _-_-_ (compact DIRECT) _-_-_-_-_-_
$V1d00: type=liste(270019~200029~200809~220009~299999~,7,0)§ §µ0$V1d01: type=liste(270029~200801~208880~220802~291008~,7,1)§ §µ0$V1d02: type=liste(272009~200000~200800~200000~291001~,7,1)§ §µ0$V1d03: type=liste(299999~299004~290004~299224~299000~,7,1)§ §µ0$V1d04: type=liste(210000~207003~207700~207000~210023~,7,1)§ §µ0$V0: type=decimal(0)§ §µ0$V1ddd: type=liste(5~4~3~2~1~0~,2,0)§ §µ0$V1Ln: type=texte(_,80)§ §µ0$V1LnE: type=texte(-_,80)§ §µ0$V1txt: type=texte( ,80)§ §µ0P1md0: p=0;0§ VU_N§ §µ0P1md1: p=0;0§ VU_N§ §µ0$V1nn1: type=nombre(0)§ §µ0$V1nn2: type=nombre(0)§ §µ0R0o: cc=190,230,250§ cf=20,10,30§ %grad2=-3;100§ gradCyc§ p1=0;0§ dM=%W100;%H100§ §µ0P0bid: p=1;2§ %setK=250§ VU_N§ §µ0P0o: p=%W9;%H40§ VU_N§ §µ0P0on: p=%k12;%k10§ VU_N§ §µ0P02: p=P0on.x;%k9§ VU_N§ §µ0A1001: p=40;%H95§ bo=10;91§ va=50§ §µ1A1002: p=%W40;%H95§ bo=10;200§ va=120§ §µ1$V001: type=decimal((A1001.va*0.01))§ §µ1$V002: type=decimal((A1002.va*0.01))§ §µ1P01: p=($V001.sin()*P0on.y);($V001.cos()*P0on.y)§ VU_N§ §µ1P03: p=($V002.sin()*P02.x);($V002.cos()*P02.x)§ VU_N§ §µ1CMD: !=>§ §µ0 P0:p=..P0o.x;..P0o.y§ VU_N§ §µ0 P2:p=..P02.x;..P02.y§ VU_N§ §µ0 $V9: type=decimal(0.5,0,0.56,@)§ §µ1 $V3: type=nombre(0,0,5)§ §µ1 $V1: type=nombre(8,0,9)§ §µ1 $V2: type=nombre(4,0,9)§ §µ1 $V3c: type=nombre((5-$V3),0,5)§ §µ1 $V2c: type=nombre((5-$V2),0,5)§ §µ1 P1:p=..P01.x;..P01.y§ VU_N§ §µ1 P3:p=..P03.x;..P03.y§ VU_N§ §µ1 $V6: type=nombre(100,40,180,@)§ §µ1 $V4: type=nombre(250,120,200,@)§ §µ1 $V5: type=nombre(180,0,220,@)§ §µ1 P4: p=$V6;$V4§ VU_N§ §µ1 P5: p=$V5;$V9.round()§ VU_N§ §µ1 $V8: type=nombre(0,0,999999)§ §µ1P9:p=P0.x+P3.x*$V1+P1.x*$V2c;((P0.y+(P3.y*$V1))+(P2.y*$V3c)-(P1.y*$V2c))§ VU_N§ §µ1 G1: § cf=P4.x,P4.y,P5.x,P5.y,Ss§ pts=e-9!_P9.x;P9.y!§ _P1.x;(0-P1.y)|§ e9!_P3.x;P3.y|§ _(0-P1.x);P1.y|§ &§µ1 G2: § cf=99,P4.y,P5.x,P5.y,Ss§ pts=_P9.x;P9.y!§ e9!_P3.x;P3.y|§ _0;P2.y|§ _(0-P3.x);(0-P3.y)|§ &§µ1 G3: § cf=(P5.x+120),P4.y,P4.y,P5.y,Ss§ pts=_P9.x+P3.x;P9.y+P3.y!§ _P1.x;(0-P1.y)|§ _0;P2.y|§ _(0-P1.x);(P1.y)|§ &§µ1// T2:p=P9§ cc=noir§ d=11§ t=$V8§ §µ1CMD: !<=GRP1:_top ,copie=evolutive§ §µ0// _____§ §µ0$V2: type=nombre(0,0,7)§ §µ0$V3: type=nombre(0,0,99)§ §µ0$V4: type=nombre(0,0,7)§ §µ0$V4p: type=nombre(1,0,7)§ §µ0$V5: type=nombre(0,0,125)§ §µ0$V7: type=nombre(0,0,999999)§ §µ0$V9: type=decimal(0.5,0,0.8,@)§ §µ0$V9m: type=decimal(0,0,0.8)§ §µ0CMD0a2: # $V2.v=0§ §µ1CMD0a3: # $V3.v=0§ §µ1CMD0a4: # $V4.v=0§ §µ1CMD0a5: # $V5.v=0§ §µ1CMD0a10: #-> ?=(OUI)§ §µ1CMD0a100: #-> ?=(OUI)§ §µ1CMD1mn001: # $V1Ln.v='$V1LnE.v=$V1d0 +$V2 +[$V3]'§ §µ1CMD1mn007: # $V1Ln.Eval()§ §µ1CMD1mc001: # P1md0.Modulo($V1LnE,10000)§ §µ1CMD1mc003: # $V1nn1.v=(P1md0.x*0.1);$V1nn2.v=(P1md0.x-($V1nn1*10))§ §µ1CMD1mc005: # P1md1.Modulo(P1md0.y,100)§ §µ1CMD1mk001: # $V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);§ §µ1CMD1mk003: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1mk005: # $V1nn1.v=((P1md1.x*0.1));$V1nn2.v=(P1md1.x-($V1nn1*10))§ §µ1CMD1mk007: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1mk009: # $V1nn1.v=((P1md1.y*0.1));$V1nn2.v=(P1md1.y-($V1nn1*10))§ §µ1CMD1mk00B: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD0a1022: #-> ?=(OUI)§ §µ1CMD0a10220a: # $V4p.v=$V4+2§ §µ1CMD0a10220b: # $V1txt.v=$V1ddd[$V4p]§ §µ1CMD0a10220e: # $V7.v=($V1txt)§ §µ1CMD0a102013: #-> ?=(($V7=1)&&($V9>$V9m))§ §µ1CMD0a102014: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P5.x=200,P5.y=0.8,§ §µ1CMD0a102015: # $V5.Plus(1)§ §µ1CMD0a102018: #<- ?=(NON)§ §µ1CMD0a10211: #-> ?=($V7=7)§ §µ1CMD0a10214: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P4.x=180,P4.y=150,P5.x=200,P5.y=1,§ §µ1CMD0a10215: # $V5.Plus(1)§ §µ1CMD0a10219: #<- ?=(NON)§ §µ1CMD0a10221: #-> ?=($V7=8)§ §µ1CMD0a10224: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P5.y=1,$V8.v=..$V7,§ §µ1CMD0a10225: # $V5.Plus(1)§ §µ1CMD0a10229: #<- ?=(NON)§ §µ1CMD0a10231: #-> ?=($V7=9)§ §µ1CMD0a10234: # GRP1[$V5]: $V3.v=..$V2,§ $V1.v=..$V3,§ $V2.v=..$V4,P4.x=200,P4.y=90,P5.x=160,P5.y=1,$V8.v=..$V7,§ §µ1CMD0a10235: # $V5.Plus(1)§ §µ1CMD0a10239: #<- ?=(NON)§ §µ1CMD0a1026: # $V4.Plus(1)§ §µ1CMD0a1027: #<- ?=($V4<5)§ §µ1CMD0a1028: # $V4.v=0;§ §µ1CMD0a104: # $V3.Plus(1)§ §µ1CMD0a106: #<- ?=($V3<5)§ §µ1CMD0a108: # $V3.v=0;§ §µ1CMD0a15: # $V2.Plus(1)§ §µ1CMD0a20: #<- ?=($V2<5)§ §µ1CMD0a22: # $V9m.v=0.4;§ §µ0$V5m: type=nombre(($V5+1),0,125)§ §µ0//T5m:p=%W65;70§ cc=noir§ d=16§ t=$V5m§ §µ0CMD0af30: #-> ?=($V5<$V5m)§ §µ1CMD0af32: # GRP1[$V5]: $V3.v=0,P5.y=0,§ §µ1//CMD0af32b: # T5m.t=$V5§ §µ1CMD0af34: # $V5.Plus(1)§ §µ1CMD0af38: #<- ?=(OUI)§ §µ1CMD0a09: @ GRP1[0_]§ §µ0//GRP1T22: Clone(GRP1) ,$V8.v=1, § $V3.v=4, § $V1.v=2, § $V2.v=2, § P4.x=227, § P4.y=71, § P5.x=18, § §µ1P7C1: p=-400;P0o.y§ VU_N§ §µ0P7cache2:p=P0o.x+P01.x*5+P03.x*2;P0o.y+P03.y*2-P01.y*5§ VU_N§ §µ1G7cache1: cc=gris-sombre§ VU_O§ cf=50,50,50,0.9,Ss§ pts=_P7C1!§ _(P01.x*5);(0-(P01.y*5))|§ _P03.x*2;P03.y*2|§ _(0-(P01.x*5));(P01.y*5)|§ _0;(P02.y*5)|§ _(0-(P03.x*2));(0-(P03.y*2))|§ &§µ1P7C2: p=P7C1.x+P01.x*5+P03.x*2;P7cache2.y§ %setK=300§ VU_O§ §µ1G7cache2: cc=gris-sombre§ cf=50,50,50,0.9,Ss§ pts=_P7C2!§ _(0-(P01.x*2);(P01.y*2)|§ _P03.x;P03.y|§ _(0-P01.x);P01.y|§ _(0-P03.x);(0-P03.y)|§ _(0-P01.x*2);P01.y*2|§ _0;P02.y*2|§ _P03.x;P03.y|§ _0;P02.y|§ _(0-P03.x);(0-P03.y)|§ _0;P02.y*2|§ _P03.x*3;P03.y*3|§ _P01.x*5;(0-P01.y*5)|§ _0;(0-P02.y*5)|§ &§µ1T7cacher1:p=%W85;30§ cc=blanc§ cf=bleu§ d=15§ t= hide§ §µ0T7voir1:p=%W85;60§ cc=blanc§ cf=bleu§ d=15§ t= show§ §µ0B7c1: frm=T7cacher1§ CLICK=gm1.faireP(P7C2.x=P7cache2.x,P7C1.x=P01.x+P0o.x,ERR[STATUT])§ §µ0B7s1: frm=T7voir1§ CLICK=gm1.faireP(P7C2.x=-200,P7C1.x=-200,ERR[STATUT])§ §µ0// ---§ §µ0T1next:p=%W70;30§ cc=bleu§ cf=vert§ d=15§ t=next§ §µ0B1next: frm=T1next§ CLICK=gm1.faireP($V1nE.Plus(1),ERR[STATUT])§ §µ0T1prev:p=%W55;30§ cc=bleu§ cf=vert§ d=15§ t=prev§ §µ0B1next: frm=T1prev§ CLICK=gm1.faireP($V1nE.Plus(-1),ERR[STATUT])§ §µ0// ____§ §µ0CMD: !=>§ §µ0 $V1: type=nombre(120,0,999)§ §µ1 T1: p=%W75;$V1§ cc=noir§ cf=blanc§ d=14§ t=a?_§ §µ1CMD: !<=GRP8:_txn ,copie=evolutive§ §µ1// Colonne,Rang,Etage ____§ §µ0$V1nC: type=nombre(0,0,7)§ §µ0$V1nR: type=nombre(0,0,6)§ §µ0$V1nE: type=nombre(2,0,4)§ §µ1T1k3: p=%W65;30§ cc=rouge§ cf=blanc§ d=14§ t=$V1nE§ §µ1CMD1h00: # $V1nC.v=0§ §µ1CMD1h01: # $V1nR.v=0§ §µ1CMD1h03: #-> ?=(OUI) §µ1CMD1Ln001: # $V1Ln.v='$V1LnE.v=$V1d0 +$V1nE +[$V1nR]'§ §µ1CMD1Ln007: # $V1Ln.Eval()§ §µ1CMD1Ln009: # $V1txt.Plus($V1LnE +_|_)§ §µ1CMD1cc001: # P1md0.Modulo($V1LnE,10000)§ §µ1CMD1cc003: # $V1nn1.v=(P1md0.x*0.1);$V1nn2.v=(P1md0.x-($V1nn1*10))§ §µ1CMD1cc005: # P1md1.Modulo(P1md0.y,100)§ §µ1CMD1kk001: # $V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);$V1ddd.Moins(0);§ §µ1CMD1kk003: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1kk005: # $V1nn1.v=((P1md1.x*0.1));$V1nn2.v=(P1md1.x-($V1nn1*10))§ §µ1CMD1kk007: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1CMD1kk009: # $V1nn1.v=((P1md1.y*0.1));$V1nn2.v=(P1md1.y-($V1nn1*10))§ §µ1CMD1kk00B: # $V1ddd.Plus($V1nn1);$V1ddd.Plus($V1nn2);§ §µ1// _____§ §µ0CMD1hh01: # $V1txt.v= §µ1CMD1hh02: # $V1nC.v=(2) §µ1CMD1hh022: #-> ?=(OUI) §µ1CMD1hh024: # $V1txt.Plus(. +$V1ddd[$V1nC] +.|) §µ1CMD1hh026: # $V1nC.Plus(1) §µ1CMD1hh027: #<- ?=($V1nC<7) §µ1// _____§ §µ0CMD1h05: # GRP8[$V1nR]: $V1.v=..$V1nR*25+120,§ T1.t=..$V1txt,§ §µ1CMD1h06: # $V1nR.Plus(1) §µ1CMD1h07: #<- ?=($V1nR<5) §µ1CMD1h09: @ GRP8[0_]§ §µ0
_-_-_-_-_-_-_-_-_-_-_

Répondre à ce message

Vous utilisez un logiciel de type AdBlock, qui bloque le service de captchas publicitaires utilisé sur ce site. Pour pouvoir envoyer votre message, désactivez Adblock.

utilitaire de bas de page pour gam1 version :       OK ? pour votre
script par page URL cookie
_-_-_-_-_-_ _-_-_-_-_-_

_-_-_-_-_-_-_-_-_-_-_
        ( × )

( en : cette page autre )
label =
Editer le script du label


Créer un site gratuit avec e-monsite - Signaler un contenu illicite sur ce site

×