1/160 - Echelle N

Le Forum consacré à l'Echelle N
 
AccueilAccueil  PortailPortail  ÉvènementsÉvènements  Dernières imagesDernières images  S'enregistrerS'enregistrer  Connexion  
N'hésitez pas à consulter le calendrier et les événements du forum pour voir les manifestations près de chez vous !
-28%
Le deal à ne pas rater :
-28% Machine à café avec broyeur à grain MELITTA Purista
229.99 € 318.99 €
Voir le deal

 

 INCENDIE DE TALUS LE LONG DES VOIES

Aller en bas 
+8
mistigris
DAN57FRN
CleoN
Raalovely
Fantasio
FP68
TRAINTRAIN95
MICH
12 participants
Aller à la page : Précédent  1, 2
AuteurMessage
sierramike
Membre
Membre
sierramike


Masculin Age : 44
Localisation : 67000 STRASBOURG
Nombre de messages : 4563
Date d'inscription : 29/10/2015

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeLun 8 Fév 2021 - 14:56

Effectivement mon père avait installé voilà près de 25 ans un lot de 2 ampoules rouge/orange et rouge foncé avec un petit circuit électronique pour les faire vaciller qui simulait parfaitement bien un feu dans un foyer, mais ça ne simulait pas des flammes apparentes.

Je suis impatient de voir ce résultat ici, c'est une super idée !
Revenir en haut Aller en bas
Fantasio
Membre
Membre
Fantasio


Masculin Age : 64
Localisation : Saint Médard en Jalles (33)
Nombre de messages : 2363
Date d'inscription : 15/11/2019

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeLun 8 Fév 2021 - 14:58

@MICH
Bizarre scratch
Si tu cliques sur l'icone code tu dois voir ceci dans ton corps de message:
INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Img_2011
Puis tu colles ton code entre les deux accolades centrales.
Revenir en haut Aller en bas
Fantasio
Membre
Membre
Fantasio


Masculin Age : 64
Localisation : Saint Médard en Jalles (33)
Nombre de messages : 2363
Date d'inscription : 15/11/2019

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeLun 8 Fév 2021 - 15:14

Pour les afficionados des ATtiny ,il existe l'ATtiny84 qui dispose de 4 sorties PWM ( pin 5 à pin 8 ) donc une nouvelle possibilité pour commander cette animation Very Happy
Revenir en haut Aller en bas
MICH
Membre
Membre
MICH


Masculin Age : 71
Localisation : GIRONDE
Nombre de messages : 254
Date d'inscription : 24/11/2015

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeLun 8 Fév 2021 - 15:41

Ok j'ai collé dans le deuxième code entre les crochets.
Merci ce sera pour la prochaine fois pour les gyrophares.
Revenir en haut Aller en bas
TRAINTRAIN95
Membre
Membre
TRAINTRAIN95


Masculin Age : 65
Localisation : Argenteuil 95
Nombre de messages : 4059
Date d'inscription : 23/03/2013

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeLun 8 Fév 2021 - 18:06

Un grand merci pour la mise à disposition de ces programmes.
Je vais faire des tests avec mon Mini qui dort dans sa boite depuis sa réception.
Revenir en haut Aller en bas
Fantasio
Membre
Membre
Fantasio


Masculin Age : 64
Localisation : Saint Médard en Jalles (33)
Nombre de messages : 2363
Date d'inscription : 15/11/2019

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeLun 8 Fév 2021 - 18:29

Si on peut aider... Very Happy
Revenir en haut Aller en bas
boblinux
Membre
Membre
boblinux


Masculin Age : 53
Localisation : verfeil
Nombre de messages : 2664
Date d'inscription : 18/03/2015

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeSam 27 Mar 2021 - 8:33

C'est très réaliste, belle réussite, bravo !
Revenir en haut Aller en bas
http://collectiondemontres.free.fr
Fantasio
Membre
Membre
Fantasio


Masculin Age : 64
Localisation : Saint Médard en Jalles (33)
Nombre de messages : 2363
Date d'inscription : 15/11/2019

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeVen 14 Mai 2021 - 19:15

Bonjour à tous
Je dépoussière le sujet.
J'ai découvert et essayé depuis peu les leds adressables RGB (appelées NeoPixels par Adafruit).  Mes recherches sur le net m'ont amené sur un site slovaque qui décrit une simulation d'incendie avec ce type de leds. Le montage utilise un Attiny85,  mais  on peut sans problème utiliser un Uno ou un Nano (ce qui est mon cas aujourd'hui).

Le schema électronique est le suivant:
INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Attiny10 
Pour le module Neopixel j'ai utilisé celui ci. Il dispose de 8 leds et pour les essais c'est largement suffisant. On trouve des bandes avec 30, 60, voire 144 leds par mètre. J'ai prévu de m'en acheter ultérieurement pour les éclairages des bâtiments...
Pour le potentiomètre une valeur de 10K parfaite mais sa valeur n'est pas critique... L'alimentation classique est de 5V mais attention 1 led consomme 60 mA donc la puissance doit être adaptée au nombre de leds...

Qui dit Arduino ou Attiny dit code, le voici:
Code:
 /**
 * ATtiny85 - NeoPixel Fire With Potentiometer
 * v. 1.0
 * Copyright (C) 2018 Robert Ulbricht
 * https://www.arduinoslovakia.eu
 *
 * IDE: 1.8.5 or higher
 * Board: ATtiny85
 * Core: https://github.com/SpenceKonde/ATTinyCore
 *
 * Libraries
 * NeoPixel: https://github.com/adafruit/Adafruit_NeoPixel
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

 // ATMEL ATTINY85
//
//                  +-\/-+
//      (D 5) PB5  1|    |8  Vcc
//      (D 3) PB3  2|    |7  PB2 (D 2)
// pot  (D 4) PB4  3|    |6  PB1 (D 1)
//            GND  4|    |5  PB0 (D 0) - R 1k - NeoPixel Ring Input
//                  +----+

#include <Adafruit_NeoPixel.h>

// data pin
#define PIN 0
// led count
#define CNT 8
// randomness
#define RANDOM_MAX 160

// Parameter 1 = number of pixels in strip
// Parameter 2 = pin number (most are valid)
// Parameter 3 = pixel type flags, add together as needed:
//  NEO_RGB    Pixels are wired for RGB bitstream
//  NEO_GRB    Pixels are wired for GRB bitstream
//  NEO_KHZ400  400 KHz bitstream (e.g. FLORA pixels)
//  NEO_KHZ800  800 KHz bitstream (e.g. High Density LED strip)
Adafruit_NeoPixel strip = Adafruit_NeoPixel(CNT, PIN, NEO_GRB + NEO_KHZ800);

uint32_t fire_color  = strip.Color ( 80,  35,  00);
uint32_t off_color    = strip.Color (  0,  0,  0);

///
/// Fire simulator
///
class NeoFire
{
  Adafruit_NeoPixel &strip;
 public:

  NeoFire(Adafruit_NeoPixel&);
  void Draw();
  void Clear();
  void AddColor(uint8_t position, uint32_t color);
  void SubstractColor(uint8_t position, uint32_t color);
  uint32_t Blend(uint32_t color1, uint32_t color2);
  uint32_t Substract(uint32_t color1, uint32_t color2);
};

///
/// Constructor
///
NeoFire::NeoFire(Adafruit_NeoPixel& n_strip)
: strip (n_strip)
{
}

///
/// Set all colors
///
void NeoFire::Draw()
{
Clear();

int pot = analogRead(A2);
pot = map(pot, 0, 1023, 0, RANDOM_MAX);

for(int i=0;i<CNT;i++)
  {
  AddColor(i, fire_color);
  int r = random(pot);
  uint32_t diff_color = strip.Color (r, r/2, r/2);
  SubstractColor(i, diff_color);
  }
 
strip.show();
}

///
/// Set color of LED
///
void NeoFire::AddColor(uint8_t position, uint32_t color)
{
uint32_t blended_color = Blend(strip.getPixelColor(position), color);
strip.setPixelColor(position, blended_color);
}

///
/// Set color of LED
///
void NeoFire::SubstractColor(uint8_t position, uint32_t color)
{
uint32_t blended_color = Substract(strip.getPixelColor(position), color);
strip.setPixelColor(position, blended_color);
}

///
/// Color blending
///
uint32_t NeoFire::Blend(uint32_t color1, uint32_t color2)
{
uint8_t r1,g1,b1;
uint8_t r2,g2,b2;
uint8_t r3,g3,b3;

r1 = (uint8_t)(color1 >> 16),
g1 = (uint8_t)(color1 >>  8),
b1 = (uint8_t)(color1 >>  0);

r2 = (uint8_t)(color2 >> 16),
g2 = (uint8_t)(color2 >>  8),
b2 = (uint8_t)(color2 >>  0);

return strip.Color(constrain(r1+r2, 0, 255), constrain(g1+g2, 0, 255), constrain(b1+b2, 0, 255));
}

///
/// Color blending
///
uint32_t NeoFire::Substract(uint32_t color1, uint32_t color2)
{
uint8_t r1,g1,b1;
uint8_t r2,g2,b2;
uint8_t r3,g3,b3;
int16_t r,g,b;

r1 = (uint8_t)(color1 >> 16),
g1 = (uint8_t)(color1 >>  8),
b1 = (uint8_t)(color1 >>  0);

r2 = (uint8_t)(color2 >> 16),
g2 = (uint8_t)(color2 >>  8),
b2 = (uint8_t)(color2 >>  0);

r=(int16_t)r1-(int16_t)r2;
g=(int16_t)g1-(int16_t)g2;
b=(int16_t)b1-(int16_t)b2;
if(r<0) r=0;
if(g<0) g=0;
if(b<0) b=0;

return strip.Color(r, g, b);
}

///
/// Every LED to black
///
void NeoFire::Clear()
{
for(uint16_t i=0; i<strip.numPixels (); i++)
  strip.setPixelColor(i, off_color);
}

NeoFire fire(strip);

///
/// Setup
///
void setup()
{
strip.begin();
strip.show(); // Initialize all pixels to 'off'
}

///
/// Main loop
///
void loop()
{
fire.Draw();
delay(random(50,150));
}

Le résultat est vraiment sympa même avec seulement 3 leds ( modifier dans ce cas la valeur associée à CNT par exemple #define CNT 3 pour 3 leds

Pour une simulation de feu, je vous le conseille  Very Happy

Bonne continuation
Revenir en haut Aller en bas
mistigris
Membre
Membre



Masculin Age : 56
Localisation : Maisons Alfort
Nombre de messages : 473
Date d'inscription : 11/04/2012

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeSam 15 Mai 2021 - 11:41

Merci Fantasio, ça à l'air cool et pratique !!!
Revenir en haut Aller en bas
Fantasio
Membre
Membre
Fantasio


Masculin Age : 64
Localisation : Saint Médard en Jalles (33)
Nombre de messages : 2363
Date d'inscription : 15/11/2019

INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitimeMar 1 Juin 2021 - 19:02

Je viens de poster deux vidéos sur YouTube concernant ce montage.
Le rendu des couleurs n'est pas exact. En réel la couleur est plus orange.
Au moins cela vous donnera une idée des effets obtenus en jouant sur le potentiomètre.

Bon visionnage


Revenir en haut Aller en bas
Contenu sponsorisé





INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Empty
MessageSujet: Re: INCENDIE DE TALUS LE LONG DES VOIES   INCENDIE DE TALUS LE LONG DES VOIES - Page 2 Icon_minitime

Revenir en haut Aller en bas
 
INCENDIE DE TALUS LE LONG DES VOIES
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Pistes pour le personnel le long des voies
» pistes le long des voies
» Talus
» RU 800 S : 177 m de long pour rénover les voies
» Cabanes techniques le long des voies

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
1/160 - Echelle N :: Modèles réduits à l'echelle N :: Décor-
Sauter vers: