Post Reply 
Plotting on The HP Prime.
07-19-2021, 08:40 PM
Post: #6
RE: Plotting on The HP Prime.
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.
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Plotting on The HP Prime. - matalog - 07-15-2021, 11:59 PM
RE: Plotting on The HP Prime. - ijabbott - 07-18-2021, 12:33 PM
RE: Plotting on The HP Prime. - Wes Loewer - 07-18-2021, 04:05 PM
RE: Plotting on The HP Prime. - albud44 - 07-18-2021, 06:12 PM
RE: Plotting on The HP Prime. - albud44 - 07-19-2021, 10:40 AM
RE: Plotting on The HP Prime. - matalog - 07-19-2021 08:40 PM



User(s) browsing this thread: 1 Guest(s)