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 slowstevepoole 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.
. As long as I can watch it, it is very good I dont know if this will pass the censors, but I was expecting something more like this..stevepoole wrote:Hi QL enthusiasts,
Quote : "And now for something completely different" : Miscellaneous erotic doodling ...
Steve.
Phantasia_bas.zip
_____________________________________________
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 ::
