InvisionFree - Free Forum Hosting
InvisionFree gives you all the tools to create a successful discussion community.

Learn More · Sign-up for Free
Welcome to Wee Basic. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Name:   Password:


 

 FS paint
Track this topic | Email this topic | Print this topic
putzpie
Posted: Feb 10 2008, 04:06 AM


Member


Group: Members
Posts: 26
Member No.: 2
Joined: 9-September 07
Here's somewhat of an eleboration on my "quick paint" It fills the background of both screens and then when it's done you can draw on the bottom screen and the drawing will appear on the top.

CODE

keyhide

cls1
cls0

let x=0
let y=0

for i=0 to 255
if y<191
line1 0,y,256,y,4
endif
line0 x,0,x,192,2
let y=y+1
let x=x+1
next

let a=0
while a<>203
let a=key()
let x=stx()
let y=sty()
let xt=x
let yt=y
if stt()=0
plot1 xt,yt,3
plot0 x,y,1
endif
wend

lab end:
end
Top
marovada
Posted: Feb 10 2008, 07:01 AM


Administrator


Group: Admin
Posts: 39
Member No.: 1
Joined: 7-September 07
Perhaps change "if key()=203" to "if a=203". Otherwise it checks if a key is pressed twice.

It also seems that if any key is pressed it will go past the wend statement to the end of the program. So you would need "while a<>203"
Top
putzpie
Posted: Feb 10 2008, 08:10 PM


Member


Group: Members
Posts: 26
Member No.: 2
Joined: 9-September 07
fix'd.
also you can now see what you're drawing on the bottom screen.
Top
« Next Oldest | Code Samples | Next Newest »
InvisionFree - Free Forum Hosting
InvisionFree gives you all the tools to create a successful discussion community.
Learn More · Sign-up for Free

Topic Options



Hosted for free by InvisionFree* (Terms of Use: Updated 2/10/2010) | Powered by Invision Power Board v1.3 Final © 2003 IPS, Inc.
Page creation time: 0.1051 seconds | Archive