mirror of
https://github.com/a2geek/jewel-of-kaldun.git
synced 2024-09-29 21:54:46 +00:00
24 lines
586 B
QBasic
24 lines
586 B
QBasic
|
10 HGR : POKE -16302,0
|
||
|
15 GOSUB 200: REM background
|
||
|
20 D1 = 70:D2 = 77:D3 = 80
|
||
|
30 DEF FN FX(A) = COS(D) *Z
|
||
|
40 DEF FN FY(A) = SIN(D) *Z
|
||
|
50 FOR D = 0 TO 6.28 STEP 0.01
|
||
|
55 HCOLOR= 4
|
||
|
60 Z = 60: GOSUB 100
|
||
|
80 NEXT D
|
||
|
90 PRINT CHR$(4);"-jewel-draw2"
|
||
|
100 X = FN FX(1):Y = FN FY(1)
|
||
|
110 HPLOT 140,96 TO 140 -X,96 -Y
|
||
|
120 RETURN
|
||
|
200 HCOLOR= 6
|
||
|
210 FOR Y = 0 TO 191 STEP 4
|
||
|
220 FOR X = 0 TO 279 STEP 8
|
||
|
230 HPLOT X,Y TO X +3,Y
|
||
|
240 NEXT X,Y
|
||
|
250 FOR Y = 2 TO 191 STEP 4
|
||
|
260 FOR X = 3 TO 276 STEP 8
|
||
|
270 HPLOT X,Y TO X +3,Y
|
||
|
280 NEXT X,Y
|
||
|
290 RETURN
|