Drawing?

[Dr_Davenstein]

Yeah, it's called pixel art. Here's something to practice with. Maybe try making it more advanced.

Code:

Screen 13


Do
  Inky$=Inkey$  
    If Inky$="4" Then X=X-1
    If Inky$="6" Then X=X+1
    If Inky$="8" Then Y=Y-1
    If Inky$="2" Then Y=Y+1

    If X<0 Then X=0
    if X>319 Then X=319
    If Y<0 Then Y=0
    if Y>199 Then Y=199
    
    Colour = Colour+1
    If Colour>255 Then Colour = 1
    Pset(X,Y),Colour
Loop until Inky$=Chr$(27)

[Dio]

Yeah, it's called pixel art. Here's something to practice with. Maybe try making it more advanced.

Code:

Screen 13


Do
  Inky$=Inkey$  
    If Inky$="4" Then X=X-1: colour = colour + 1
    If Inky$="6" Then X=X+1: colour = colour + 1
    If Inky$="8" Then Y=Y-1: colour = colour + 1
    If Inky$="2" Then Y=Y+1: colour = colour + 1

    If X<0 Then X=0
    if X>319 Then X=319
    If Y<0 Then Y=0
    if Y>199 Then Y=199
    
    If Colour>255 Then Colour = 1
    Pset(X,Y),Colour
Loop until Inky$=Chr$(27)

i like this better
------------------------------------
edit: hey, look at what i did:

[syntax="qbasic"]SCREEN 13
FOR y = 0 TO 199
SELECT CASE dir
CASE 0
FOR x = 0 TO 319
c = c + 1: IF c = 256 THEN c = 16
PSET (x, y), c
NEXT
dir = 1
CASE 1
FOR x = 319 TO 0 STEP -1
c = c + 1: IF c = 256 THEN c = 16
PSET (x, y), c
NEXT
dir = 0
END SELECT
c = c + y
DO
IF c > 255 THEN c = c - 255
LOOP UNTIL c < 256
NEXT
SLEEP[/syntax]

[Pyrokid]

Pixel art eh? Check this:

Code:

SCREEN 12
PRINT "Press space to continue to the next design"
PRINT "Press Esc to quit"
DO: LOOP WHILE INKEY$ = ""
1
CLS b
x = 0: y = 0
xadj = 1: yadj = 1

xchg = INT(RND * 20)
ychg = INT(RND * 20)
negx = INT(RND * -20)
negy = INT(RND * -20)

DO
a$ = INKEY$
color1 = INT(RND * 16)
PSET (x, y), color1

IF x <= 0 THEN xadj = xchg
IF x >= 640 THEN xadj = negx
IF y <= 0 THEN yadj = ychg
IF y >= 480 THEN yadj = negy
x = x + xadj: y = y + yadj
IF a$ = CHR$(27) THEN END
IF a$ = " " THEN EXIT DO
LOOP
GOTO 1

[Dr_Davenstein]

Guys, I was just trying to show him the most simple way to allow a user to draw on the screen, not start a competition. :lol:

[arpgme]

Thanx

[Pyrokid]

Just an example of what you can do. Plus i thought it was really cool too.

[axipher]

that is awsome pyrokid, most impressive pwnage

[Z!re]

THIS TOPIC IS 4 MONTHS OLD!


EDIT: Why do I remember arpgme.. what did he do? I recall him doing something... what was it?

[Anonymous]

hey *everyone* reads thru old qbn when they first come here ;p


and he was like 'SCREW YOU FOR BANNING ME I'LL HUNT YOU DOWN' (not rly)

[Deleter]

EDIT: Why do I remember arpgme.. what did he do? I recall him doing something... what was it?

maybe signing up for multiple names after being banned and posting like crazy.... :roll: