Online Warmup Conversation Slideshow

If there are more on-line classes:

I should write procedures that take a series of lines and produces an series of slides that make interactive sessions easy. A pause between each alts and next serves to prompt responses: all participants type a response into chatboxes and send them all at once.

After "#lang slideshow" FootNotes(Racket Slideshow: https://docs.racket-lang.org/slideshow/index.html

(require slideshow/text racket/draw)
(enable-click-advance! #f) 
(set-spotlight-style!
 ;; #:color (make-object color% 255 0 0 .5)
 #:size 100 #:color (make-object color% 255 0 0 .5))
(define font-size-start (* 3 (current-font-size)))
(current-font-size font-size-start)
(current-main-font "Manjari")
(slide #:title "Any Questions?"
       'alts
       (list (list
          (para "Do you have any questions?"))
             (list (para #:fill? #f #:align 'left
             "Monday's class gave questions to me."))
         (list
          (para #:fill? #f #:align 'left
            "What questions did the class give to me?"))
         (list
          (para #:fill? #f #:align 'left
            "Do you have any ideas?"))
         (list (para #:width client-w  #:align 'left 
             (colorize (t "For example: ") "gray"))
           'alts
           (list (list
              (para #:fill? #f #:align 'left
                "How was your " (colorize (t "weekend?") "red"))
              'next
              (para #:align 'right "Or? after a vacation?"))
             (list
              (para #:fill? #f #:align 'left
                "How was your " (colorize (t "vacation?") "red")))))))
(slide #:title "More Questions"
       'alts
       (list (list
          (colorize (para #:width client-w #:align 'left
                  "What question comes after: ") "gray")
          (para #:fill? #f #:align 'left
            "How was your " (colorize (t "weekend?") "red")))
         (list
          (colorize 
           (para #:width client-w "After 'How was your weekend?':") "gray")
          'alts
          (list (list
             (para 
              "What did you do?")
             'next
             (para #:align 'right "Or?"))
            (list 
             (para #:width client-w  #:align 'left 
               "What did you do " (colorize (t "for the ") "blue") (colorize (t "weekend?") "red")))))
         (list
          (colorize (para #:width client-w #:align 'left
                  "What question comes after: ") "gray")
          (para #:fill? #f #:align 'left
            "How was your " (colorize (t "vacation?") "red")))
         (list
          (colorize 
           (para #:width client-w "After 'How was your vacation?':") "gray")
          'alts
          (list (list
             (para 
              "What did you do?")
             'next
             (para #:align 'right "Or?"))
            (list 
             (para #:width client-w  #:align 'left 
               "What did you do " (colorize (t "for the ") "blue") (colorize (t "vacation?") "red"))))))
         )

(slide
 (para #:width client-w
       "So, How was your weekend?")
 'next
 (para "It was great.")
 'next
 (para #:width client-w "What did you do?")
 'next
 (para "I went " (colorize (t "to Kijo-town.") "red")))
;; https://pixelfed.social/p/bsmall2/388290321225320249

(slide
 (para #:width client-w
       "What did you do" (colorize (t "in Kijo-town?") "red"))
 'next
 (para "I went to a Festival."))

(slide
 (para #:width client-w
       "So, How was your vacation?")
 'next
 (para "It was great.")
 'next
 (para #:width client-w "What did you do?")
 'alts
 (list (list
    'next
    'alts
    (list (list
           (para "I "(colorize (t "went ") "red")  "to a movie."))
           (list
        (para "I " (colorize (t "saw") "red") " Minamata Mandala."))
          ;; https://snap.as/bsmall2/minamata-mandala-1
          (list
          (para "I " (colorize (t "made") "red") " mochi.")))
       ;; https://snap.as/bsmall2/nayasan-20211218
       )))

FootNotes - https://docs.racket-lang.org/slideshow/index.html

Home