lichtsluis voor camera

Eén topic is wel genoeg, twee is echt niet nodig

Maak C8 in die schakeling eens véél kleiner, 100nF ofzo. Gewoon wat mee experimenteren, zo klein nemen dat het net nog werkt.

Vergeet niet dat je camera niet oneindig snel is. Een typische instap-SLR heeft wel 50ms shutter-lag, tegen dan is je druppel al lang weg.

Zoek eens op topics van "fotoopa". Hij heeft een dergelijk systeem, met een losse snelle shutter, waardoor hij de shutter-lag van de camera vermijdt.

Badankt voor de snelle reactie, ik zal het met een kleinere capaciteit proberen. hoe kan ik de tweede topic verwijderen?

Toevallig ben ik zelf bezig met zo'n schakeling.
Vanavond ets ik het eerste protoprintje.

Onderbreking van rood laser straaltje (standaard cheapo
laser pointer) triggered (Canon) camera met instelbare
delay.

Ook te bedienen met draadloze (Philips) afstandbediening.

In te stellen als timer voor timelapse fotografie.

Kijgt dus zelfde mogelijkheden als de Canon TC-80N3 timer
en de Canon LC-5 wireless controller.

Printje van 100mmx80mm enkelzijdig Eagle layout ontwerp.
- ATmega88 controller geprogd met Bascom.
- TSL250 lichtsensor.
- TSOP1736 infrarood ontvanger voor Philips AB.
- 4 digit LED display LTC4649M
- 10pins STK 200/300 ISP connector.

Als deze protoprint werkt, zal ik de bestanden naar
CO sturen.

Ik ben benieuwd peterr:), ik kan ook wel een goede lichtsluis gebruiken.

Naar mijn weten,kun je op de externe mini jack sluiterknop,alles wat je maar wil aansluiten.
Maar hoe laat je camera goed focusen????Gezien de topic starter het over druppels en insecten heeft.
Ik doe het op de hand,en dan nog,....is de (auto)focus vaak fout.Vooral met m'n macrolens,daar is een fractie van een milimeter al te veel.

De 2'5mm jack (lange stuk noem ik ff schacht) heeft de volgende remote trigger pinout en actie
Rust = open circuit= niets
Half ingedrukt = schacht + ring =auto focus/wake up
volledig ingedrukt = Schacht + ring + tip = trigger

Hier een DIY lichsluis
http://xray.bmc.uu.se/markh/cam_trig/cam_trig.html

Je moet vooraf focussen net op dat punt waar je lichtsluis geactiveerd wordt. Dan je autofocus afzetten.

Ik denk dat het ook geen kwaad kan om een stevige flitser te gebruiken, en dan het diafragma zo ver mogelijk dicht te draaien. Maar de belichtingstijd mag ook niet te lang worden, 't wordt een moeilijk compromis

Printje werkt prima, ik heb in ieder geval al progje
dat als interval timer werkt.
Neemt nu continu fotoos na een instelbare intervaltijd
max 9999 seconden).

Hier een foto van de opgebouwde (versie 1) print:

Hier staan de Eagle bestanden voor de print:

http://www.uploadarchief.net/files/download/mega88_cameratrigger_ver1_…

Ik ben nu bezig om de 1ms interruptroutine te schrijven,
die moet er voor zorgen dat de reactietijd binnen 1/1000ste
seconde blijft.
En dan moet ik ook nog de IR ontvanger aan de praat krijgen...

Op 22 maart 2007 14:23:36 schreef -hans-:
Hallo!
Ik ben op zoek naar een schakeling voor een lichtsluis waarmee ik mijn camera (Canon 350D) kan aansturen. De lichtsluis moet kleine objecten (insecten, waterdruppels etc.) kunnen detecteren en dan moet de sluiter van de camera openen.

Dit gebruik ik reeds ruim 2 jaar:

De volledige opstelling:

De opstelling voor druppels:

De controller:

Maar je 350D is veel te traag voor de meeste van deze toepassingen. Enkel voor de experimenten waarbij de tijd tussen detectie en opname boven de 90 msec ligt zal het werken. Voor vliegende insecten, die zullen ver buiten je beeld zijn op het ogenblik dat je de foto neemt.

En zoals je op het blok schema kunt zijn komen er nog enkele belangrijke functie's bij die je moet sturen. Maar eerst moet je goed het basis werkings princiep begrijpen voor insecten.

Voor vallende druppels kan het werken omdat je de afstand tussen detectie en opname zo kunt maken dat je de traagheid van je camera kan vermijden.

Veel meer informatie en foto's van resultaten kun je zien op mijn pbase account

@fotoopa:
Voor het fotograferen van insecten heb je inderdaad veel
snellere sluiterhardware nodig maar is de 1 ms responsetijd van mijn schakeling wel snel genoeg denk je?

En ik las ergens dat je nu met groene lasers werkt, wat
is daarvan het voordeel?

Die 1 msec is opzich geen probleem, maar voor snel bewegende objecten die niet vooraf voorspelbaar zijn is dit 1 msec te veel. Voor druppels en vallende objecten is dit ruim voldoende.

Maar ik weet niet vanwaar je die 1 msec haalt. Ik werk met de gewone rode laserpointers en daar haal ik gemakkelijk 5 usec. Ik puls die laserpointer momenteel in een periode van 32 usec, waarvan 12 usec on en 20 usec off. Door deze methode is het ook mogelijk meer dan 1 laser op 1 ontvanger te plaatsen omdat je die kunt multiplexen in de tijd. Dit verminderd het aantal draden wat belangrijk kan zijn op plaatsen waar je moeilijk aan kunt en waarbij je een bepaald detectie vlak moet overbruggen.

Die groene lasers hebben geen detectie functie, wel een compositie visuele functie voor mij om gemakkelijker de unit te richten in een virtueele ruimte ( je ziet het snijpunt van de rode lasers niet met je blote oog en bij een afstand van 60 cm kun je heel moeilijk inschatten of een insect 1 mm voor of na de lichtgordijn beweegt ( zelfs niet op 25 mm!)

Het probleem zit in de shutter van je camera, die heeft opzich een vertraging van rond de 85 msec vermoed ik. En dat is voor de snel bewegende insecten veel te veel. Je moet een totale max tijd bekomen beneden de 5 msec alles inclusief. Er zijn er die tot 2 msec gaan, maar dat kost je een perfecte optimalisatie van shutter mechanisme ( moet je echt zelf gaan aanpassen) heel nauwkeurige aansturing van een ideale magneet ( heel weinig massa en beweging) en een enorme hoge spanning en stroom ( 300V, 24A) maar dit laatste moet enorm juist gemaakt worden anders is je magneet (6V) verdwenen. Daarbij moet nog de flits sturing komen want deze op je camera kan dit niet meer realiseren. Flits moet gestuurd worden tijdens de heel korte tijd dat de shutter juist open is en weer sluit. ( shutter window open is ongeveer 2 msec maar de timing moet erjuist invallen, ook rekening houden met de tolerantie's van spannngen en temperatuur.

Goede info!

Deze link geeft trouwens wat sluiter vertragingstijden
van camera's:

http://www.impulseadventure.com/photo/shutter-lag.html

Ik wil ook nog 1 van de controller uitgangen gebruiken
om een flitser te triggeren.
Enig idee wat voor component ik zou kunnen gebruiken om
zowel oude flitsers (hoge schakelspanning) als moderne flitsers (lage ss) te kunnen triggeren?
Ik dacht zelf aan een BTS137 triac...

[Bericht gewijzigd door peterrr op woensdag 28 maart 2007 12:24:53 ]

Ja die had ik vroeger ook als eens gezien. Je ziet, geen enkele digitale DSLR camera haald de minimum tijden.
Vandaar de extra externe shutter die bijgeplaatst wordt waardoor je de camera vooraf mag openzetten ( opname bulb) Maar die opname is begrenst in de tijd omdat er zelfs in volledige duisternis ruis wordt opgenomen door de sensor. Tijdens al mijn testen bleek enkel de D200 zicht uitzonderlijk goed te gedragen waarbij er nauwelijks ruis ontstaat ook bij tijden tot boven de 1 min.

Voor vallende objecten heb je dit allemaal niet nodig omdat je de detectie voldoende vroeg kunt plaatsen. Je kunt dan de shutter delay mee in rekening brengen en op deze manier een perfecte opname maken. Bij deze methode kun je wel de flits op de camera gebruiken.

Er ontstaat nog wel een klein probleem nl, de camera heeft niet zo een konstante vertragingstijd. Daardoor zal de flits iets vroeger of later afgaan en is de valafstand minder konstant, terwijl mijn methode uiterste precies is. Maar praktisch valt er wel mee te werken en kun je mooie resultaten boeken.

Ik gebruik de IRF720 voor mijn oude flitsers (400V toegelaten), voor de nieuwere gebruik ik een BC546 80V versie.

Hieronder dan de eerste versie Bascom SW.

De camera neemt een opname als:
- OF de lichtsterkte beneden "Lightthreshold" komt.
Dat is het geval als de op de sensor schijnende
laserstraal onderbroken wordt.
- OF er 5 minuten verstreken zijn.
Dus als "minutes_count" 5 wordt (om de 5 minuten dus!)
- OF er een willekeurige toets op een Philips (IR,RC5)
afstandsbediening wordt ingedrukt.

Volgende variabelen kun je naar eigen smaak veranderen:
-- Delaytime = 100
Na triggering wordt er eerst 100 ms gewacht.
Maak 0 voor korte reactietijd.
-- Focustime = 1000
Aantal ms dat de focusknop ingedrult wordt.
Maak 0 als camera al gefocusseerd is voor korte
reactietijd.
-- Exposetime = 2000
Aantal ms dat shutterknop ingedrukt wordt.
Beter niet kleiner maken dan 300ms, anders regeert camera
misschien niet.
-- Sleeptime = 100
Aantal ms dat triggering niet mogelijk is na sluiten
shutter.
Kan helpen om omgewilde triggers te kort na elkaar te voorkomen.

Dit progje neemt 48% van de beschikbare 4K flash in.
Het is dus met de freeware versie van Bascom nog te
compilen.

Ik werk aan een volgende SW versie waarbij de variabelen
via de AB kunnen worden ingesteld en default in EEprom worden bewaart.
Ook zal ik er een IR diode aan toevoegen die dan een
NIKON D70 zal triggeren zoals "Big Mike" op
http://www.bigmike.it/ir-control.html

Maar als het te vaak mooi weer wordt, kan het wel wat langer duren voordat het af is...

'$prog &HFF , &HF7 , &HDF , &HFF '=fusebits for external
'xtal 20MHz and divide_clock_by_8_disabled.
$regfile = "m48def.dat"
$crystal = 20000000

Ddrb = &B0011_1111 : Portb = &B0011_1111
Ddrc = &B0001_1110 : Portc = &B0001_0001
Ddrd = &B1111_1000 : Portd = &B1111_1011
'-----------VARIABELEN DECLAREREN--------------------------
Dim Text As String * 4 At &H100
Dim Array(4) As Byte At &H100 Overlay
Dim Digitcounter As Byte
Dim Readout As Word : Dim Test As Byte
Dim Status As Byte : Dim Segments As Byte
Dim State As Byte : Dim Lightthreshold As Word
Dim Delaytime As Word : Dim Focustime As Word
Dim Exposetime As Word : Dim Sleeptime As Word
Dim Intervaltime As Word : Dim State_countdown As Word
Dim Milliseconds_count As Word
Dim Seconds_count As Byte : Dim Minutes_count As Byte
Dim Temp1 As Word : Dim Temp2 As Word

'-----------ALIAS--------------------------
Focus Alias Portc.2
Shutter Alias Portc.3
Led Alias Portc.4
Lightsensor Alias Portc5
Ascii Alias Status.3
Led_left Alias Status.2
Led_middle Alias Status.1
Led_right Alias Status.0
'-----------CONSTANTS--------------------------
Const Nee = 0 : Const Ja = 1
Const Led_on = 0 : Const Led_off = 1
Const Active = 1 : Const Notactive = 0
Const Wait_for_trigger = 0 : Const Delaying = 1 : Const Focussing = 2
Const Exposing = 3 : Const Sleeping = 4 : Const Waitinterval = 5
Const Timer0reload = 78
'-----------INITIALISE--------------------------
Digitcounter = 1 : Ascii = 0 : Readout = 0
Led_left = Led_off : Led_middle = Led_off : Led_right = Led_off
Focus = Notactive : Shutter = Notactive : Lightthreshold = 600
Delaytime = 100 : Focustime = 1000 : Exposetime = 2000 : Sleeptime = 100
State_countdown = 0 : State = Wait_for_trigger
Milliseconds_count = 0 : Seconds_count = 0 : Minutes_count = 0
Led = Led_off
'-----------TIMER,ADC AND INTERRUPTS------------------
Config Timer0 = Timer , Prescale = 256
Load Timer0 , Timer0reload
On Ovf0 One_ms_interrupt
Enable Ovf0
Start Timer0
Enable Interrupts
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc


Do

 If State_countdown = 0 Then
 Temp1 = Minutes_count * 100
 Readout = Seconds_count + Temp1
 Else
 Readout = State_countdown
 End If
 Select Case State
  Case Delaying : Led_left = Led_on
  Case Focussing : Led_middle = Led_on
  Case Exposing : Led_right = Led_on
 End Select
 If Seconds_count = 60 Then
    Seconds_count = 0
    Incr Minutes_count
 End If
 If Minutes_count = 5 Then
    Minutes_count = 0
    Led = Led_off
    State = Delaying
 End If
 Gosub Update_display

Loop

'---------------INTERRUPT SUBROUTINE--------------------------------
One_ms_interrupt:
Load Timer0 , Timer0reload
If State = Wait_for_trigger Then
   If Getadc(5) < Lightthreshold Or Pind.2 = 0 Then
      State = Delaying
      State_countdown = Delaytime
   End If
End If

If State = Delaying Then
   If State_countdown = 0 Then
       State = Focussing
       State_countdown = Focustime
   Else
       Decr State_countdown
   End If
End If

If State = Focussing Then
   If State_countdown = 0 Then
      Focus = Notactive
      State = Exposing
      State_countdown = Exposetime
   Else
      Focus = Active
      Decr State_countdown
   End If
End If

If State = Exposing Then
   If State_countdown = 0 Then
      Shutter = Notactive
      State = Sleeping
      State_countdown = Sleeptime
   Else
      Shutter = Active
      Decr State_countdown
   End If
End If

If State = Sleeping Then
  If State_countdown = 0 Then
       If Getadc(5) > Lightthreshold Or Pind.2 = 0 Then
       State = Wait_for_trigger
       End If
  Else
      Decr State_countdown
   End If
End If
Status = &B1111_1111
Incr Milliseconds_count
If Milliseconds_count = 1000 Then
   Milliseconds_count = 0
   Incr Seconds_count
End If
Return

Update_display:
'---------------DISPLAY UPDATE-------------------------
Incr Digitcounter
Text = Str(readout)
If Readout < 1000 Then
    Do
    Array(4) = Array(3) : Array(3) = Array(2)
    Array(2) = Array(1) : Array(1) = 0
    Loop Until Array(4) > 0
End If
Test = Array(digitcounter)
Select Case Test
'---segmenten-----------*GCB_AFED
 Case 48 : Segments = &B1100_0000                           '0
 Case 49 : Segments = &B1100_1111                           '1
 Case 50 : Segments = &B1010_0100                           '2
 Case 51 : Segments = &B1000_0110                           '3
 Case 52 : Segments = &B1000_1011                           '4
 Case 53 : Segments = &B1001_0010                           '5
 Case 54 : Segments = &B1001_0000                           '6
 Case 55 : Segments = &B1100_0111                           '7
 Case 56 : Segments = &B1000_0000                           '8
 Case 57 : Segments = &B1000_0010                           '9
 Case Else : Segments = 255                                 'all segments OFF
End Select
Portb.1 = 1 : Portb.2 = 1 : Portb.3 = 1 : Portb.4 = 1 : Portb.5 = 1
Portb.0 = Segments.0 : Portd.7 = Segments.1
Portd.6 = Segments.2 : Portd.5 = Segments.3
Portd.4 = Segments.4 : Portd.3 = Segments.5
Portc.1 = Segments.6
If Readout <> 0 Then
   If Digitcounter = 1 Then Portb.2 = 0
   If Digitcounter = 2 Then Portb.3 = 0
   If Digitcounter = 3 Then Portb.4 = 0
   If Digitcounter = 4 Then Portb.5 = 0
End If
   If Digitcounter = 5 Then
      Portb.1 = 0
      Digitcounter = 0
      Portd.3 = Led_left
      Portd.4 = Led_middle
      Portd.5 = Led_right
   End If
Return

End