[Разметка Markdown]
Racket Slideshow : WarmupConversationOnline
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