Hasnt been much activity on this board in awhile so I thought it was time to do something about that. This is a play on the minimum lines of source code theme that has been done before. This time the aim was to get a demo effect happening in no more than 256 bytes of source code. To start with I only did a simple paralax starfeild. The stars are coloured based on their distance. Tricks that have been used include -
- using a colon ':' instead of a newline
- using line numbers instead of labels
- using single charictors instead of proper array / variable names
- assigning a multi digit value to a variable (s=511) saves bytes if value is used often
tricks that couldnt be used this time -
- not creating a newline for each label (works on the ps2 but breaks in the emulator)
- using a data statement with a read statement can save bytes when many variables need to be declared
- removing all comments (I have 6 bytes left over I used them for my signature)
- removing clear screen and double buffering
well here is the source code unrolled for readability the attached file is crammed onto fewer lines to fit into the 256 byte limit
#R_S
Open Window 1,1:
s=511:
Dim x(s),y(s),z(s):
For a=0 To s:
x(a)=Ran(s):
y(a)=Ran(s):
z(a)=Ran(3)+1:
Next
0 setdispbuf d:
d=1-d:
setDrawBuf d:
Clear Window:
For a=0 To s:
x(a)=And(x(a)+z(a),s):
c=64*z(a):
SetRGB 1,c,c,c:
Fill Circle x(a)*1.3,y(a),z(a):
Next:
Goto 0
