// Time-lapse photography
//
// Shoots "NumberOfPhotos" separated by "Interval" tenths of second.
// First image shot after "StartupTime" tenths of second.
// Note : The smallest interval you can specify is about 2.5 s
// or the Coolpix will not keep up (mechanically you can get 0.5s)

// Version for (relatively) short intervals:
//   - The camera is not supposed to enter sleep mode
//   - Total shooting time must be less than 3200 seconds

#define NumberOfPhotos 500
#define Interval 150
#define StartupTime 10

// Shutter release definitions
#define ReleaseMotor OUT_A
#define ReleaseTouch SENSOR_1
#define PressWait 5
#define PressedWait 5
#define ReleaseWait 15


task main()
{
  int time;
  int i;
  
  SetSensor(ReleaseTouch ,SENSOR_TOUCH);
  ClearTimer(1);
  time=StartupTime;  
  until (Timer(1)>=time);
  for(i=0; i<NumberOfPhotos; i++) {
    ShutterRelease();
    time+=Interval;
    until (Timer(1)>=time);
  }
  PlaySound(2);
}


sub ShutterRelease()
{
  OnRev(ReleaseMotor);
  until (ReleaseTouch == 1);
  Wait(PressWait);
  Off(ReleaseMotor);
  Wait(PressedWait);
  OnFwd(ReleaseMotor);
  until (ReleaseTouch == 0);
  Wait(ReleaseWait);
  Off(ReleaseMotor);
}