Blackjack

[johnno56]

Had a crazy idea... Scratch has a TTS addon module... The downside is that it does not export. Only plays. I use Audacity as my 'go to' audio editor. Dot get ahead of me.... Programmed Scratch to 'say' - 'Welcome to Blackjack. Take a seat and enter your name." and recorded the sound via my 'camera mic'. Filtered out a little of the background noise... The results could be better, but not too bad, for a cam/mic. What do you think?

Obviously, I will need to run a few more filters through it to 'clean it up', but not too bad for a first try?

[johnno56]

Update.

I have managed to figure out how to allow Audacity to record directly from the PC audio. Bingo! No static or need of filtering.

Here is the new sample.

Best part... 'wav' file is 600kb+ and the 'ogg' is just over 30k... Cool

[jack]

that sounds really good :)

[bplus]

that sounds really good :)

+1  Wow! clear and human, it sounds like a winner! I was OK to go with English accent but this can't be any more clear.

So you are getting speech from text with one app and recording that with another and the file size is quite doable.

Good research @johnno56

[johnno56]

It's almost 2am. After I get some sleep, I will extract the individual tracks, pop them into folders, zip them up, them send them... Now to find the alarm clock... and hide it... lol

[johnno56]

Ok. At a more respectable time of almost 9:30am... Here is the revised collection of 'dealer comments'. Check them and make sure that they are ok? Any problems then let me know and I will fix it.

[bplus]

@johnno56  Just in time!

I just finished my Coalescing Text maker for more modern looking "bubbles" I think.

I am thinking we can play sound and run the Coalescing Text maker and they might finish around the same time?

Check it out:

Code: QB64: [Select]

1. _TITLE "Coalescing text" 'B+ started 2020-06-23
2. ' post 2020-06-28  https://www.qb64.org/forum/index.php?topic=1406.msg120007#msg120007
3. ' using OPTION _EXPLICIT in Blackjack I found a crucial mistake now it coalesces even better!
4.  
5. CONST xmax = 1000, ymax = 500
6.  
7. DIM SHARED f40 AS LONG 'don't have to be shared
8. SCREEN _NEWIMAGE(xmax, ymax, 32)
9. _DELAY .25
10. _SCREENMOVE _MIDDLE
11. f60 = _LOADFONT("OpenSans-ExtraBold.ttf", 60)
12. f40 = _LOADFONT("OpenSans-ExtraBold.ttf", 36)
13. COLOR , &HFF880000
14. CLS
15.  
16. coalescingText f40, _WIDTH / 2, _HEIGHT / 2, "Testing 1, 2, 3... How much can we fit?"
17. coalescingText f60, _WIDTH / 2, _HEIGHT / 4, "Bplus did it! Coalescing Text"
18.  
19. PRINT "test is done" 'check the font, autodisplay and color restoration
20. END
21.  
22. 'center the text at x, y  dimension of a white/black background space will depend on font height and width of print string
23. SUB coalescingText (fh&, xc, yc, text AS STRING)
24.     'should not change anything on main screen as we will be projecting images to it in empty area
25.     DIM oldFont&, oldBC~&, oldFC~&, olddisplay, screenshot&, w, h, temp&, yy, xx, p, i, projX, projY, loopI
26.  
27.     oldFont& = _FONT '_printwidth(s$, desth&)
28.     oldBC~& = _BACKGROUNDCOLOR
29.     oldFC~& = _DEFAULTCOLOR
30.     olddisplay = _AUTODISPLAY
31.     screenshot& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
32.     _PUTIMAGE , 0, screenshot&
33.     _FONT fh& 'get measures
34.     w = _PRINTWIDTH(text) + 40 ' create margin 20 around text
35.     h = _FONTHEIGHT(fh&) + 40
36.     'PRINT w, h    'exactly right
37.     temp& = _NEWIMAGE(w, h, 32)
38.     _DEST temp&
39.     _FONT fh&
40.  
41.     'initializing
42.     COLOR _RGB32(255, 255, 200), 0
43.     _PRINTSTRING (20, 20), text
44.     _SOURCE temp&
45.     FOR yy = 0 TO h - 1 'simply count particles
46.         FOR xx = 0 TO w - 1
47.             IF POINT(xx, yy) <> 0 THEN p = p + 1
48.         NEXT
49.     NEXT
50.     DIM x(p), y(p), dx(p), dy(p)
51.     FOR yy = 0 TO h - 1
52.         FOR xx = 0 TO w - 1
53.             IF POINT(xx, yy) <> 0 THEN
54.                 i = i + 1
55.                 x(i) = xx: y(i) = yy: dx(i) = RND * 6 - 3: dy(i) = RND * 6 - 3
56.             END IF
57.         NEXT
58.     NEXT
59.     projX = xc - .5 * w: projY = yc - .5 * h
60.     DIM coal(95) AS LONG
61.     coal(0) = _NEWIMAGE(w, h, 32)
62.     _PUTIMAGE , temp&, coal(0)
63.     'draw loop
64.     FOR loopI = 1 TO 95
65.         LINE (1, 1)-(w - 2, h - 2), _RGB32(0, 0, 0, 3 * loopI), BF
66.         LINE (0, 0)-STEP(w - 1, h - 1), _RGB32(255 - 3 * loopI, 255 - 3 * loopI, 200, 3 * loopI), B
67.         FOR i = 1 TO p
68.             x(i) = x(i) + dx(i): y(i) = y(i) + dy(i)
69.             IF x(i) < 1 OR x(i) > w - 3 OR y(i) < 1 OR y(i) > h - 3 THEN x(i) = RND * w - 1: y(i) = RND * h - 1
70.             LINE (x(i), y(i))-STEP(0, 0), _RGB32(255 - 2 * loopI, 255 - 2 * loopI, 200)
71.         NEXT
72.         coal(loopI) = _NEWIMAGE(w, h, 32)
73.         _PUTIMAGE , temp&, coal(loopI)
74.     NEXT
75.     _DEST 0
76.     FOR i = 95 TO 0 STEP -1
77.         'LINE (projx, projy)-STEP(w - 1, h - 1), &HFF000000, BF
78.         _PUTIMAGE , screenshot&, 0
79.         _PUTIMAGE (projX, projY)-STEP(w - 1, h - 1), coal(i), 0, (0, 0)-STEP(w - 1, h - 1)
80.         _FREEIMAGE coal(i)
81.         _DISPLAY
82.         _LIMIT 30
83.     NEXT
84.     'restore
85.     IF olddisplay THEN _AUTODISPLAY
86.     _FREEIMAGE temp&
87.     _FREEIMAGE screenshot&
88.     _SOURCE 0
89.     COLOR oldFC~&, oldBC~&
90.     _FONT oldFont&
91. END SUB
92.  
93.  
94.  

EDIT: adding the SUB into Blackjack using OPTION _EXPLICIT found a critical miss, fixed, and now the effect is even better!

[johnno56]

Well... I now have 'OpenSans-ExtraBold.ttf' installed on my system... lol

I have not seen text 'appear' like that before... Very cool...

[johnno56]

ps: Perhaps a slight mod of the 'limit' on line #79? Perhaps the speed of limit could be calculated from time length of each phrase? ie: The longer the phrase the quicker the 'limit'? I have no idea how to do that... just a rogue thought...

[bplus]

ps: Perhaps a slight mod of the 'limit' on line #79? Perhaps the speed of limit could be calculated from time length of each phrase? ie: The longer the phrase the quicker the 'limit'? I have no idea how to do that... just a rogue thought...

Great idea Johnno, It could easily be built into the sub from the text length, hopefully I will get a feel for timing from your latest audio's, thanks.

PS the font OpenSans-ExtraBold.ttf is same as used in last version of Blackjack same source as our Neon2.ttf. I really like that fat text!

[bplus]

Try Coalescing Code again if you checked it out already (2020-06-28 9:19 PM Ohio Time zone) found miss, fixed, and now the effect is even better!

https://www.qb64.org/forum/index.php?topic=1406.msg120007#msg120007

[johnno56]

Ok. Tried the 'second' version. Actually nicer than the first... Cool.

The font was installed because I had upgraded Linux Mint 18.1 to 19.3 and all my previous 'manually' added fonts migrated to the ether... *sigh*

[bplus]

Progress report: Bets, numbers and busts are installed and working, shaping up nicely with Dealer speaking.

Really good sound quality @johnno56

I am playing the Welcome from the splash screen and we are sort of still in the street, outside the building.

I wonder if the voice would not ask us to sit down but to write the Player name and enter.

[johnno56]

Consider it done.

Here is the basic 'Welcome' plus a few extra 'post-entry' responses.

[bplus]

Thanks @johnno56  for quick return.

It turns out that the audio is faster than the coalescing text and I have to get it started before the audio.

I am wondering if I should even keep coalescing text in. Well I will leave it for now because it's nice signal for Dealer speech. I will fiddle around with it a bit.

As I understand it sound can play and graphics can continue while sound is playing but coalescing monopolizes execution flow until it's finished. Maybe I need to play sound from a timer, let coalescing get started and set timer for .5 sec delay to play sound.