Matrix digital rain: Difference between revisions

=={{header|Ada}}==

Should work with ANSI terminals.

with Ada.Numerics.Discrete_Random;

with Ada.Strings.Fixed;

Put (ESC & "[49m"); -- Default backgound

Put (ESC & "[2J"); -- Clear Terminal

 

=={{header|Batch File}}==

@echo off

cls

 

=={{header|C}}==

 

And here's the code :

/**

* Loosely emulates the "digital rain" effect from The Matrix.

return 0;

}

===Microsoft Windows console version===

====Single threaded====

{{Works with|Microsoft Visual Studio C}}

*

* Digital ASCII rain - the single thread variant.

 

return 0;

 

====Multiple threads====

{{Works with|Microsoft Visual Studio C}}

*

* Digital ASCII rain - multithreaded.

 

return 0;

 

====Fibers====

{{Works with|Microsoft Visual Studio C}}

*

* Digital ASCII rain - multithreaded.

 

return 0;

 

=={{header|Common Lisp}}==

Runs in the terminal (using the Ncurses C library and the croatoan Lisp wrapper).

 

(defun matrix-digital-rain ()

(with-screen (scr :input-echoing nil :input-blocking nil :cursor-visible nil)

(setf (frame-rate scr) 20)

(run-event-loop scr))))

 

{{out|Sample output}}

 

Rather than pressing Ctrl+C to stop the program, I've added code so that it stops automatically after 1 minute and restores the terminal to its original state.

 

import (

}

}

 

=={{header|Julia}}==

The font used is based on Leonardo da Vinci's notebooks. The font is freely obtainable at https://www.wfonts.com/font/leonardos-mirrorwriting.

import Base.iterate, Base.IteratorSize, Base.IteratorEltype

 

 

digitalrain()

 

=={{header|Locomotive Basic}}==

 

20 dim p(20):mm=5:dim act(mm):for i=1 to mm:act(i)=rnd*19+1:next

30 md=mm-2:dim del(md):for i=1 to md:del(i)=rnd*19+1:next

90 p(x)=p(x)+1:if p(x)=25 then p(x)=0:del(i)=rnd*19+1

100 next

The program above runs at an acceptable speed on a 4 MHz Z80, but can be made much faster by using the [https://benchmarko.github.io/CPCBasic/cpcbasic.html CPCBasic JavaScript emulator]. CPCBasic also adds an 80x50 display mode ("mode 3") which real CPC hardware lacks. Changing screen size from 20x25 to 80x50 and adding a delay with "frame" in line 100 results in a far more impressive display in CPCBasic:

20 dim p(80):mm=12:dim act(mm):for i=1 to mm:act(i)=rnd*79+1:next

30 md=mm-2:dim del(md):for i=1 to md:del(i)=rnd*79+1:next

90 p(x)=p(x)+1:if p(x)=50 then p(x)=0:del(i)=rnd*79+1

100 next:frame

 

=={{header|Nim}}==

{{trans|C}}

{{libheader|nim-ncurses}}

import ncurses

 

refresh()

 

 

=={{header|Perl}}==

Follow the bouncing Neo!

 

 

use strict;

';

}

===Another Perl Solution===

 

use strict; # http://www.rosettacode.org/wiki/Matrix_Digital_Rain

@queue = grep $_->[2] > 0 && $_->[1] < $rows * 20, @queue, @new;

$mw->after( 63, \&step );

 

=={{header|Phix}}==

{{libheader|Phix/pGUI}}

 

=={{header|Python}}==

import curses

import random

except KeyboardInterrupt as err:

curses.endwin()

 

=={{header|Racket}}==

{{trans|Raku}}

 

 

(define codes '((Α Π) (Ѐ ѵ) (Ҋ ԯ) (Ϣ ϯ) (ｦ ﾝ) (Ⲁ ⳩) (∀ ∗) (℀ ℺) (⨀ ⫿)))

(display "\e[0m")

(display "\e[H\e[J\e[?25h"))])

 

=={{header|Raku}}==

The "lightning" effect is actually a bug, but I liked it so I kept it.

 

signal(SIGINT).tap: { print "\e[0m", "\n" xx 50, "\e[H\e[J\e[?25h"; exit(0) }

 

@offset = (^@offset).map: {(@offset[$_] - ($_ % 3)) % +@palette};

}

 

{{out|Sample output}}

Digital rain note: &nbsp; This REXX program favors the use of Latin letters &nbsp; (both lower and uppercase) &nbsp; letters

over all others characters (glyphs) by a 25% factor.

signal on halt /*allow the user to halt/stop this pgm.*/

parse arg pc seed . /*obtain optional arguments from the CL*/

fogger: do f=1 for sw /*display a screen full of rain streams*/

if substr(cloud, f, 1) \== ' ' then cloud= overlay( drop(), cloud, f)

Programming note:

 

├ ╚ K & G R ╗

</pre>

 

=={{header|Yabasic}}==

backcolor 0,0,0

clear window

color r,g,b

text x*12.8,y*12.8,chr$(c)

 

=={{header|zkl}}==

{{trans|Raku}}

[0x0391..0x03a0], [0x03a3..0x0475], [0x0400..0x0475],

[0x048a..0x052f], [0x03e2..0x03ef], [0x2c80..0x2ce9],

}

return(o,s,fg);

Offsite Image: [http://www.zenkinetic.com/Images/RosettaCode/matrixRainDance.jpg Matrix rain dance]

 

The next step for this routine would be a way to randomise the length of the character trails (currently fixed at 12).

 

20 BORDER 0: POKE 23624,4: POKE 23693,0: CLS: REM easier than "bright 0: flash 0: ink 0: paper 0"

30 PRINT INK 4; FLASH 1;"Initialising": GO SUB 9000: LET m=USR 62000: CLS: REM set up and run machine code; USR is the call function

9960 DATA "eof"

 

 

Offsite Image: [https://imgur.com/sz6YkfI Spectrum rain at imgur]