Doodle

Anything QL Software or Programming Related.
User avatar
RalfR
Aurora
Posts: 870
Joined: Fri Jun 15, 2018 8:58 pm

Re: Doodle

Post 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 ;)


4E75 7000
stevepoole
Super Gold Card
Posts: 712
Joined: Mon Nov 24, 2014 2:03 pm

Re: Doodle

Post 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.
Busy_bas.zip
(1.13 KiB) Downloaded 96 times
________________________________________


User avatar
RalfR
Aurora
Posts: 870
Joined: Fri Jun 15, 2018 8:58 pm

Re: Doodle

Post by RalfR »

Very nice :)


4E75 7000
stevepoole
Super Gold Card
Posts: 712
Joined: Mon Nov 24, 2014 2:03 pm

Re: Doodle

Post 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.
_____________


User avatar
RalfR
Aurora
Posts: 870
Joined: Fri Jun 15, 2018 8:58 pm

Re: Doodle

Post 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? :D . As long as I can watch it, it is very good ;)


4E75 7000
stevepoole
Super Gold Card
Posts: 712
Joined: Mon Nov 24, 2014 2:03 pm

Re: Doodle

Post by stevepoole »

Hi QL enthusiasts,

Quote : "And now for something completely different" : Miscellaneous erotic doodling ...

Steve.
Phantasia_bas.zip
(514 Bytes) Downloaded 102 times
_____________________________________________


User avatar
pjw
QL Wafer Drive
Posts: 1286
Joined: Fri Jul 11, 2014 8:44 am
Location: Norway
Contact:

Re: Doodle

Post 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.. :o

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!)


Per
dont be happy. worry
- ?
User avatar
tofro
Font of All Knowledge
Posts: 2685
Joined: Sun Feb 13, 2011 10:53 pm
Location: SW Germany

Re: Doodle

Post by tofro »

Does the forum have an "adults only" section?


ʎɐqǝ ɯoɹɟ ǝq oʇ ƃuᴉoƃ ʇou sᴉ pɹɐoqʎǝʞ ʇxǝu ʎɯ 'ɹɐǝp ɥO
User avatar
dilwyn
Mr QL
Posts: 2753
Joined: Wed Dec 01, 2010 10:39 pm

Re: Doodle

Post by dilwyn »

First it was Norman and his Stripper. Now this... :D


stevepoole
Super Gold Card
Posts: 712
Joined: Mon Nov 24, 2014 2:03 pm

Re: Doodle

Post 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.
Spook_bas.zip
(2.21 KiB) Downloaded 104 times
________________________________________________________________


Post Reply