PT Forum

indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia

Posted: 30th Apr 2003 17:06

hehe spacebar to shake and arrowkeys to use.

sync on : sync rate 60
dx = screen width()/2 : dy = screen height()/2 :cls rgb(192,192,192)
disable escapekey : while escapekey()=0
if upkey()=1 then dy = dy - 1
if downkey()=1 then dy = dy + 1
if leftkey()=1 then dx = dx - 1
if rightkey()=1 then dx = dx + 1
if spacekey()=1 then cls rgb(192,192,192)
ink rgb(0,0,0),1 : dot dx,dy
sync : endwhile : end

IanM Joined: 11th Sep 2002
Location: In my moon base

Posted: 30th Apr 2003 21:36

Too much time on your hands?

xtom Joined: 26th Aug 2002
Location: Ireland

Posted: 30th Apr 2003 23:28

cool

Hey Indi check out my site if you get a chance I finally put up the logo you did for me a while back.

indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia

Posted: 1st May 2003 6:34

It didnt take long to make and I saw one in a second hand shop.
Xtom is looking good mate.

Dave J Joined: 11th Feb 2003
Location: Secret Military Pub, Down Under

Posted: 3rd May 2003 15:59

Looks a sure 20 Line Challenge winner.

IanM Joined: 11th Sep 2002
Location: In my moon base

Posted: 3rd May 2003 21:01

It could be, if there was a proper 'shake' to clear the display

Here's a couple of small additions - keep the cursor inside the screen, and if you remember, you could always see the little marker that scraped the inside of the screen.

+ Code Snippet

sync on : sync rate 60
dx = screen width()/2 : dy = screen height()/2 :cls rgb(192,192,192)
disable escapekey : while escapekey()=0
if upkey()=1 and dy &gt; 0 then dy = dy - 1
if downkey()=1 and dy &lt; screen height()-1 then dy = dy + 1
if leftkey()=1 and dx &gt; 0 then dx = dx - 1
if rightkey()=1 and dx &lt; screen width()-1 then dx = dx + 1
if spacekey()=1 then cls rgb(192,192,192)
dot dx,dy,rgb(255,255,255) : sync : dot dx,dy,0
endwhile : end

Whisper Wind Joined: 5th Apr 2003
Location:

Posted: 4th May 2003 6:52

I put together a shake animation where the screen rumbles and the picture sort of fades, but it is really slow. If it were faster then it would look pretty good, but it is much too slow at the moment. How could I make it faster? Here's the code:

+ Code Snippet

sync on : sync rate 60
dx = screen width()/2 : dy = screen height()/2 :cls rgb(192,192,192)
disable escapekey : while escapekey()=0
if upkey()=1 and dy &gt; 0 then dy = dy - 1
if downkey()=1 and dy &lt; screen height()-1 then dy = dy + 1
if leftkey()=1 and dx &gt; 0 then dx = dx - 1
if rightkey()=1 and dx &lt; screen width()-1 then dx = dx + 1
if spacekey()=1 then

for y=1 to 10
if y=1 then get image 1,0,0,640,480
for x=1 to 100000
ink rgb(192,192,192),0
dot rnd(screen width()), rnd(screen height())
next x
delete image 1
get image 1,0,0,640,480
wait 100
cls rgb(192,192,192)
g#=rnd(2)
if g#=1 then m#=-1
if g#=2 then m#=1
paste image 1,rnd(10)*m#,rnd(10)*m#,
sync
if y=10 then cls rgb(192,192,192)
next y

dot dx,dy,rgb(255,255,255) : sync : dot dx,dy,0
endwhile : end

indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia

Posted: 4th May 2003 7:40

I dont think Its fair if i entered the compo so i posted it as a snippet.

Im glad it stirred a few of you up to create some additions

I had a red one as a kid

Dave J Joined: 11th Feb 2003
Location: Secret Military Pub, Down Under

Posted: 4th May 2003 16:53

I never had the luxury of having one at all lol

indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia

Posted: 5th May 2003 10:59

mine had a magnet bar u slid across so it was prolly mark 2 or something.

indi Joined: 26th Aug 2002
Location: Earth, Brisbane, Australia

Posted: 5th May 2003 10:59

and the reason why i got them mized up is because mine was called a magna doodle and not an etcha sketch.

bitJericho Joined: 9th Oct 2002
Location: United States

Posted: 5th May 2003 11:52

*shudders at the realism*

haggisman Joined: 26th Aug 2002
Location: United Kingdom

Posted: 5th May 2003 14:29

Lol heres my attempt at speeding up the shaking.

+ Code Snippet

sync on : sync rate 60 : randomize timer()
dx = screen width()/2 : dy = screen height()/2 :cls rgb(192,192,192)
max_dx=dx : max_dy=dy : min_dx=dx : min_dy=dy
disable escapekey : while escapekey()=0

if upkey()=1 and dy &gt; 0 then dy = dy - 1
if downkey()=1 and dy &lt; screen height()-1 then dy = dy + 1
if leftkey()=1 and dx &gt; 0 then dx = dx - 1
if rightkey()=1 and dx &lt; screen width()-1 then dx = dx + 1

if dx&gt;max_dx then max_dx=dx
if dy&gt;max_dy then max_dy=dy
if dx&lt;min_dx then min_dx=dx
if dy&lt;min_dy then min_dy=dy

if spacekey()=1
if dx&lt;&gt;max_dx or dx&lt;&gt;min_dx or dy&lt;&gt;min_dy or dy&lt;&gt;max_dy
make memblock from bitmap 1, 0
for shake=1 to 20

   for x=min_dx*4 to max_dx*4 step 4
      for y=min_dy to max_dy
         if rgb(192, 192, 192)&lt;&gt;rgb( memblock byte(1,(x)+((y)*2560)+12), memblock byte(1,(x+1)+((y)*2560)+12), memblock byte(1,(x+2)+((y)*2560)+12))
            if rnd(5)=5
               write memblock byte 1, (x)+((y)*2560)+12, 192
               write memblock byte 1, (x+1)+((y)*2560)+12, 192
               write memblock byte 1, (x+2)+((y)*2560)+12, 192
            endif
         endif
      next y
   next x

   make bitmap from memblock 0, 1
   get image 1,min_dx,min_dy,max_dx,max_dy, 1

   cls rgb(192,192,192)
   g#=rnd(2)
   if g#=1 then m#=-1
   if g#=2 then m#=1
   paste image 1,(rnd(3)*m#)+min_dx,(rnd(3)*m#)+min_dy

   sync
next shake
delete memblock 1

endif
endif

dot dx,dy,rgb(255,255,255) : sync : dot dx,dy,0
endwhile : end

haXor Joined: 12th May 2003
Location: United States

Posted: 20th May 2003 3:46

to fast now, not that I could do any better, but still!

<1 >

Sign In