RSound
RSound copied to clipboard
jbclements
cursor on the text
(define CHAR-CANVAS%
(class canvas%
(define/override (on-char evt)
(let ((c (send evt get-key-code)) (dc(send this get-dc)))
(send dc clear)
(print c)
(cond
((equal? c 'release)(void))
((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))
(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)
(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))
((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))
((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))
((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))
((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))
((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))
((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))
((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))
))
(super-new)))
It works very well (it is for writing in hiragana katakana and other characters) I want to add to this same canvas a feature which tells me the position of the cursor on a text
is it possible? if yes what is the code to add?
(define/override (on-char evt)......
Or do I need a another canvas? in this case what will be my code?
(define/override (on-char evt)......
this in order to do something similar to a "RIKAICHAN"
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?
John Clements
On Jul 13, 2019, at 06:00, madatao [email protected] wrote:
(define CHAR-CANVAS% (class canvas% (define/override (on-char evt) (let ((c (send evt get-key-code)) (dc(send this get-dc))) (send dc clear) (print c) (cond ((equal? c 'release)(void)) ((member c '( #\a #\i #\u #\e #\o #\q #\é #\x)) (begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30) (send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '()))) ((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '()))) ((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '()))) ((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '()))) ((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '()))) ((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '()))) ((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void)) ((begin (set! tampon-key (cons c tampon-key))(print tampon-key)))) ))
(super-new)))
It works very well (it is for writing in hiragana katakana and other characters) I want to add to this same canvas a feature which tells me the position of the cursor on a text
is it possible? if yes what is the code to add?
(define/override (on-char evt)......
Or do I need a another canvas? in this case what will be my code?
(define/override (on-char evt)......
this in order to do something similar to a "RIKAICHAN"
— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub, or mute the thread.
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?John ClementsOn Jul 13, 2019, at 06:00, madatao [email protected] wrote:(define CHAR-CANVAS%(class canvas%(define/override (on-char evt)(let ((c (send evt get-key-code)) (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works very well (it is for writing in hiragana katakana and other characters)I want to add to this same canvasa feature which tells me the position of the cursor on a textis it possible? if yeswhat is the code to add?(define/override (on-char evt)......Or do I need a another canvas?in this case what will be my code? (define/override (on-char evt)......this in order to do something similar to a "RIKAICHAN"—You are receiving this because you are subscribed to this thread.Reply to this email directly, view it on GitHub, or mute the thread.
thank you very much for your answer this is not directly relating to the rsound package (at the moment) is my problem difficult? i am find à solution with a copy pass from a text-field to a another but that is not so elegant as a direct detecting of the word when the carret (cursor) over this
Le mar. 16 juil. 2019 à 17:37, John Clements [email protected] a écrit :
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?John ClementsOn Jul 13, 2019, at 06:00, madatao < [email protected]> wrote:(define CHAR-CANVAS%(class canvas%(define/override (on-char evt)(let ((c (send evt get-key-code)) (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works very well (it is for writing in hiragana katakana and other characters)I want to add to this same canvasa feature which tells me the position of the cursor on a textis it possible? if yeswhat is the code to add?(define/override (on-char evt)......Or do I need a another canvas?in this case what will be my code? (define/override (on-char evt)......this in order to do something similar to a "RIKAICHAN"—You are receiving this because you are subscribed to this thread.Reply to this email directly, view it on GitHub, or mute the thread.
— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/jbclements/RSound/issues/41?email_source=notifications&email_token=AJAFCKH3ETNVZIZSYIHQOYLP7XTKFA5CNFSM4IC2GWG2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD2BIG5A#issuecomment-511869812, or mute the thread https://github.com/notifications/unsubscribe-auth/AJAFCKHXRKONF34UI75OZALP7XTKFANCNFSM4IC2GWGQ .
(define b '(あ い う え お か き く け こ さ し す せ そ た ち つ て と な に ぬ ね の は ひ ふ へ ほ ま み む め も や ゆ よ わ を ん ら り る れ ろ にょ びゃ びゅ びょ みゃ みゅ みょ )
(define (foo-play l) (while (not(null? l) (play (car l)) (set! l (cdr l)))))
(foo play b)
;play: expects to be at the top level in: (play (car l))
what should I do to be able to listen to this list?
あ (rsound #
0 48971 44100) ................... みょ (rsound # 0 31675 44100)
best regards
Le mar. 16 juil. 2019 à 18:15, claude talarmin [email protected] a écrit :
thank you very much for your answer this is not directly relating to the rsound package (at the moment) is my problem difficult? i am find à solution with a copy pass from a text-field to a another but that is not so elegant as a direct detecting of the word when the carret (cursor) over this
Le mar. 16 juil. 2019 à 17:37, John Clements [email protected] a écrit :
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?John ClementsOn Jul 13, 2019, at 06:00, madatao < [email protected]> wrote:(define CHAR-CANVAS%(class canvas%(define/override (on-char evt)(let ((c (send evt get-key-code)) (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works very well (it is for writing in hiragana katakana and other characters)I want to add to this same canvasa feature which tells me the position of the cursor on a textis it possible? if yeswhat is the code to add?(define/override (on-char evt)......Or do I need a another canvas?in this case what will be my code? (define/override (on-char evt)......this in order to do something similar to a "RIKAICHAN"—You are receiving this because you are subscribed to this thread.Reply to this email directly, view it on GitHub, or mute the thread.
— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/jbclements/RSound/issues/41?email_source=notifications&email_token=AJAFCKH3ETNVZIZSYIHQOYLP7XTKFA5CNFSM4IC2GWG2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD2BIG5A#issuecomment-511869812, or mute the thread https://github.com/notifications/unsubscribe-auth/AJAFCKHXRKONF34UI75OZALP7XTKFANCNFSM4IC2GWGQ .
(define (transform-syll->mot L-romanji L-hiragana) (let ((a '())(b'())) (set! a (map list->string (reverse L-romanji))) (set! b (map char->string (string->list "たべます"))) (list a b)))
(define (foo-w1 tw) ;transforme syllabe en fichier wav (if exist) (let ((l '())) (while (not (null? tw)) (set! l(cons (string-append (car tw )".wav")l)) (set! tw (cdr tw))) (reverse l)))
(define (transform-mot->son L-romanji L-hiragana) (let* ((x (transform-syll->mot L-romanji L-hiragana)) (a (car x))) (current-directory "/Users/izuko/Desktop/japonais-new/jap-syll") (rs-append* (map rs-read (foo-w1 a)))))
(define syllabe-R '()) (define syllabe-H '()) (define clip "")
(define Bt-dir (new button% (parent GP-1 ) (label "Direct") (callback (lambda (obj evt) (begin (set! alphabet hiragana) (set! lecture-feld (send R-k-tex-rech get-text)) (set! LECT-HI* (cons lecture-feld LECT-HI*)) (set! LECT-ID* (cons lecture-feld LECT-ID*)) (send R-k-text insert lecture-feld) (set! syllabe-R (transform-syll->mot tampon-wort lecture-feld)) (set! clip (transform-mot->son tampon-wort lecture-feld)) (play clip))))))
Le jeu. 18 juil. 2019 à 15:38, claude talarmin [email protected] a écrit :
(define b '(あ い う え お か き く け こ さ し す せ そ た ち つ て と な に ぬ ね の は ひ ふ へ ほ ま み む め も や ゆ よ わ を ん ら り る れ ろ にょ びゃ びゅ びょ みゃ みゅ みょ )
(define (foo-play l) (while (not(null? l) (play (car l)) (set! l (cdr l)))))
(foo play b)
;play: expects to be at the top level in: (play (car l))
what should I do to be able to listen to this list?
あ (rsound #
0 48971 44100) ................... みょ (rsound # 0 31675 44100) best regards
Le mar. 16 juil. 2019 à 18:15, claude talarmin [email protected] a écrit :
thank you very much for your answer this is not directly relating to the rsound package (at the moment) is my problem difficult? i am find à solution with a copy pass from a text-field to a another but that is not so elegant as a direct detecting of the word when the carret (cursor) over this
Le mar. 16 juil. 2019 à 17:37, John Clements [email protected] a écrit :
Hmm… I’m not completely sure what you’re asking, but I’m pretty confident that it has nothing to do with the “rsound” package for generating sound. Would you like me to forward your message to the racket users mailing list?John ClementsOn Jul 13, 2019, at 06:00, madatao < [email protected]> wrote:(define CHAR-CANVAS%(class canvas%(define/override (on-char evt)(let ((c (send evt get-key-code)) (dc(send this get-dc)))(send dc clear)(print c)(cond((equal? c 'release)(void))((member c '( #\a #\i #\u #\e #\o #\q #\é #\x))(begin(set! tampon-key (cons c tampon-key)) (send dc draw-text (cadr (member (list->string (reverse tampon-key)) alphabet )) 30 30)(send R-k-text insert (cadr (member (list->string (reverse tampon-key)) alphabet ))) (set! tampon-key '())))((equal? c #;)(begin(send R-k-text insert "。") (set! tampon-key '())))((equal? c #,)(begin(send R-k-text insert "、") (set! tampon-key '())))((equal? c #()(begin(send R-k-text insert "「") (set! tampon-key '())))((equal? c #))(begin(send R-k-text insert " 」") (set! tampon-key '())))((equal? c #&)(begin(send R-k-text insert "々") (set! tampon-key '())))((not(member c '(#\b #\c #\d #\f #\g #\j #\k #\m #\n #\p #\r #\i #\h #\t #\s #\w #\y #\a #\e #\o #\z #\u)))(void))((begin (set! tampon-key (cons c tampon-key))(print tampon-key))))))(super-new)))It works very well (it is for writing in hiragana katakana and other characters)I want to add to this same canvasa feature which tells me the position of the cursor on a textis it possible? if yeswhat is the code to add?(define/override (on-char evt)......Or do I need a another canvas?in this case what will be my code? (define/override (on-char evt)......this in order to do something similar to a "RIKAICHAN"—You are receiving this because you are subscribed to this thread.Reply to this email directly, view it on GitHub, or mute the thread.
— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/jbclements/RSound/issues/41?email_source=notifications&email_token=AJAFCKH3ETNVZIZSYIHQOYLP7XTKFA5CNFSM4IC2GWG2YY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD2BIG5A#issuecomment-511869812, or mute the thread https://github.com/notifications/unsubscribe-auth/AJAFCKHXRKONF34UI75OZALP7XTKFANCNFSM4IC2GWGQ .