BASIC Graphics

Re: BASIC Graphics

Fri, 20 Jun 2008 14:17:07 +0000

Sorry I meant your question about its use in Metroid Pi. Nevermind, it's unimportant.

Re: BASIC Graphics

Fri, 20 Jun 2008 14:11:54 +0000

I did and the one right before mine proves that its the same as what jzd is doing, he hasn't quite improved it yet.

Re: BASIC Graphics

Fri, 20 Jun 2008 14:10:29 +0000

I had earlier an idea for how to make a slight improvement on this method, although would require a tiny assembly subroutine. Let me go dig it up…
Here's the code (Str1 & Str2 are both 128 characters long)

:Output(1,1,Str1 :Asm(prgmZSCR :StorePic 1 :Output(1,1,Str2 :Asm(prgmZSCR :RecallPic 1

And here is the subroutine:

:AsmPrgm :214093EF7B4CFDCB :0386EF6A48C9

EDIT: The subroutine is actually quite useful for neat effects, it pastes the homescreen to the graphscreen. Credit for this goes to magicdanw (a.k.a. Daniel Wiess).

Re: BASIC Graphics

Fri, 20 Jun 2008 14:05:36 +0000

Take a look at the previous posts.

Re: BASIC Graphics

Fri, 20 Jun 2008 14:02:32 +0000

This is interesting, ASCII on the graph screen. Also I see how your overlapping the letters to make it look better by connecting them, but wasn't that done in the Metroid Pi?

Re: BASIC Graphics

Fri, 20 Jun 2008 02:43:32 +0000

I found the code for Metroid Pi.

:For(F,0,7
:Text(-1,8F,0,sub(Str1,12F+1,12
:StorePic 1
:Text(-1,8F,0,sub(Str2,12F+1,12
:RecallPic 1

(That's basically the routine)

Re: BASIC Graphics

Fri, 20 Jun 2008 02:36:27 +0000

I was wondering if there was a way to improve on that method.

Re: BASIC Graphics

Fri, 20 Jun 2008 02:11:41 +0000

This has already been implemented (albeit slightly differently) in Harrierfalcon's [Metroid Pi].

BASIC Graphics

Fri, 20 Jun 2008 02:00:03 +0000

This might be considered better graphics. It is ASCII, but it is two characters written on top of each other. Here is the code:

:"OOOOOOOOOOOOOOOOO OO OO OO OO OO OOOOOOOOOOOOOOOOO->Str1
:"πππππππππππππππππ ππ ππ ππ ππ ππ πππππππππππππππππ->Str2
:For(A,1,8
:Text(-1,0,0,sub(Str1,16(A-1)+1,16A
:StorePic1
:For(A,1,8
:Text(-1,0,0,sub(Str2,16(A-1)+1,16A
:RecallPic1
:StorePic1

Where there is a gap between characters, there should be 14 spaces. The little π's are pi's. It stores the graph screen text as a Pic, writes over it with more characters, then recalls the Pic, then stores that image as a Pic. The reason this works is that recalling a Pic writes pixels over what is on the graph screen.