(version)

(require racket
         racket/list
         racket/format
         (prefix-in pict: pict))

(require bhdl)

;; FIXME use global?
(define global
  (make-circuit
   (pin GND 3V3 5V VCC USB5V)))

(define (RC-fixed)
         (make-circuit
              (pin In Out GND)
               (part [R1 (R '1k)]
                      [C1 (C '1p)])
          (wire (list (*- self.In R1.1)
                          (*- R1.2 C1.1 self.Out)
                          (*- C1.2 self.GND)))
          (layout (inset (vc-append R1 C1) 20))))

(show-layout (RC-fixed))

(circuit-plot (RC-fixed))

;; some component libraries
(define/IC (MOSFET)
           #:FP ((lcsc->fp "C727149") 1 2 3))

(define/IC (SW_Push)
           #:FP ((kicad->fp "Button_Switch_THT.pretty/"
                                 "SW_PUSH_6mm.kicad_mod")
                 2 1 2 1)
           #:LEFT 1
           #:RIGHT 2
           #:PREFIX "BT")

(define (delay-push-fixed)
  (make-circuit
      (pin VCC GND Ctrl)
      (part (RC1 (RC-fixed))
              [D1 (Diode '1N4148)]
              [R4 (R '1k)]
              [SW1 (SW_Push)]
              [Q1 (MOSFET '2N7002)]
              [R2 (R '10k)]
              [D2 (LED)])
      (wire (list (*- RC1.Out D1.anode Q1.1)
                      (*- RC1.GND Q1.2)
                      (*- Q1.3 self.Ctrl))
        (list (*- self.VCC SW1 D1.cathode RC1.In self.GND)
                   (*- self.VCC D2 self.Ctrl)))
   ;; TODO implement a default layout
;;    #:layout (pict:rectangle 200 200)
;;    #:layout (inset SW1 50)
   ;; UPDATE I'm using only the btn for the layout, so that layter module can direclty use this to layout the buttons
   (layout SW1)
   ))

(placer-url "http://localhost:8082")

;; FIXME this does not seem to be deterministic
;; TODO implement copy-on-assign semantic, like pict?
;; (parameterize ([current-directory "./out/onebutton/delay-push-fixed"]
;;                [padding-general 2])
;;     (circuit-export (delay-push-fixed)
;;                     #:auto-place #t
;;                     #:formats '(kicad pdf png)))

(define/IC (ESP01)
           #:FP ((lcsc->fp "C503581") 
                 GND GPIO2 GPIO0 URXD
                 UTXD CH_PD RST VCC))

(define/IC (OneBattery)
           ;; FIXME using pinheader for battery holder?
           #:FP ((kicad->fp "kicad-footprints" 
                           "Connector_PinHeader_2.54mm.pretty"
                           "PinHeader_1x02_P2.54mm_Horizontal.kicad_mod")
                 pos neg))

(atom->fp-pict (OneBattery))

(define one-button
  (make-circuit 
    (part [delay_sw1 (delay-push-fixed)]
           [BT1 (OneBattery '3V)]
           [U1 (ESP01)])
   (wire (list
              ;; TODO use thr-hole footprint for resistors
              (*- BT1.pos (R '10k) U1.RST)
              (*- BT1.pos (R '10k) U1.CH_PD)
              (*- BT1.pos U1.VCC delay_sw1.VCC)
                   (*- BT1.neg U1.GND delay_sw1.GND)
                   (*- U1.RST delay_sw1.Ctrl)))
   (layout (inset (hc-append 200 delay_sw1 U1)
                   0 20 0 20))))

(show-layout one-button)

;; FIXME this does not seem to be deterministic
;; TODO implement copy-on-assign semantic, like pict?
(parameterize ([current-directory "./out/onebutton/one"]
               [padding-general 1])
    (circuit-export one-button
                    #:auto-place #t
                    #:formats '(kicad pdf png)))

(define layout-example 
  (make-circuit 
      (part [btn1 (SW_Push)]
             [btn2 (SW_Push)]
             [btn3 (SW_Push)]
             [mcu (ESP01)])
     (wire (list (*- btn1 mcu.GPIO0)
                     (*- btn2 mcu.GPIO2)
                     (*- btn3 mcu.RST)))
     (layout (hc-append (vc-append btn1 btn2 btn3) 
;;                          (rotate mcu (/ pi 4))
                         mcu))))

(show-layout layout-example)

(parameterize ([current-directory "./out/onebutton/layout-example"]
               [padding-general 1])
    (circuit-export layout-example
                    #:auto-place #t
                    #:formats '(kicad pdf png)))

(define three-button
  (make-circuit 
    (part [buttons (for/list ([i (in-range 3)])
                                 (delay-push-fixed))]
           [BT1 (OneBattery '3V)]
           [U1 (ESP01)])
   (wire (list 
              (*- BT1.pos (R '10k) U1.RST)
              (*- BT1.pos (R '10k) U1.CH_PD)
              (*- BT1.pos U1.VCC)
              (for/list ([btn buttons])
                        (*- BT1.pos btn.VCC))
              ;; neg to GNDs
               (for/list ([btn buttons])
                         (*- BT1.neg U1.GND btn.GND))
              ;; connect GPIOs
              (for/list ([btn buttons]
                         [ctrl (list (pin-ref U1 'RST)
                                     (pin-ref U1 'GPIO0)
                                     (pin-ref U1 'GPIO2))])
                        (*- ctrl btn.Ctrl))
               ))
   (layout (inset (hc-append 300 (apply vc-append buttons) U1)
                   0))))

(pict:frame (show-layout three-button))

(parameterize ([current-directory "./out/onebutton/three"]
               [padding-general 1])
    (circuit-export three-button
                    #:auto-place #t
                    #:formats '(kicad pdf png)))

(define (get-C tau R)
  (/ tau R))

(define (RC-flexible tau)
  (make-circuit
     (pin In Out GND)
    (part [R1 (R 1000)]
           [C1 (C (get-C tau 1000))])
    (wire (list (*- self.In R1.1)
                   (*- R1.2 C1.1 self.Out)
                   (*- C1.2 self.Out)))
   (layout (inset (vc-append R1 C1) 20))))

(RC-flexible 1)

;; FIXME this does not seem to be deterministic
;; TODO implement copy-on-assign semantic, like pict?
(parameterize ([current-directory "./out/onebutton/flex"]
               [padding-general 2])
    (circuit-export (RC-flexible 1)
                    #:auto-place #f
                    #:formats '(kicad pdf png bom)))

;; read the CSV file
(call-with-input-file "out/onebutton/flex/BOM.csv"
                      (lambda (in)
                        (displayln (port->string in))))