Page 3 of 9
Re: Doodle
Posted: Fri Aug 19, 2022 9:32 am
by RalfR
stevepoole wrote:Maybe the flickering depends on your computer's speed rating ?
Try changing line 180 H=100000 to much lower values if you have a slower PC than mine... (Say h=10000), or the opposite for fast PCs !
H is the Hold value that replaces PAUSEs.
No, it does not make any differences, I have tried 10000 and also 200000, it is the same. And even my Dell workstation is not so slow
Re: Doodle
Posted: Fri Aug 19, 2022 12:50 pm
by stevepoole
Hi Folks,
Bad weather has drawn in, so here is Doddle 14 : A beekeeping game...
Having only my PC laptop here, I had to use the 2,4,6 & 8 key pad buttons (instead of arrow keys) to control bee movements, ( as I am using a french keyboard).
Insects fly in a disorderly manner, and as you control bee movements, there is also turbulence to deal with... so bee patient ! Flowers visited are erased.
Improve your timings as you can. I may do a QL version when I get back home.
Steve.
________________________________________
Re: Doodle
Posted: Fri Aug 19, 2022 1:36 pm
by RalfR
Very nice
Re: Doodle
Posted: Sat Aug 20, 2022 6:30 am
by stevepoole
Hi Ralph,
Flickering seems to be related to multi-core processors 'jumping the gun' and executing graphics in parallel, ahead of the ensuing code... ?
In a new Doodle I have been prototyping, I get several succeeding images one on top of another, instead of serially, (flickering in fact).
To get rid of this, I have to include 'NOP'-effect instructions to slug the system fractionally. I have 3 cores, but you may have more....
This bug was difficult to track down, and seems to stem from using dud FOR loops to replace PAUSEs ! It should not happen on 'monocore' QLs ?
Steve.
_____________
Re: Doodle
Posted: Sat Aug 20, 2022 10:08 am
by RalfR
Oh no, I just have 2 cores, it is a bit older workstation with Win 7, a Precision 390 with a big graphic card for use with 3D CAD.
There may be different reasions for slight flickering, the OS, the card or the monitor, who cares?
. As long as I can watch it, it is very good
Re: Doodle
Posted: Sun Aug 21, 2022 6:28 am
by stevepoole
Hi QL enthusiasts,
Quote : "And now for something completely different" : Miscellaneous erotic doodling ...
Steve.
_____________________________________________
Re: Doodle
Posted: Sun Aug 21, 2022 2:20 pm
by pjw
stevepoole wrote:Hi QL enthusiasts,
Quote : "And now for something completely different" : Miscellaneous erotic doodling ...
Steve.
Phantasia_bas.zip
_____________________________________________
I dont know if this will pass the censors, but I was expecting something more like this..
Code: Select all
100 ::
110 CLEAR: CLS#0: REMark Phantasia_bas
120 WINDOW 512,256,0,0: PAPER 0: INK 251
130 SCALE 100,-25,-5: CLS: OVER 0
140 LINE 100,45 TO 110,42 TO 40,30
150 LINE TO 20,40 TO 80,50 TO 80,65
160 LINE TO 110,55 TO 110,30: LINE 40,15
170 LINE TO 40,40 TO 20,50 TO 20,25:INK 3
180 LINE 45,45 TO 45,40 TO 70,42 TO 50,35
190 LINE TO 50,42: FILL 1: LINE 70,42
200 LINE TO 85,47 TO 95,43 TO 70,42
210 FILL 0: LINE 85,47 TO 65,45
220 LINE 95,43 TO 75,38: FILL 1
230 CIRCLE 91,50,4: FILL 0: OVER -1
240 x = 0: y = 0: bx = 70: by = 42: s = 1
250 REPeat loop
260 z$="'X'"
270 INK 2: LINE bx, by TO bx + x, by + y
280 x = x + s: y = y + s
290 IF x < 1: s = 1
300 IF x >= 6: s = -1
310 LINE bx, by TO bx + x, by + y
320 INK RND(255): CSIZE RND(3),RND(1)
330 FOR f=1 TO RND(10 TO 30)
340 FOR j=1,2
350 CURSOR 85-f,55+f,0,0: PRINT z$
360 IF j<2: IF CODE(INKEY$(7)) = 27: EXIT loop
370 END FOR j: END FOR f
380 END REPeat loop
390 ::
(Press ESC to exit the dream!)
Re: Doodle
Posted: Sun Aug 21, 2022 3:57 pm
by tofro
Does the forum have an "adults only" section?
Re: Doodle
Posted: Sun Aug 21, 2022 4:34 pm
by dilwyn
First it was Norman and his Stripper. Now this...
Re: Doodle
Posted: Mon Aug 22, 2022 4:13 am
by stevepoole
Hi Folks,
Doodle 15 took me more time than usual to do. I have always wanted a 3D Pacman-type game, but never found out how to keep the graphics output clear...
So I have removed the 'labyrinth', in '3D space', as you have plenty to concentrate on. You start in LEARNing mode (play=2), but the QL can play itself (0), or you(1).
In learning mode you have infinite lives ! Don't keep pressing keys after a 'low' beep, wait for a 'high' beep, then keep hitting stacatto fashion.
When you get faster, try adapting the variables allowed at the start of the listing to alter difficulty... Discover your ultimate level of competence !
One technical comment : For some reason, XORing items can leave a litttle 'clutter' on screen, but only a problem when you choose lots of items before RUNning.
Steve.
________________________________________________________________