X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=graphics%2Fpresentations%2FKHK%20j6ulud%2Fkhkdemo2.bas;fp=graphics%2Fpresentations%2FKHK%20j6ulud%2Fkhkdemo2.bas;h=0000000000000000000000000000000000000000;hp=acfc16af61a2acd3ca9a619482f374f62bb10d93;hb=8d86b3981cd6ccb427dc8fd428a34313f5b55fe2;hpb=e7f38776527012dce956d07ae54b749c50671110

diff --git a/graphics/presentations/KHK j6ulud/khkdemo2.bas b/graphics/presentations/KHK j6ulud/khkdemo2.bas
deleted file mode 100755
index acfc16a..0000000
--- a/graphics/presentations/KHK j6ulud/khkdemo2.bas	
+++ /dev/null
@@ -1,294 +0,0 @@
-DECLARE SUB playsound (a$)
-DECLARE SUB start ()
-DECLARE SUB turnoff ()
-DECLARE SUB dispimg (a$)
-DECLARE SUB turnon ()
-DECLARE SUB ellips (x!, y!, s!, v!, t!)
-DECLARE SUB prn (x!, y!, msg$, siz!, col1!)
-DECLARE SUB timerAdd (element!, time!, value!)
-DECLARE SUB timerdisp ()
-DECLARE SUB timerinit ()
-DECLARE SUB timerprocess ()
-DECLARE SUB mo (x!, y!, an!, s!, w!)
-DIM SHARED depth
-DIM SHARED pi
-
-DIM SHARED sh1, sh2, sv1, sv2, hp, vp
-DIM SHARED timerTime(0 TO 50, 0 TO 100)
-DIM SHARED timerValue(0 TO 50, 0 TO 100)
-
-DIM SHARED timerCplace(0 TO 50)
-DIM SHARED timerCtime(0 TO 50)
-DIM SHARED timerCvalue(0 TO 50)
-DIM SHARED timerLast
-
-
-pi = 3.14128
-
-playsound "luule.mp3"
-SCREEN 13
-start
-
-timerinit
-2
-
-
-timerprocess
-IF timerCtime(0) > 0 THEN
-  IF im1 = 0 THEN
-    dispimg "pikk.i01"
-    im1 = 1
-  END IF
-END IF
-
-
-
-IF timerCtime(0) > 1.5 THEN
-  IF im2 = 0 THEN
-    dispimg "pikk4.i01"
-    im2 = 1
-  END IF
-END IF
-
-
-IF timerCtime(0) > 9 THEN
-  IF im3 = 0 THEN
-    dispimg "pikk3.i01"
-    im3 = 1
-  END IF
-END IF
-
-IF timerCtime(0) > 17 THEN
-  IF im4 = 0 THEN
-    dispimg "pikk2.i01"
-    im4 = 1
-  END IF
-END IF
-
-IF timerCtime(0) > 24 THEN
-  IF im5 = 0 THEN
-    dispimg "pikk1.i01"
-    im5 = 1
-  END IF
-END IF
-
-IF timerCtime(0) > 33 THEN
-  IF im6 = 0 THEN
-    dispimg "pikk5.i01"
-    im6 = 1
-  END IF
-END IF
-
-IF timerCtime(0) > 41 THEN
-  IF im7 = 0 THEN
-    dispimg "pikk.i01"
-    im7 = 1
-  END IF
-END IF
-
-
-IF timerCtime(0) > 43 THEN
-  turnoff
-END IF
-
-'LOCATE 1, 1
-'PRINT timerCtime(0)
-GOTO 2
-SYSTEM
-
-SUB dispimg (a$)
-
-
-OPEN a$ FOR INPUT AS #1
-INPUT #1, xs
-INPUT #1, ys
-
-FOR y = 1 TO ys
-FOR x = 1 TO xs
-INPUT #1, a
-PSET (x - 1, 200 - y), a
-NEXT x
-NEXT y
-
-
-CLOSE #1
-END SUB
-
-SUB ellips (x, y, s, v, t)
-
-IF x > 0 THEN
-IF y > 0 THEN
-
-CIRCLE (x, y), s, v, , , t
-PAINT (x, y), v
-
-END IF
-END IF
-
-END SUB
-
-SUB playsound (a$)
-
-SHELL "c:\progra~1\winamp\winamp.exe " + a$
-SCREEN 0
-SCREEN 7, , , 1
-
-END SUB
-
-SUB prn (x, y, msg$, siz, col1)
-IF x < 0 THEN GOTO prn1
-IF x > 319 THEN GOTO prn1
-
-DIM bck(10000)
-
-GET (0, 0)-(100, 7), bck
-LOCATE 1, 1
-PRINT msg$
-
-col = col1
-
-FOR x1 = 0 TO LEN(msg$) * 8 - 1
-FOR y1 = 0 TO 7
-  IF POINT(x1, y1) > 0 THEN
-    rx = x1 * siz + x
-    ry = y1 * siz + y
-    IF col1 > 100 THEN col = RND * 4 + 10
-    IF col1 > 200 THEN
-      LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, B
-    ELSE
-      LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF
-    END IF
-'      LINE (rx, ry)-(rx + siz - 1, ry + siz - 1), col, BF
-  END IF
-NEXT y1
-NEXT x1
-
-
-PUT (0, 0), bck, PSET
-prn1:
-END SUB
-
-SUB start
-c = 0
-FOR r = 0 TO 5
-FOR g = 0 TO 5
-FOR B = 0 TO 5
-OUT &H3C8, c
-c = c + 1
-OUT &H3C9, r * 12
-OUT &H3C9, g * 12
-OUT &H3C9, B * 12
-NEXT B
-NEXT g
-NEXT r
-
-END SUB
-
-SUB timerAdd (element, time, value)
-
-FOR a = 0 TO 100
-  IF (timerTime(element, a) = 0) AND (timerValue(element, a) = 0) THEN GOTO timer3
-NEXT a
-timer3:
-
-timerTime(element, a) = time
-timerValue(element, a) = value
-
-END SUB
-
-SUB timerdisp
-LOCATE 1, 1
-
-FOR a = 0 TO 10
-  PRINT timerCplace(a), timerCtime(a), timerCvalue(a)
-NEXT a
-
-END SUB
-
-SUB timerinit
-timerLast = TIMER
-
-paus = 24
-
-' stuff size
-timerAdd 0, 0, 0
-timerAdd 0, 1000, 1000
-
-END SUB
-
-SUB timerprocess
-
-timerCurrent = TIMER
-timerDiff = timerCurrent - timerLast
-timerLast = timerCurrent
-
-FOR a = 0 TO 50
-  ctim = timerCtime(a) + timerDiff
-  Cplace = timerCplace(a)
-timer2:
-  IF timerTime(a, Cplace + 1) = -1 THEN
-    ctim = 0
-    Cplace = 0
-  END IF
-  IF timerTime(a, Cplace + 1) < ctim THEN
-    IF timerTime(a, Cplace + 1) = 0 THEN
-      timerCvalue(a) = timerValue(a, Cplace)
-      GOTO timer1:
-    END IF
-    Cplace = Cplace + 1
-    GOTO timer2
-  END IF
-
-  v1 = timerValue(a, Cplace)
-  t1 = timerTime(a, Cplace)
-  v2 = timerValue(a, Cplace + 1)
-  t2 = timerTime(a, Cplace + 1)
-
-  IF v1 = v2 THEN
-    timerCvalue(a) = v1
-  ELSE
-    Tdiff1 = t2 - t1
-    Tdiff2 = ctim - t1
-    Vdiff = v2 - v1
-    timerCvalue(a) = Tdiff2 / Tdiff1 * Vdiff + v1
-  END IF
-timer1:
-  timerCplace(a) = Cplace
-  timerCtime(a) = ctim
-NEXT a
-
-END SUB
-
-SUB turnoff
-x = 160
-
-FOR y = 100 TO 1 STEP -1
-
-  LINE (160 - x - 5, 90 - y - 5)-(160 + x + 5, 110 + y + 5), 0, B
-  LINE (160 - x - 3, 90 - y - 3)-(160 + x + 3, 110 + y + 3), 3, B
-  LINE (160 - x, 90 - y)-(160 + x, 110 + y), 15, B
-
-  SOUND 0, .1
-NEXT y
-
-
-
-FOR x = 160 TO 0 STEP -1
- 
-  LINE (160 - x - 5, 90 - 5)-(160 + x + 5, 110 + 5), 0, B
-  LINE (160 - x - 3, 90 - 3)-(160 + x + 3, 110 + 3), 1, B
-  LINE (160 - x, 90)-(160 + x, 110), 15, B
-  SOUND 0, .05
-NEXT x
-
-playsound "silent.mp3"
-SCREEN 10
-SCREEN 13
-CLS
-1
-a$ = INPUT$(1)
-GOTO 1
-
-
-END SUB
-