Data update
This commit is contained in:
Ingy döt Net
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
93
Task/Matrix-digital-rain/Ada/matrix-digital-rain.adb
Normal file
93
Task/Matrix-digital-rain/Ada/matrix-digital-rain.adb
Normal file
|
|
@ -0,0 +1,93 @@
|
|||
with Ada.Text_IO;
|
||||
with Ada.Numerics.Discrete_Random;
|
||||
with Ada.Strings.Fixed;
|
||||
|
||||
procedure Digital_Rain is
|
||||
type Column_Type is range 0 .. 150;
|
||||
type Row_Type is range 0 .. 25;
|
||||
type Character_Range is new Character range 'A' .. 'Z';
|
||||
subtype Delay_Range is Integer range 2 .. 6;
|
||||
|
||||
package Column_Random is new Ada.Numerics.Discrete_Random (Column_Type);
|
||||
package Row_Random is new Ada.Numerics.Discrete_Random (Row_Type);
|
||||
package Character_Random is new Ada.Numerics.Discrete_Random (Character_Range);
|
||||
package Delay_Random is new Ada.Numerics.Discrete_Random (Delay_Range);
|
||||
|
||||
Column_Generator : Column_Random.Generator;
|
||||
Row_Generator : Row_Random.Generator;
|
||||
Character_Generator : Character_Random.Generator;
|
||||
Delay_Generator : Delay_Random.Generator;
|
||||
|
||||
Esc : constant Character := Character'Val (8#33#);
|
||||
Running : Boolean := True;
|
||||
Char : Character;
|
||||
use Ada.Text_IO;
|
||||
|
||||
protected Text_Out is
|
||||
procedure Put_At (Row : Row_Type; Col : Column_Type;
|
||||
Color : Integer; Item : Character);
|
||||
end Text_Out;
|
||||
|
||||
protected body Text_Out is
|
||||
procedure Put_At (Row : Row_Type; Col : Column_Type;
|
||||
Color : Integer; Item : Character)
|
||||
is
|
||||
use Ada.Strings;
|
||||
begin
|
||||
Put (Esc & "[" &
|
||||
Fixed.Trim (Row'Image, Left) & ";" &
|
||||
Fixed.Trim (Col'Image, Left) & "H"); -- Place Cursor
|
||||
Put (Esc & "[" & Fixed.Trim (Color'Image, Left) & "m"); -- Foreground color
|
||||
Put (Item);
|
||||
end Put_At;
|
||||
end Text_Out;
|
||||
|
||||
task type Rainer;
|
||||
|
||||
task body Rainer is
|
||||
Row : Row_Type;
|
||||
Col : Column_Type;
|
||||
Del : Delay_Range;
|
||||
begin
|
||||
Outer_Loop:
|
||||
loop
|
||||
Col := Column_Random.Random (Column_Generator);
|
||||
Row := Row_Random.Random (Row_Generator);
|
||||
for Rain in reverse Boolean loop
|
||||
Del := Delay_Random.Random (Delay_Generator);
|
||||
for R in 0 .. Row loop
|
||||
if Rain then
|
||||
if R in 1 .. Row then
|
||||
Text_Out.Put_At (R - 1, Col, Color => 32, Item => Char);
|
||||
end if;
|
||||
Char := Character (Character_Random.Random (Character_Generator));
|
||||
if R in 0 .. Row - 1 then
|
||||
Text_Out.Put_At (R, Col, Color => 97, Item => Char);
|
||||
end if;
|
||||
else
|
||||
Text_Out.Put_At (R, Col, Color => 30, Item => ' ');
|
||||
end if;
|
||||
delay 0.020 * Del;
|
||||
exit Outer_Loop when not Running;
|
||||
end loop;
|
||||
end loop;
|
||||
end loop Outer_Loop;
|
||||
end Rainer;
|
||||
|
||||
Dummy : Character;
|
||||
Rainers : array (1 .. 50) of Rainer;
|
||||
begin
|
||||
Put (ESC & "[?25l"); -- Hide the cursor
|
||||
Put (ESC & "[40m"); -- Black background
|
||||
Put (ESC & "[2J"); -- Clear Terminal
|
||||
|
||||
Get_Immediate (Dummy);
|
||||
Running := False;
|
||||
delay 0.200;
|
||||
|
||||
Put (ESC & "[?25h"); -- Restore the cursor
|
||||
Put (ESC & "[0;0H"); -- Place cursor
|
||||
Put (ESC & "[39m"); -- Default foreground
|
||||
Put (ESC & "[49m"); -- Default backgound
|
||||
Put (ESC & "[2J"); -- Clear Terminal
|
||||
end Digital_Rain;
|
||||
219
Task/Matrix-digital-rain/FutureBasic/matrix-digital-rain.basic
Normal file
219
Task/Matrix-digital-rain/FutureBasic/matrix-digital-rain.basic
Normal file
|
|
@ -0,0 +1,219 @@
|
|||
//
|
||||
// MATRIX RAIN
|
||||
//
|
||||
// Using FutureBasic 7.0.34
|
||||
// August 2025, R.W.
|
||||
//
|
||||
// This code utilizes the Matrix Code
|
||||
// font which can be downloaded for
|
||||
// free at
|
||||
// https://www.1001fonts.com/matrix-code-nfi-font.html
|
||||
|
||||
begin enum 1
|
||||
_matrix
|
||||
_label
|
||||
_startBtn
|
||||
_debug
|
||||
end enum
|
||||
|
||||
CGRect r
|
||||
Int dropletHeight
|
||||
|
||||
Double Array1 (48, 100)
|
||||
Int Density, oldX, oldY
|
||||
CFStringRef UniString
|
||||
CFStringRef pop
|
||||
UInt32 IntUNI
|
||||
|
||||
Double x1, x2, x3
|
||||
Int j, i, x, y
|
||||
Int meWidth, meHeight, mf
|
||||
|
||||
Boolean running
|
||||
BlockOperationRef dCode
|
||||
OperationQueueRef cQueue
|
||||
OperationQueueRef opQueue
|
||||
|
||||
//
|
||||
// Init vars
|
||||
//
|
||||
void local fn initRain
|
||||
Random
|
||||
if Density > 100 then Density = 100
|
||||
if dropLetHeight > 45 then dropletHeight = 45
|
||||
mf = 240 / dropLetHeight
|
||||
|
||||
// this font can be downloaded from
|
||||
// https://www.1001fonts.com/matrix-code-nfi-font.html
|
||||
// (adjust size to your liking)
|
||||
|
||||
text @"Matrix Code NFI", 22, fn colorGreen
|
||||
|
||||
// If you don't have the above font, it's OK
|
||||
// you can use Menlo and it still looks OK
|
||||
//text @"Menlo", 20, fn colorGreen
|
||||
|
||||
UniString = @"Abcdefghijklmnopqrstuvwxyz0|12\3]46>^?}¬
|
||||
{~=<:<ghijklmnoqrstuvwxyzfghijklmn>^?}{~=<:<"
|
||||
|
||||
for j= 0 to Density
|
||||
for i = 0 to dropletHeight
|
||||
Array1 ( i,j ) = int(rnd(82)) //random str index
|
||||
next i
|
||||
// x coordinates are purposedly not spaced to clear a
|
||||
// character width so that some will overlap creating
|
||||
// a 3D and trailing effect due to antialiasing
|
||||
Array1 (47,j) = int(rnd(meWidth)+ 20) //random x
|
||||
Array1 (46,j) = int(rnd(meHeight) + 20) //random y
|
||||
// Y variance for speed differential
|
||||
Array1 (48,j) = int(rnd(20) + rnd(20) + 20)
|
||||
next j
|
||||
// ensure we have a stream on the window edges
|
||||
Array1(47,j-1) = meWidth - 30
|
||||
Array1(47,0) = 10
|
||||
end fn
|
||||
|
||||
//
|
||||
// The Matrix Rain
|
||||
//
|
||||
void local fn Rain
|
||||
cls //destroy what we've drawn
|
||||
for j = 0 to Density
|
||||
x2 = 1
|
||||
oldY = Array1 (48, j) + Array1( 46, j)
|
||||
for i = 0 to dropletHeight
|
||||
x = Array1(47,j)
|
||||
y = oldY
|
||||
if x > meWidth - 20 or y > meHeight - 80
|
||||
// out of bounds
|
||||
else
|
||||
print % (x, y)"";
|
||||
text ,,fn ColorWithRgb(0,255-(x2 * mf),0,1.0)
|
||||
if I = 20 // blink effect
|
||||
if int(rnd(10)) = 5
|
||||
text ,, fn ColorWhite
|
||||
else
|
||||
text ,, fn ColorGreen
|
||||
end if
|
||||
end if
|
||||
print mid(UniString,(Array1(i,j)),1);
|
||||
oldY = oldY + 16
|
||||
if oldY > meHeight then oldY = 0
|
||||
x2 = x2 + 1
|
||||
end if
|
||||
next i
|
||||
|
||||
Array1(46,j) = Array1(46,j) + Array1 (48, j) //20
|
||||
if Array1(46,j) > meHeight -60
|
||||
Array1(46,j) = -400
|
||||
end if
|
||||
next j
|
||||
end fn
|
||||
|
||||
//
|
||||
// Executed as long as we are running
|
||||
//
|
||||
local fn tillTheCowsComeHome (dPtr as Ptr)
|
||||
while running
|
||||
dispatchmain
|
||||
fn Rain
|
||||
dispatchend
|
||||
delay 110
|
||||
wend
|
||||
// callback canned
|
||||
OperationCancel (dCode )
|
||||
end fn
|
||||
|
||||
// Begin animation
|
||||
void local fn Animate
|
||||
// setup dispatch queue w/ callback
|
||||
dCode = fn BlockOperationWithCallback( @fn tillTheCowsComeHome, NULL )
|
||||
cQueue = fn OperationQueueInit // Init queue
|
||||
OperationQueueSetMaxConcurrentOperationCount( cQueue, 1 ) // serial only
|
||||
OperationQueueAddOperations( cQueue, @[dCode], NO ) // add to queue
|
||||
end fn
|
||||
|
||||
//
|
||||
// Create main window
|
||||
//
|
||||
void local fn BuildWindow
|
||||
dim as SInt32 wndStyleMask
|
||||
wndStyleMask = NSWindowStyleMaskTitled
|
||||
wndStyleMask += NSWindowStyleMaskClosable
|
||||
wndStyleMask += NSWindowStyleMaskResizable
|
||||
r = fn CGRectMake( 0, 0, 960, 626 )
|
||||
window _matrix, @" Matrix Rain ", r, wndStyleMask
|
||||
meWidth = window(_windowWidth)
|
||||
meHeight = window(_windowHeight)
|
||||
CGSize winMin
|
||||
WinMin.width = 390
|
||||
WinMin.height = 390
|
||||
WindowSetBackgroundColor( _matrix, fn ColorBlack )
|
||||
WindowSetContentMinSize(_matrix,winMin)
|
||||
WindowSubclassContentView ( _matrix )
|
||||
ViewSetAutoresizingMask( _matrix, NSViewWidthSizable + NSViewHeightSizable )
|
||||
windowcenter (_matrix)
|
||||
WindowMakeFirstResponder( _matrix, _windowContentViewTag )
|
||||
ViewSetAcceptsFirstResponder( _windowContentViewTag, _true )
|
||||
ViewSetNeedsDisplay( _windowContentViewTag )
|
||||
end fn
|
||||
|
||||
local fn RefreshScreen
|
||||
//if running then OperationCancel (dCode )
|
||||
meWidth = window(_windowWidth)
|
||||
meHeight = window(_windowHeight)
|
||||
button _startBtn, YES, , @"Start", (meWidth/2-40, 8 ,81,32),,, _matrix
|
||||
fn initRain
|
||||
end fn
|
||||
|
||||
//
|
||||
// App Event handler
|
||||
//
|
||||
void local fn DoAppEvent( ev as long )
|
||||
select ( ev )
|
||||
case _appWillTerminate
|
||||
if running then OperationCancel (dCode )
|
||||
end select
|
||||
end fn
|
||||
|
||||
//
|
||||
// Event handler
|
||||
//
|
||||
void local fn DoDialog( ev as long, tag as long, wnd as long, obj as CFTypeRef )
|
||||
select ( ev )
|
||||
case _btnClick
|
||||
select ( tag )
|
||||
case _startBtn
|
||||
running = not(running)
|
||||
if running
|
||||
button _startBtn, YES,,@" Stop "
|
||||
fn Animate
|
||||
else
|
||||
button _startBtn, YES,,@" Start "
|
||||
end if
|
||||
end select //tag
|
||||
case _windowDidEndLiveResize
|
||||
fn RefreshScreen
|
||||
case _windowWillResize
|
||||
// fn RefreshScreen
|
||||
case _windowShouldClose
|
||||
if running then OperationCancel (dCode )
|
||||
end
|
||||
end select //ev
|
||||
end fn
|
||||
//=================================================
|
||||
|
||||
on dialog fn DoDialog
|
||||
on appevent fn DoAppEvent
|
||||
|
||||
fn BuildWindow
|
||||
running = _False
|
||||
|
||||
dropletHeight = 26
|
||||
Density = 70
|
||||
|
||||
fn refreshScreen
|
||||
|
||||
HandleEvents
|
||||
|
||||
//=================================================
|
||||
Loading…
Add table
Add a link
Reference in a new issue