// Direct control of the motor (no library): https://wokwi.com/projects/327360139702043220
// aus wokwi-stepper-motor Reference: https://docs.wokwi.com/parts/wokwi-stepper-motor

/*---------------------------------------*\
| Simple direct drive of Bipolar Stepper  |
\*---------------------------------------*/

// pins connected
#define Ap 10  // A+ line
#define Am 11  // A- line
#define Bp 9   //  .
#define Bm 8   //  .

void setup() {
  // set output
  pinMode(Ap,OUTPUT);  pinMode(Am,OUTPUT);
  pinMode(Bp,OUTPUT);  pinMode(Bm,OUTPUT);
}

int I = 0 ;
void loop() {
  // This is Wave Fullstep motion - only one coil energized at a time
  if ( I++ <25 ) {  // stop after 25*4 steps (=100) - quarter turn with gearRatio "2:1"
    delay(10);
    digitalWrite(Bm,LOW) ;  digitalWrite(Ap,HIGH);
    delay(10);
    digitalWrite(Ap,LOW) ;  digitalWrite(Bp,HIGH);
    delay(10);
    digitalWrite(Bp,LOW) ;  digitalWrite(Am,HIGH);
    delay(10);
    digitalWrite(Am,LOW) ;  digitalWrite(Bm,HIGH);
  } else while(1);
}
/*   A-   A+  |  B+   B-
    ---------------------
     L    H      L    L
     L    L      H    L
     H    L      L    L
     L    L      L    H 
    
*/