| Re: READ issue [message #52702] |
Tue, 27 February 2007 05:14 |
Lasse Clausen
Messages: 22
Registered: August 2001
|
Junior Member |
|
|
On 27 Feb, 06:41, andrew.c...@dsto.defence.gov.au wrote:
> On Feb 25, 10:22 pm, "Lasse Clausen" <l...@lbnc.de> wrote:
>
>> Ingenious!
>
>> With the new window approach, think of all the possibilities...
>
>> I'll ditch my PhD and start a company writing games for mobile phones
>> entirely in IDL. First up: port "asciijump" (http://otak.k-k.pl/
>> asciijump/gallery.php).
>
>> Thanks for the input!
>> Lasse
>
> Hello Lasse,
>
> Well, you're easily pleased ;-)
>
> Can I come work for you on a very high salary when you finally become
> Dr Clausen?
>
> Cheers,
>
> Andrew
well, since i'll ditch my phd, i'll never be "dr. clausen"... and from
your email address i can see that you already sold your soul to the
australian military ;-) but once i score a big deal with nokia, i'll
make you an offer..
so long
lasse
|
|
|
|
| Re: READ issue [message #52704 is a reply to message #52702] |
Mon, 26 February 2007 22:41  |
Andrew Cool
Messages: 219
Registered: January 1996
|
Senior Member |
|
|
On Feb 25, 10:22 pm, "Lasse Clausen" <l...@lbnc.de> wrote:
> Ingenious!
>
> With the new window approach, think of all the possibilities...
>
> I'll ditch my PhD and start a company writing games for mobile phones
> entirely in IDL. First up: port "asciijump" (http://otak.k-k.pl/
> asciijump/gallery.php).
>
> Thanks for the input!
> Lasse
>
Hello Lasse,
Well, you're easily pleased ;-)
Can I come work for you on a very high salary when you finally become
Dr Clausen?
Cheers,
Andrew
|
|
|
|
| Re: READ issue [message #52722 is a reply to message #52704] |
Sun, 25 February 2007 04:22 |
Lasse Clausen
Messages: 22
Registered: August 2001
|
Junior Member |
|
|
Ingenious!
With the new window approach, think of all the possibilities...
I'll ditch my PhD and start a company writing games for mobile phones
entirely in IDL. First up: port "asciijump" (http://otak.k-k.pl/
asciijump/gallery.php).
Thanks for the input!
Lasse
On 24 Feb, 06:10, andrew.c...@dsto.defence.gov.au wrote:
> l...@lbnc.de wrote:
>> Hi there,
>
>> I created a game using IDL. The idea is that a horse runs along and as
>> fences come up, the user has to press "enter" for the horse to jump
>> over it. The program advances the fence up to the point where it is
>> directly in front of the horse. Then the READ procedure is use to wait
>> for the user input. Once that is entered the horse runs along until
>> the next fence comes up.
>> However, if I press enter *before* the READ procedure is called, the
>> keyboard input is (aparently) kept in the buffer and directly passed
>> to the READ routine once is *is* called. This is clearly biasing the
>> time of the run. Is there a way to avoid this?
>
> Hi,
>
> Why not put your horsey in a graphics window like this?
>
> Andrew C.
>
> pro the_race1, test=test, fences=fences
>
> device,decomp=0
> window,xs=400,ys=100
>
> length = 40
> dist = 20
> h_offset = 15
> h_len = 8
> dummy_input = ''
> started = 0
> if not(keyword_set(fences)) then fences = 8
>
> horse = make_array(3, 4, /string, value=' ')
>
> horse[0,0] = ' _ '
> horse[1,0] = ' ===/ '
> horse[2,0] = '_/___\__'
>
> horse[0,1] = ' _ '
> horse[1,1] = ' ===/ '
> horse[2,1] = '__\_/___'
>
> horse[0,2] = ' _ '
> horse[1,2] = '__===/__'
> horse[2,2] = '________'
>
> horse[0,3] = ' _ '
> horse[1,3] = ' ===/ '
> horse[2,3] = '__|__|__'
>
> if keyword_set(test) then begin
> print, strjoin(replicate('i', length),'')
> print, strjoin(replicate('i', length),'')
> print, strjoin(replicate('i', length),'')
> return
> endif
>
> world = make_array(3,length, /string, value=' ')
> world[2,0:length-2] = '_'
> world[2,length-1] = '|'
> act_fence = 1
>
> top_str = strjoin(reform(world[0,*]), '')
> mid_str = strjoin(reform(world[1,*]), '')
> bas_str = strjoin(reform(world[2,*]), '')
>
> hip = 0
> dist_count = dist
>
> while started lt 3 do begin
>
> world[0,h_offset:h_offset+h_len-1] =
> strmid(horse[0,3],indgen(h_len), 1)
> world[1,h_offset:h_offset+h_len-1] =
> strmid(horse[1,3],indgen(h_len), 1)
> world[2,h_offset:h_offset+h_len-1] =
> strmid(horse[2,3],indgen(h_len), 1)
>
> if started eq 0 then begin
> sstr = 'Ready... '
> endif else if started eq 1 then begin
> sstr = 'Steady...'
> endif else if started eq 2 then begin
> sstr = 'Go! '
> endif
>
> ; Try for a beep rather than words for countdown?
> sstr = string(7B)
>
> world[0,2:2+strlen(sstr)-1] = strmid(sstr, indgen(strlen(sstr)),1)
>
> top_str = strjoin(reform(world[0,*]), '')
> mid_str = strjoin(reform(world[1,*]), '')
> bas_str = strjoin(reform(world[2,*]), '')
>
> ; print, top_str
> ; print, mid_str
> ; print, bas_str
> ; print, '', format='(a,$)'
>
> ; Draw horsey in white
>
> xyouts,0.5,0.4,align=0.5, top_str,color = !P.Color
> xyouts,0.5,0.3,align=0.5, mid_str,color = !P.Color
> xyouts,0.5,0.2,align=0.5, bas_str,color = !P.Color
>
> ;;; print, '', format='(a,$)'
>
> if started eq 2 then break
> wait, randomu(systime)*3
>
> started = started+1
>
> endwhile
>
> stime = systime(/seconds)
> atime = systime(/seconds)
> while act_fence le fences do begin
>
> ; print time
> etime = atime-stime
> etime_str = string(etime, format='(F7.3)')
> world[0,length-7:length-1] = strmid(etime_str, indgen(7), 1)
>
> ; find fences
> bas_bak = strjoin(reform(world[2,*]), '')
> npos = -1
> pos = 0
> pos = strpos(bas_bak, '|')
> while pos ne -1 do begin
> if npos[0] eq -1 then $
> npos = pos $
> else $
> npos = [npos, pos]
> pos = strpos(bas_bak, '|', pos+1)
> endwhile
>
> sinds = where(npos ge h_offset+1 and npos lt h_offset+h_len-2)
> if sinds[0] ne -1 then hip=2
> if hip eq 2 and sinds[0] eq -1 then hip=0
>
> world[0,h_offset:h_offset+h_len-1] =
> strmid(horse[0,hip],indgen(h_len), 1)
> world[1,h_offset:h_offset+h_len-1] =
> strmid(horse[1,hip],indgen(h_len), 1)
> world[2,h_offset:h_offset+h_len-1] =
> strmid(horse[2,hip],indgen(h_len), 1)
>
> ; replace fences
> if npos[0] ne -1 then begin
> for i=0, n_elements(npos)-1 do begin
> world[2, npos] = '|'
> endfor
> endif
>
> ; Draw previous horsey in black to make him vanish
>
> xyouts,0.5,0.4,align=0.5, top_str,color = !P.background
> xyouts,0.5,0.3,align=0.5, mid_str,color = !P.background
> xyouts,0.5,0.2,align=0.5, bas_str,color = !P.background
>
> top_str = strjoin(reform(world[0,*]), '')
> mid_str = strjoin(reform(world[1,*]), '')
> bas_str = strjoin(reform(world[2,*]), '')
>
> ; print, top_str
> ; print, mid_str
> ; print, bas_str
>
> ; Draw new horsey in white
>
> xyouts,0.5,0.4,align=0.5, top_str,color = !P.Color
> xyouts,0.5,0.3,align=0.5, mid_str,color = !P.Color
> xyouts,0.5,0.2,align=0.5, bas_str,color = !P.Color
>
> oinds = where(npos eq h_offset+h_len-2)
> if oinds[0] ne -1 then begin
> read, '', dummy_input
> endif else $
> print, '', format='(a,$)'
>
> ; move the world!
> world[2,*] = shift(world[2,*], -1)
>
> ; fill up end
> dist_count = dist_count - 1
> if dist_count eq 0 then begin
> world[2,length-1] = '|'
> act_fence = act_fence + 1
> dist_count = dist
> if act_fence eq fences then begin
> dist_count = dist-2
> world[2,length-1] = 'G'
> endif
> endif else begin
> world[2,length-1] = '_'
> endelse
> ; change horse
> if hip eq 0 then hip=1 else hip=0
> atime = systime(/seconds)
> wait, .1
> endwhile
>
> end
|
|
|
|
| Re: READ issue [message #52728 is a reply to message #52722] |
Fri, 23 February 2007 22:10 |
Andrew Cool
Messages: 219
Registered: January 1996
|
Senior Member |
|
|
lasse@lbnc.de wrote:
> Hi there,
>
> I created a game using IDL. The idea is that a horse runs along and as
> fences come up, the user has to press "enter" for the horse to jump
> over it. The program advances the fence up to the point where it is
> directly in front of the horse. Then the READ procedure is use to wait
> for the user input. Once that is entered the horse runs along until
> the next fence comes up.
> However, if I press enter *before* the READ procedure is called, the
> keyboard input is (aparently) kept in the buffer and directly passed
> to the READ routine once is *is* called. This is clearly biasing the
> time of the run. Is there a way to avoid this?
Hi,
Why not put your horsey in a graphics window like this?
Andrew C.
pro the_race1, test=test, fences=fences
device,decomp=0
window,xs=400,ys=100
length = 40
dist = 20
h_offset = 15
h_len = 8
dummy_input = ''
started = 0
if not(keyword_set(fences)) then fences = 8
horse = make_array(3, 4, /string, value=' ')
horse[0,0] = ' _ '
horse[1,0] = ' ===/ '
horse[2,0] = '_/___\__'
horse[0,1] = ' _ '
horse[1,1] = ' ===/ '
horse[2,1] = '__\_/___'
horse[0,2] = ' _ '
horse[1,2] = '__===/__'
horse[2,2] = '________'
horse[0,3] = ' _ '
horse[1,3] = ' ===/ '
horse[2,3] = '__|__|__'
if keyword_set(test) then begin
print, strjoin(replicate('i', length),'')
print, strjoin(replicate('i', length),'')
print, strjoin(replicate('i', length),'')
return
endif
world = make_array(3,length, /string, value=' ')
world[2,0:length-2] = '_'
world[2,length-1] = '|'
act_fence = 1
top_str = strjoin(reform(world[0,*]), '')
mid_str = strjoin(reform(world[1,*]), '')
bas_str = strjoin(reform(world[2,*]), '')
hip = 0
dist_count = dist
while started lt 3 do begin
world[0,h_offset:h_offset+h_len-1] =
strmid(horse[0,3],indgen(h_len), 1)
world[1,h_offset:h_offset+h_len-1] =
strmid(horse[1,3],indgen(h_len), 1)
world[2,h_offset:h_offset+h_len-1] =
strmid(horse[2,3],indgen(h_len), 1)
if started eq 0 then begin
sstr = 'Ready... '
endif else if started eq 1 then begin
sstr = 'Steady...'
endif else if started eq 2 then begin
sstr = 'Go! '
endif
; Try for a beep rather than words for countdown?
sstr = string(7B)
world[0,2:2+strlen(sstr)-1] = strmid(sstr, indgen(strlen(sstr)),1)
top_str = strjoin(reform(world[0,*]), '')
mid_str = strjoin(reform(world[1,*]), '')
bas_str = strjoin(reform(world[2,*]), '')
; print, top_str
; print, mid_str
; print, bas_str
; print, '', format='(a,$)'
; Draw horsey in white
xyouts,0.5,0.4,align=0.5, top_str,color = !P.Color
xyouts,0.5,0.3,align=0.5, mid_str,color = !P.Color
xyouts,0.5,0.2,align=0.5, bas_str,color = !P.Color
;;; print, '', format='(a,$)'
if started eq 2 then break
wait, randomu(systime)*3
started = started+1
endwhile
stime = systime(/seconds)
atime = systime(/seconds)
while act_fence le fences do begin
; print time
etime = atime-stime
etime_str = string(etime, format='(F7.3)')
world[0,length-7:length-1] = strmid(etime_str, indgen(7), 1)
; find fences
bas_bak = strjoin(reform(world[2,*]), '')
npos = -1
pos = 0
pos = strpos(bas_bak, '|')
while pos ne -1 do begin
if npos[0] eq -1 then $
npos = pos $
else $
npos = [npos, pos]
pos = strpos(bas_bak, '|', pos+1)
endwhile
sinds = where(npos ge h_offset+1 and npos lt h_offset+h_len-2)
if sinds[0] ne -1 then hip=2
if hip eq 2 and sinds[0] eq -1 then hip=0
world[0,h_offset:h_offset+h_len-1] =
strmid(horse[0,hip],indgen(h_len), 1)
world[1,h_offset:h_offset+h_len-1] =
strmid(horse[1,hip],indgen(h_len), 1)
world[2,h_offset:h_offset+h_len-1] =
strmid(horse[2,hip],indgen(h_len), 1)
; replace fences
if npos[0] ne -1 then begin
for i=0, n_elements(npos)-1 do begin
world[2, npos] = '|'
endfor
endif
; Draw previous horsey in black to make him vanish
xyouts,0.5,0.4,align=0.5, top_str,color = !P.background
xyouts,0.5,0.3,align=0.5, mid_str,color = !P.background
xyouts,0.5,0.2,align=0.5, bas_str,color = !P.background
top_str = strjoin(reform(world[0,*]), '')
mid_str = strjoin(reform(world[1,*]), '')
bas_str = strjoin(reform(world[2,*]), '')
; print, top_str
; print, mid_str
; print, bas_str
; Draw new horsey in white
xyouts,0.5,0.4,align=0.5, top_str,color = !P.Color
xyouts,0.5,0.3,align=0.5, mid_str,color = !P.Color
xyouts,0.5,0.2,align=0.5, bas_str,color = !P.Color
oinds = where(npos eq h_offset+h_len-2)
if oinds[0] ne -1 then begin
read, '', dummy_input
endif else $
print, '', format='(a,$)'
; move the world!
world[2,*] = shift(world[2,*], -1)
; fill up end
dist_count = dist_count - 1
if dist_count eq 0 then begin
world[2,length-1] = '|'
act_fence = act_fence + 1
dist_count = dist
if act_fence eq fences then begin
dist_count = dist-2
world[2,length-1] = 'G'
endif
endif else begin
world[2,length-1] = '_'
endelse
; change horse
if hip eq 0 then hip=1 else hip=0
atime = systime(/seconds)
wait, .1
endwhile
end
|
|
|
|
| Re: READ issue [message #52731 is a reply to message #52728] |
Fri, 23 February 2007 09:56 |
Lasse Clausen
Messages: 22
Registered: August 2001
|
Junior Member |
|
|
On 23 Feb, 17:31, "hradilv" <hrad...@yahoo.com> wrote:
> Have you looked at using GET_KBRD?
No, I hadn't, but using
dummy_input = get_kbrd(0)
while dummy_input ne '' do dummy_input = get_kbrd(0)
oinds = where(npos eq h_offset+h_len-2)
if oinds[0] ne -1 then begin
dummy_input = get_kbrd()
endif else $
print, '', format='(a,$)'
does the trick!
Juhuu! Thanks.
Lasse
|
|
|
|
| Re: READ issue [message #52732 is a reply to message #52731] |
Fri, 23 February 2007 09:31 |
Vince Hradil
Messages: 574
Registered: December 1999
|
Senior Member |
|
|
On Feb 23, 11:06 am, l...@lbnc.de wrote:
> Hi there,
>
> I created a game using IDL. The idea is that a horse runs along and as
> fences come up, the user has to press "enter" for the horse to jump
> over it. The program advances the fence up to the point where it is
> directly in front of the horse. Then the READ procedure is use to wait
> for the user input. Once that is entered the horse runs along until
> the next fence comes up.
> However, if I press enter *before* the READ procedure is called, the
> keyboard input is (aparently) kept in the buffer and directly passed
> to the READ routine once is *is* called. This is clearly biasing the
> time of the run. Is there a way to avoid this?
>
> If that all does not make much sense, do the following:
> 1) save the attached source on your computer
> 2) start IDL, make sure you are using the command line version, not
> the IDE
> 3) compile it and run it with the "test" keyword set, i.e:
> Go > .r the_race
> IDL: Compiled module: THE_RACE.
> Go > the_race, /test
> iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
> iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
> iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
> Go >
> Now adjust the size of the shell window so that you can only see the
> i's and the command input (40x4 characters). Then type "the_race".
> 4) Enjoy!
>
> I have only tested this under UNIX, I do not know if it'll work under
> WINDOWS. It does not work in the IDE because the output window does
> not use a fixed width font.
>
> Also, it would be nices to code this using the "backspace" character,
> i.e. overwriting previously written output. In order to achieve this,
> one needs to "undo" newlines. Is this possible? I tried around a
> little and apparently it is not?
>
> Cheers,
> Lasse
>
> Here's the source:
> pro the_race, test=test, fences=fences
>
> length = 40
> dist = 20
> h_offset = 15
> h_len = 8
> dummy_input = ''
> started = 0
> if not(keyword_set(fences)) then fences = 8
>
> horse = make_array(3, 4, /string, value=' ')
>
> horse[0,0] = ' _ '
> horse[1,0] = ' ===/ '
> horse[2,0] = '_/___\__'
>
> horse[0,1] = ' _ '
> horse[1,1] = ' ===/ '
> horse[2,1] = '__\_/___'
>
> horse[0,2] = ' _ '
> horse[1,2] = '__===/__'
> horse[2,2] = '________'
>
> horse[0,3] = ' _ '
> horse[1,3] = ' ===/ '
> horse[2,3] = '__|__|__'
>
> if keyword_set(test) then begin
> print, strjoin(replicate('i', length),'')
> print, strjoin(replicate('i', length),'')
> print, strjoin(replicate('i', length),'')
> return
> endif
>
> world = make_array(3,length, /string, value=' ')
> world[2,0:length-2] = '_'
> world[2,length-1] = '|'
> act_fence = 1
>
> top_str = strjoin(reform(world[0,*]), '')
> mid_str = strjoin(reform(world[1,*]), '')
> bas_str = strjoin(reform(world[2,*]), '')
>
> hip = 0
> dist_count = dist
>
> while started lt 3 do begin
>
> world[0,h_offset:h_offset+h_len-1] = strmid(horse[0,3],
> indgen(h_len), 1)
> world[1,h_offset:h_offset+h_len-1] = strmid(horse[1,3],
> indgen(h_len), 1)
> world[2,h_offset:h_offset+h_len-1] = strmid(horse[2,3],
> indgen(h_len), 1)
>
> if started eq 0 then begin
> sstr = 'Ready... '
> endif else if started eq 1 then begin
> sstr = 'Steady...'
> endif else if started eq 2 then begin
> sstr = 'Go! '
> endif
> world[0,2:2+strlen(sstr)-1] = strmid(sstr, indgen(strlen(sstr)),
> 1)
>
> top_str = strjoin(reform(world[0,*]), '')
> mid_str = strjoin(reform(world[1,*]), '')
> bas_str = strjoin(reform(world[2,*]), '')
>
> print, top_str
> print, mid_str
> print, bas_str
> print, '', format='(a,$)'
>
> if started eq 2 then break
> wait, randomu(systime)*3
>
> started = started+1
>
> endwhile
>
> stime = systime(/seconds)
> atime = systime(/seconds)
> while act_fence le fences do begin
>
> ; print time
> etime = atime-stime
> etime_str = string(etime, format='(F7.3)')
> world[0,length-7:length-1] = strmid(etime_str, indgen(7), 1)
>
> ; find fences
> bas_bak = strjoin(reform(world[2,*]), '')
> npos = -1
> pos = 0
> pos = strpos(bas_bak, '|')
> while pos ne -1 do begin
> if npos[0] eq -1 then $
> npos = pos $
> else $
> npos = [npos, pos]
> pos = strpos(bas_bak, '|', pos+1)
> endwhile
>
> sinds = where(npos ge h_offset+1 and npos lt h_offset+h_len-2)
> if sinds[0] ne -1 then hip=2
> if hip eq 2 and sinds[0] eq -1 then hip=0
>
> world[0,h_offset:h_offset+h_len-1] = strmid(horse[0,hip],
> indgen(h_len), 1)
> world[1,h_offset:h_offset+h_len-1] = strmid(horse[1,hip],
> indgen(h_len), 1)
> world[2,h_offset:h_offset+h_len-1] = strmid(horse[2,hip],
> indgen(h_len), 1)
>
> ; replace fences
> if npos[0] ne -1 then begin
> for i=0, n_elements(npos)-1 do begin
> world[2, npos] = '|'
> endfor
> endif
>
> top_str = strjoin(reform(world[0,*]), '')
> mid_str = strjoin(reform(world[1,*]), '')
> bas_str = strjoin(reform(world[2,*]), '')
>
> print, top_str
> print, mid_str
> print, bas_str
>
> oinds = where(npos eq h_offset+h_len-2)
> if oinds[0] ne -1 then begin
> read, '', dummy_input
> endif else $
> print, '', format='(a,$)'
>
> ; move the world!
> world[2,*] = shift(world[2,*], -1)
>
> ; fill up end
> dist_count = dist_count - 1
> if dist_count eq 0 then begin
> world[2,length-1] = '|'
> act_fence = act_fence + 1
> dist_count = dist
> if act_fence eq fences then begin
> dist_count = dist-2
> world[2,length-1] = 'G'
> endif
> endif else begin
> world[2,length-1] = '_'
> endelse
> ; change horse
> if hip eq 0 then hip=1 else hip=0
> atime = systime(/seconds)
> wait, .1
> endwhile
>
> end
Have you looked at using GET_KBRD?
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
