TopN = 52
ReDim n(1 To TopN) 'repeatable for ref
For i = 1 To TopN
n(i) = i
Next
For i = TopN To 2 Step -1 ' Fisher Yates Shuffle of N Items
Swap n(i), n(Int(Rnd * (i) + 1))
Next
For i = 1 To TopN
Print " "; i; "-"; n(i); Chr$(9);
Next
Print
Ascii card drawing routine and a simple deck shuffling routine. I'm using the 8x8 font set but it's in "amazing" RGB32 graphics!
Code: (Select All)
'drawcards v1
'ascii playing cards but for 32 bit graphics
'by James D. Jarvis
'use as you wish
Screen _NewImage(480, 288, 32)
_Font 8
_FullScreen
Color _RGB32(5, 5, 5), _RGB32(250, 250, 250)
_ControlChr Off
Dim Shared card$(0 To 52)
_Title "DRAWCARDS v1.0"
buildcards 'got to build the deck
Do
shuffledeck 'shuffle the whole deck
'just a demo of the first 21 cards laid out after shuffling hte deck
drawcard 0, 10, card$(1)
drawcard 50, 10, card$(2)
drawcard 100, 10, card$(3)
drawcard 150, 10, card$(4)
drawcard 200, 10, card$(5)
drawcard 250, 10, card$(6)
drawcard 300, 10, card$(7)
_PrintString (10, 250), "Press any key to reshuffle, <esc> to quit"
Do
_Limit 60
kk$ = InKey$
Loop Until kk$ <> ""
Loop Until kk$ = Chr$(27)
Sub buildcards
'build a deck of cards
Dim cc$(13)
Dim st$(4)
cc$(1) = "A": cc$(10) = "T": cc$(11) = "J": cc$(12) = "Q": cc$(13) = "K"
cc$(2) = "2": cc$(3) = "3": cc$(4) = "4": cc$(5) = "5": cc$(6) = "6": cc$(7) = "7": cc$(8) = "8": cc$(9) = "9"
st$(1) = "H": st$(2) = "C": st$(3) = "S": st$(4) = "D"
c = 0
For ss = 1 To 4
For rr = 1 To 13
c = c + 1
card$(c) = cc$(rr) + st$(ss)
Next rr
Next ss
End Sub
Sub shuffledeck
'shuffle the whole deck by randomly swapping pairs of cards
For x = 1 To 676 'this should sort the deck enoguh
a = Int(1 + Rnd * 52)
Do
b = Int(1 + Rnd * 52)
Loop Until a <> b
Swap card$(a), card$(b)
Next x
End Sub
' Audio presentation of numbers.bas for QB64 fork (B+=MGA) 2017-09-20
' Using Owens 2X Deluxe Mod
_Title "Audio Presentation of Numbers as Primes = 0 or First Factor"
_Define A-Z As _INTEGER64
Option Base 1
Common Shared ff(), topN
topN = 1000000
testlimitN = Sqr(topN)
Dim ff(topN + 30)
For i = 0 To topN Step 30
ff(i + 2) = 2: ff(i + 3) = 3: ff(i + 4) = 2: ff(i + 5) = 5: ff(i + 6) = 2: ff(i + 8) = 2: ff(i + 9) = 3
ff(i + 10) = 2: ff(i + 12) = 2: ff(i + 14) = 2: ff(i + 15) = 3: ff(i + 16) = 2: ff(i + 18) = 2
ff(i + 20) = 2: ff(i + 21) = 3: ff(i + 22) = 2: ff(i + 24) = 2: ff(i + 25) = 5
ff(i + 26) = 2: ff(i + 27) = 3: ff(i + 28) = 2: ff(i + 30) = 2
Next
ff(2) = 0: ff(3) = 0: ff(5) = 0
pattern(1) = 4: pattern(2) = 2: pattern(3) = 4: pattern(4) = 2
pattern(5) = 4: pattern(6) = 6: pattern(7) = 2: pattern(8) = 6
pcand = 7: patternI = 0
While pcand < testlimitN
If ff(pcand) = 0 Then
i = pcand * pcand
patternI2 = patternI
Do
If ff(i) = 0 Then ff(i) = pcand
patternI2 = patternI2 + 1
If patternI2 = 9 Then patternI2 = 1
i = i + pattern(patternI2) * pcand
If i > topN Then Exit Do
Loop
End If
patternI = patternI + 1
If patternI = 9 Then patternI = 1
pcand = pcand + pattern(patternI)
Wend
For i = 2 To topN
Cls
Print i, ff(i)
If ff(i) = 0 Then Sound 137, 2 Else Sound 137 + (ff(i) Mod 30) * 10, 2 - ff(i) * .001
_Limit 60
Next
Well here it is, musak! But this is just one example. If allowed it plays five songs at a time, each song is about a minute long. Press [ESC] key to leave.
Code: (Select All)
'by mnrvovrfc 18-June-2023
'requires QB64 Phoenix Edition v3.8 or later
OPTION _EXPLICIT
REDIM scales(1 TO 1) AS STRING
DIM sequ(1 TO 2, 1 TO 20) AS INTEGER
DIM SHARED thiscale(1 TO 5) AS INTEGER, altscale(1 TO 5) AS INTEGER
DIM AS INTEGER i, lscales, song, si, so, u, basenote, numnote, athird
DIM AS INTEGER down
DIM e$
RANDOMIZE TIMER
RESTORE scaleslist
READ e$
DO UNTIL e$ = "END"
lscales = lscales + 1
IF lscales > 1 THEN
REDIM _PRESERVE scales(1 TO lscales) AS STRING
END IF
scales(lscales) = e$
READ e$
LOOP
PRINT "Now if only we have some animation!"
_TITLE "Press [ESC] to quit, [SPACE] for next song."
FOR song = 1 TO 5
PRINT: PRINT "Song"; song
u = Rand(18, 24) * 2
basenote = u
down = 0
si = Random1(lscales)
DO
so = Random1(lscales)
LOOP WHILE si = so
thiscale(1) = basenote
FOR i = 1 TO 4
basenote = basenote + VAL(MID$(scales(si), i, 1))
if basenote > 84 then down = 12
thiscale(i + 1) = basenote
NEXT
for i = 1 to 5
thiscale(i) = thiscale(i) - down
next
basenote = u
down = 0
altscale(1) = basenote
FOR i = 1 TO 4
basenote = basenote + VAL(MID$(scales(so), i, 1))
if basenote > 84 then down = 12
altscale(i + 1) = basenote
NEXT
for i = 1 to 5
altscale(i) = altscale(i) - down
next
DO WHILE PLAY(0) > 0
_LIMIT 600
IF _KEYDOWN(32) THEN EXIT DO
IF _KEYDOWN(27) THEN EXIT DO
LOOP
IF _KEYDOWN(27) THEN EXIT FOR
DO : LOOP WHILE _KEYDOWN(32)
NEXT 'song
SYSTEM
scaleslist:
DATA "3334","3344","3444","3445","3454","3545","4545","4543","3456","4565","4546"
DATA "4556","4666","5666","5444","5334","5355","5463","6444","6445","6366","6463"
DATA "END"
FUNCTION en$ (topval AS INTEGER)
en$ = "N" + _TRIM$(STR$(thiscale(Random1(topval))))
END FUNCTION
FUNCTION enft$ (fromval AS INTEGER, totoval AS INTEGER)
enft$ = "N" + _TRIM$(STR$(thiscale(Rand(fromval, totoval))))
END FUNCTION
FUNCTION anft$ (fromval AS INTEGER, totoval AS INTEGER)
anft$ = "N" + _TRIM$(STR$(altscale(Rand(fromval, totoval))))
END FUNCTION
FUNCTION Rand& (fromval&, toval&)
DIM sg%, f&, t&
IF fromval& = toval& THEN
Rand& = fromval&
EXIT FUNCTION
END IF
f& = fromval&
t& = toval&
IF (f& < 0) AND (t& < 0) THEN
sg% = -1
f& = f& * -1
t& = t& * -1
ELSE
sg% = 1
END IF
IF f& > t& THEN SWAP f&, t&
Rand& = INT(RND * (t& - f& + 1) + f&) * sg%
END FUNCTION
FUNCTION Random1& (maxvaluu&)
DIM sg%
sg% = SGN(maxvaluu&)
IF sg% = 0 THEN
Random1& = 0
ELSE
IF sg% = -1 THEN maxvaluu& = maxvaluu& * -1
Random1& = INT(RND * maxvaluu& + 1) * sg%
END IF
END FUNCTION
One fault with this program is that it doesn't play phrases (or "hooks", don't know how to say it out of the popular music industry) so one could recognize which song it is LOL. This program creates music which is too random. I programmed the "phrases" thing half-successfully with my Lua script for "1bitr". With "phrases" this program could make a good companion to bplus' program indicated in this thread:
Purposely I set the songs playing fairly fast, ie. using "L32" instead of "L16" that I preferred, however PLAY statement doesn't allow tempos higher than 255. The logic of this program isn't very good for computing music with lengths and amplitude, which could be improved.
To customise the message displayed in the Marquis:
The message displayed in the marquis can be set via a key-value (the key = text) pair provided in the "query string" part added to the URL. For example:
Code: (Select All)
https://basicanywheremachine.neocities.org/Test/Horizontal%20Marquis.prod.run?text=How's she goin', buddy?
To use this program as a "service" for some website or locally-stored HTML files:
A BAM program exported to a single HTML file is very convenient for deploying, whether that be to a web server or file hosting service (whether outside your firewall or inside your firewall), or to any local storage device. Everything is self-contained in the one file, ready to go for online/offline access.
Click on the "Run the marquis program" link above.
(Chrome web browser) For the browser tab/window opened, find your browser's "Save page as" menu item, and save the webpage as HTML.
You'll want that webpage saved to a spot available to your website or locally-stored HTML.
Here's a template for what you need to use the marquis program as a "service":
Code: (Select All)
<iframe src="https://basicanywheremachine.neocities.org/Test/Horizontal%20Marquis.prod.run.html?text=How' she goin', buddy?" width=300px height=200px>
</iframe>
I've made a demo of the physics engine ("fzxNGN") I've been working for the last few years. Its a port of the Impulse engine written by Randy Gaul. Its been 100% ported to QB64 and not a 3rd part wrapper. Some may recognize the demo from a few years back, I've simply updated it to the newer engine, and changed some of the graphics.
Inside the compressed file you will find two directories, "fzxNGN_BASE_v2" and "fzxDemo" The "fzxNGN_BASE" is the core of the engine. The actual demo is located in "fzxDemo/fzxDemo.bas". Hopefully, all you have to do is run the "fzxDemo.bas" to play with the demo. I develop in Linux, so there may be some changes needed for Windows and Mac. And the speed of your machine may vary from mine so adjusting the dt(delta time) and iterations may help. My machine is probably old enough to drive a car in my state.
Code: (Select All)
DIM AS LONG iterations: iterations = 2
DIM SHARED AS DOUBLE dt: dt = 1 / 60
The idea of this mini game is to cross the sketchy bridge and then make the loop-to-loop. Beware the sketchy bridge will break. The more red the bridge is, the more stress its under. This was in part a test of a game mechanic I was kicking around for a driving/platformer.
Current features:
Rigid body simulation
Circle and polygon primitives
Joint simulation
Camera library to help with large play fields
Input Library
Finite State machine helper functions
Perlin noise library
XML parsing library - (not 100% and not fully integrated)
LERP functions
FPS helper functions
Countless vector, matrix math functions
Caveats:
Not documented
Work in progress
Not fully optimized
Possibility of vestigial code, or code that has yet to be updated.
When time permits, I'll work on proper documentation.
As far as license goes:
Quote:This software is provided 'as-is', without any express or implied warranty. In no event will the authors be held liable for any damages arising from the use of this software. Permission is granted to anyone to use this software for any purpose, including commercial applications, and to alter it and redistribute it freely.
I will try to use this thread to post more updates for the engine.
I'm experimenting with the PLAY function, and am (once again) confused with one section, the P (for silent pause).
With the string below, I expected to play four notes of staccato duration, four of normal, and four of legato.
It would then pause for 32 quarter-notes and then repeat. But the P32 seems to be ignored.
Pauses of up to 64 quarter-notes are permitted, so why does this happen?
Code: (Select All)
Play "MS CCCC P8 MN CCCC P8 ML CCCC P32 MS CCCC P8 MN CCCC P8 ML CCCC"
InForm-PE is a GUI engine and WYSIWYG interface designer for QB64-PE. It's a fork of InForm, but without any dependencies on falcon.h. All falcon.h function calls have been replaced by the new _U* family of font functions in QB64-PE that were introduced in v3.7.0 and v3.8.0. As such, the minimum required version of QB64-PE that this works with is v3.8.0. This also means that the entire InFrom-PE library is now in pure QB64-PE code.
There are some examples that are included in the "examples" directory to get you started. Also, the old InFrom wiki has been copied here: Home · a740g/InForm-PE Wiki (github.com). Note that the wiki needs work. Pull requests are welcome.
I may not be actively developing new features for this. However, please feel free to submit bug reports and suggestions here: Issues · a740g/InForm-PE (github.com). Pull requests are also welcome.
![[Image: screenshot.png]](https://i.ibb.co/xFcZvqx/screenshot.png)
![[Image: Screenshot-2023-06-16-040215.png]](https://i.ibb.co/N9xp1wX/Screenshot-2023-06-16-040215.png)
![[Image: Screenshot-2023-06-16-035222.png]](https://i.ibb.co/Lp0FWcz/Screenshot-2023-06-16-035222.png)
![[Image: Screenshot-2023-06-16-035303.png]](https://i.ibb.co/7n3CWg4/Screenshot-2023-06-16-035303.png)
![[Image: Screenshot-2023-06-16-035340.png]](https://i.ibb.co/z7kVbyH/Screenshot-2023-06-16-035340.png)
![[Image: Screenshot-2023-06-16-035435.png]](https://i.ibb.co/3NVzdN4/Screenshot-2023-06-16-035435.png)
![[Image: Screenshot-2023-06-16-035530.png]](https://i.ibb.co/rM5GQzw/Screenshot-2023-06-16-035530.png)
