driver.rkt

#lang racket
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; SchArpeggio                                          ;;;
;;; Driver Program                                       ;;;
;;; Mike Stowell, some modifications by Jeremy Poulin    ;;;
;;;                                                      ;;;
;;; Class that contains the main driver to run the       ;;;
;;; SchArpeggiator program in addition to the global     ;;;
;;; object types required by the several components of   ;;;
;;; the overall program.                                 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; #region Requirements

(require racket/file)
(require racket/string)
(require racket/include)

; requirements for objects
(include "objects.rkt")

; requirements for music
(require rsc3)
(include "arpeggiator.rkt")

; requirements for drawing
(require graphics/turtles)
(include "drawing.rkt")

;; #endregion


;; #region Running the driver

; list of chord objects - the progession
(define progression '())

; the music thread
(define music-thread (void))

; stops and resets the driver
(define (stop)
  (kill-thread music-thread)
  (reset-music-sheet)
  (rsc3-stop)
  (run))

; number of chords in the progression
(define num-chords 0)

; path to save the user's file to
(define path "")

; procedure to start the driver up
(define (run)
  ;reset the progression and chord number
  (set! num-chords 0)
  (set! progression '())
 
  (display (string-append 
            "Welcome to SchArpeggio!\n"              
            "You will be asked to enter 1 to 4 chord configurations.\n"
            "The setup will guide you through this process.\n\n\n"))
  
  (get-file-save-path)
  (get-new-chords)
  
  (send-chord-config-draw)  
  (set! music-thread (thread (lambda () (send-chord-config-music progression)))))

(define (get-file-save-path)
  (set! path
    (prompt-for-and-return 
      (string-append
        "\nEnter a full path for SchArpeggio to save your dynamic\n"
        "music sheet to.  The full path must include the filename to\n"
        "save as well, without the file extension (which will be .png).\n"
        "Path: "))))

(define (get-new-chords)
  (set! num-chords (+ num-chords 1))
  
  (define chord  (ask-for-chord))
  (define option (ask-for-option))
  (define speed  (ask-for-speed))
  (define flavor (ask-for-flavor))
  (define range  (ask-for-range))
  (define sound-font (ask-for-sound-font))
  
  (define chord-config (make-chord
                        chord 
                        option 
                        speed
                        flavor
                        range
                        sound-font))
  
  (if (= num-chords 4)       
      ; user hit max num chords per progression
      (add-to-progression chord-config)
      (begin
        ; ask for additional chords
        (if (equal? (prompt-for-and-return (string-append
                  "\n\nWould you like to enter another chord?\n"
                  "Enter Y for yes, N for no: ")) "Y")
            (begin 
              ; if yes, prompt for another chord
              (add-to-progression chord-config)
              (display "\n\n")
              (get-new-chords))
            ; otherwise, just add the last chord to the progression
            (add-to-progression chord-config)))))

; adds the chord to our list
(define (add-to-progression chord)
  (set! progression (append progression (list chord))))

; prompt the user for the chord
(define (ask-for-chord)
  (prompt-for-and-return 
   (string-append 
    "--- Chord #: " (number->string num-chords) " ---\n\n"
    "Please input a chord progression.\n"
    "Up to 4 chords are allowed.\n"
    "Enter the root chord as a single lowercase letter: ")))

; prompt the user for the option
(define (ask-for-option)
  (prompt-for-and-return 
   (string-append
    "\n\nPlease input an option to play the arpeggio.\n"
    "a) Down to Up\n"
    "b) Up to Down\n"
    "c) Random Order\n"
    "Select a choice (lower case letters only): ")))

; prompt the user for the speed
(define (ask-for-speed)
  (prompt-for-and-return 
   (string-append
    "\n\nPlease input a speed for the arpeggio.\n"
    "a) whole\n"
    "b) half\n"
    "c) quarter\n"
    "d) eighth\n"
    "e) sixteenth\n"
    "Select a choice (lower case letters only): ")))

; prompt the user for the flavor
(define (ask-for-flavor)
  (prompt-for-and-return 
   (string-append
    "\n\nPlease input a flavor for the chord.\n"
    "a) major\n"
    "b) minor\n"
    "Select a choice (lower case letters only): ")))

; prompt the user for the range
(define (ask-for-range)
  (prompt-for-and-return 
   (string-append
    "\n\nPlease input a range for the notes in the chord.\n"
    "a) root\n"
    "b) dom\n"
    "c) third\n"
    "d) high root\n"
    "e) low dom\n"
    "f) low third\n"
    "g) low root\n"
    "Select a choice (lower case letters only): ")))

; prompt the user for the sound font
(define (ask-for-sound-font)
  (prompt-for-and-return 
   (string-append
    "\n\nPlease input a sound-font for the notes in the chord.\n"
    "a) triangle-wave\n"
    "b) saw-wave\n"
    "c) sine-wave\n"
    "Select a choice (lower case letters only): ")))

; send the chord-config off to the music library
(define (send-chord-config-music chord-config)
  (play-chord-progression chord-config))

; send the chord-config off to the drawing library
(define (send-chord-config-draw)
  ; turn on the drawing board
  (turtles #t)
  ; draw the chord progression
  (draw-progression progression path)
  (draw-new-staff))

;; #endregion

;; #region User input

; generic prompt procedure to print a message and ask for input
(define (prompt-for-and-return msg)
  (display msg)
  (read-line my-in-port))

; input port
(define my-in-port (current-input-port))

;; #endregion

; Test code
;(define c (make-chord "c" "a" "a" "a" "a"))
(run)