Приложения канала
[Разметка 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

Home