Effets jolies ?

Histoire de passe le temps et pourquoi pas en inspire certain, voici quelque effet en picwin que j'adapte de code que je viens de faire/voir en C :

alias piceffet {
window -p @e -1 -1 500 500
var %c $iif($istok(1.3,$1,46),7,$iif($1 == 2,5,9))
var %d $iif($istok(3.4,$1,46),10,$iif($1 == 2,4,2))
var %p $iif($istok(1.4,$1,46),0,$iif($1 == 2,$calc(1/3),$calc(7/3)))
var %m $iif($1 == 3,50,150)
var %a 0, %r, %x, %y
while (%a <= 3600) {
      %r = $cos(%c * (%a * $pi / 180) / %d) + %p;
      %x = 250 + %m * %r * $cos(%a * $pi / 180);
      %y = 250 + %m * %r * $sin(%a * $pi / 180);
      drawdot -r @e 255 1 %x %y
      inc %a
    }
}

Je n'ai meme pas teste donc j'espere que j'ai bien adapte, si quelqu'un veut une version commente, qu'il demande, les valeurs modifiable pour changer d'effet sont %c %d et %p

J'ai poste trop vite, j'ai oublier de dire comment l'utiliser, tape simplement /piceffet suivis d'un chiffre de 1 a 4

Bon j'ai oublier des $calc un peu partout, et laisse des ;, version corrige :

alias piceffet {
window -p @e -1 -1 500 500
var %c $iif($istok(1.3,$1,46),7,$iif($1 == 2,5,9))
var %d $iif($istok(3.4,$1,46),10,$iif($1 == 2,4,2))
var %p $iif($istok(1.4,$1,46),0,$iif($1 == 2,$calc(1/3),$calc(7/3)))
var %m $iif($1 == 3,50,150)
var %a 0, %r, %x, %y
while (%a <= 3600) {
      %r = $calc($cos(%c * (%a * $pi / 180) / %d) + %p))
      %x = $calc(250 + %m * %r * $cos(%a * $pi / 180))
      %y = $calc(250 + %m * %r * $sin(%a * $pi / 180))
      drawdot -r @e 255 1 %x %y
      inc %a
    }
}

Bon manquais encore des $calc dans les $cos et $sin, le C m'a pervetis ><, code teste par qqun cette fois ci :

alias piceffet {
window -p @e -1 -1500500
var%c$iif($istok(1.3,$1,46),7,$iif($1==2,5,9))
var%d$iif($istok(3.4,$1,46),10,$iif($1==2,4,2))
var%p$iif($istok(1.4,$1,46),0,$iif($1==2,$calc(1/3),$calc(7/3)))
var%m$iif($1==3,50,150)
var%a0,%r,%x,%y
while(%a<=3600){
      %r=$cos($calc(%c * (%a * $pi / 180) / %d) + %p))
      %x=$calc(250 + %m * %r * $cos($calc(%a * $pi / 180)))
      %y=$calc(250 + %m * %r * $sin($calc(%a * $pi / 180)))
      drawdot -r @e 2551%x%y
      inc%a
    }
}

Version sans couleurs et sans les espaces mange....


alias piceffet {
window -p @e -1 -1 500 500
var %c $iif($istok(1.3,$1,46),7,$iif($1 == 2,5,9))
var %d $iif($istok(3.4,$1,46),10,$iif($1 == 2,4,2))
var %p $iif($istok(1.4,$1,46),0,$iif($1 == 2,$calc(1/3),$calc(7/3)))
var %m $iif($1 == 3,50,150)
var %a 0, %r, %x, %y
while (%a <= 3600) {
      %r = $cos($calc(%c * (%a * $pi / 180) / %d) + %p))
      %x = $calc(250 + %m * %r * $cos($calc(%a * $pi / 180)))
      %y = $calc(250 + %m * %r * $sin($calc(%a * $pi / 180)))
      drawdot -r @e 255 1 %x %y
      inc %a
    }
}

Très interessent comme effet, je sais pas si on peut trouver une utilité mais ça plutôt bien :)
Enfin good job !

.:]| z0va / Zova |[:.

ben l'utilite c'est pour une demo, ou pour le fun ou pour un fond d'ecran anime ou j'sais pas, c'est surtout pour le fun en fait

Encore des modifications, plus long a tracé maintenant mais beaucoup plus précis, il y a des couleurs et l'objet est plus petit :

alias piceffet {
  window -Bfdp @e -1 -1 500 500
  var %c $iif($istok(1.3,$1,46),7,$iif($1 == 2,5,9))
  var %d $iif($istok(3.4,$1,46),10,$iif($1 == 2,4,2))
  var %p $iif($istok(1.4,$1,46),0,$iif($1 == 2,$calc(1/3),$calc(7/3)))
  var %m $iif($1 == 3,50,100)
  var %a 0, %r, %x, %y ,%b = $replacex($1,1,720,2,1440,3,3600,4,3600)
  while (%a <= %b) {
    %r = $cos($calc(%c * (%a * $pi / 180) / %d) + %p))
    %x = $calc(250 + %m * %r * $cos($calc(%a * $pi / 180)))
    %y = $calc(250 + %m * %r * $sin($calc(%a * $pi / 180)))
    drawdot -r @e $r(0,$color(0)) 1 %x %y
    inc %a 0.1
  }
}

De mieux en mieux, j'adhère vraiment :)

.:]| z0va / Zova |[:.