Plotting on The HP Prime.

[matalog]

I have been exploring a part of the HP Prime that I guess makes it unique, and I will share the program that made this plot in this thread if anyone wants to know. In the meantime, can anyone guess what I may have used to create this plot, it was created by a program, with nothing input from outside the device, it only uses the HP Prime and it's abilities?

The image is attached.

[ijabbott]

Is it a plasma fractal?

[Wes Loewer]

(07-18-2021 12:33 PM)ijabbott Wrote:  Is it a plasma fractal?

That's just what I was going to guess.

[albud44]

(07-15-2021 11:59 PM)matalog Wrote:  I have been exploring a part of the HP Prime that I guess makes it unique, and I will share the program that made this plot in this thread if anyone wants to know. In the meantime, can anyone guess what I may have used to create this plot, it was created by a program, with nothing input from outside the device, it only uses the HP Prime and it's abilities?

The image is attached.

Hello,

I'm very interesting.

[albud44]

Oups, m'y english is Bad.

I'm interested.

[matalog]

I used this program, although it has been edited a few times since that particular result.

Changing most of the values will change the output considerably.

Code:

EXPORT Rndrw2()
BEGIN
RECT(RGB(0,0,0,0));
RANDSEED(1);
  LOCAL R,X,Y,COL,XO,YO,GRY;
LOCAL J1,J2,J3;
X:=160;Y:=120;  
    FOR A FROM 1 TO 100000000 DO
  R:=RANDINT(1,4);
XO:=X;YO:=Y;
IF R=1 THEN X:=X+1; END;
IF R=2 THEN X:=X-1; END;
IF R=3 THEN Y:=Y+1; END;
IF R=4 THEN Y:=Y-1; END;
IF X>320 OR X<0 THEN X:=XO;END;
IF Y>240 OR Y<0 THEN Y:=YO;END;
COL:=GETPIX_P(X,Y);
PIXON_P(X,Y,COL+50);
    END;
J:=J+1;
AFiles("Rndrw"+J+".png"):=G0;
WAIT(-1);
END;

It's basically just a 'random' plot, that limits the 'pen' from leaving the canvas.