Random game
Random demo
Random game
  • Entry name:
     3-D-Graphics 
  • Category:
    Graphics
  • Publisher/Developer:
    Flop 4
  • Media format:
    Diskette
  • Programming language:
    Atari BASIC
  • Entry name:
    3-D-Graphics
  • Category:
    Graphics
  • Publisher/Developer:
    Flop 4
3-D-Graphics 3-D-Graphics 3-D-Graphics 3-D-Graphics 3-D-Graphics 3-D-Graphics 3-D-Graphics 3-D-Graphics
Listing 1
1 REM 3-D GRAPHICS GENERATOR
2 REM BY **** *****
3 DIM IN$(16),​OUT$(16),​I$(2),​O$(2):​GOTO 800
5 GRAPHICS 9:​X=40:​Y=0:​TYPE=0:​DIR=0:​SHADE=8:​SIZE=10:​TINT=0:​GOSUB 60
10 TRAP 10:​GOSUB 550
15 IF STRIG(1)=0 THEN GOSUB 500
20 IF STICK(1)<>15 THEN GOSUB 60
25 IF STRIG(0)=0 THEN 80
30 COLOR 15:​PLOT X,​Y:​COLOR 0:​PLOT X,​Y
32 IF PEEK(53279)<>7 THEN GOSUB 1000
35 IF STICK(0)=15 THEN 15
40 GOSUB 40+STICK(0):​GOTO 15
45 Y=Y+1:​GOTO 47
46 Y=Y-1:​GOTO 47
47 X=X+1:​RETURN
49 Y=Y+1:​GOTO 51
50 Y=Y-1:​GOTO 51
51 X=X-1:​RETURN
53 Y=Y+1:​RETURN
54 Y=Y-1:​RETURN
55 RETURN
60 SOUND 0,​50,​10,​8:​GOSUB 60+STICK(1):​SOUND 0,​0,​0,​0:​RETURN
65 TYPE=1:​RETURN
66 DIR=1:​RETURN
67 SIZE=SIZE+1:​GOTO 75
69 TYPE=0:​RETURN
70 DIR=0:​RETURN
71 SIZE=SIZE-1:​GOTO 75
73 SHADE=SHADE-1:​GOTO 75
74 SHADE=SHADE+1
75 IF SHADE>15 THEN SHADE=15
76 IF SHADE<0 THEN SHADE=0
77 IF SIZE>79 THEN SIZE=79
78 IF SIZE<1 THEN SIZE=1
79 COLOR 0:​PLOT 0,​0:​DRAWTO 79,​0:​COLOR SHADE:​PLOT 40-(SIZE/4),​0:​DRAWTO 40+(SIZE/4),​0:​RETURN
80 COL=SHADE
90 POKE 77,​1:​TRAP 10
100 IF TYPE<>0 OR DIR<>0 THEN 200
105 COL=-15
110 FOR A=Y-SIZE TO Y+SIZE STEP SIZE/30
120 COLOR 15-ABS(COL):​COL=COL+0.5
130 PLOT X,​A
140 NEXT A:​GOTO 40
200 IF TYPE<>0 OR DIR<>1 THEN 300
205 COL=-15:​SIZE=SIZE/4
210 FOR A=X-SIZE TO X+SIZE STEP SIZE/30
220 COLOR 15-ABS(COL):​COL=COL+0.5
230 PLOT A,​Y
240 NEXT A:​SIZE=SIZE*4:​GOTO 40
300 IF TYPE<>1 OR DIR<>0 THEN 400
310 COLOR COL
320 PLOT X,​Y-SIZE:​DRAWTO X,​Y+SIZE
330 GOTO 40
400 IF TYPE<>1 OR DIR<>1 THEN 40
410 COLOR COL:​SIZE=SIZE/4
420 PLOT X-SIZE,​Y:​DRAWTO X+SIZE,​Y
430 SIZE=SIZE*4:​GOTO 40
500 TINT=TINT+1:​IF TINT>15 THEN TINT=0
510 SETCOLOR 4,​TINT,​0
520 IF STRIG(1)=0 THEN 520
530 RETURN
550 IF X>79 THEN X=79
560 IF X<0 THEN X=0
570 IF Y>191 THEN Y=191
580 IF Y<0 THEN Y=0
590 RETURN
600 OPEN #1,​4,​0,​IN$
610 B=PEEK(106)*256-160
620 FOR D=B-7680 TO B:​GET #1,​A:​POKE D,​A:​NEXT D:​CLOSE #1
630 RETURN
700 OPEN #1,​8,​0,​OUT$
710 B=PEEK(106)*256-160
720 FOR D=B-7680 TO B:​A=PEEK(D):​PUT #1,​A:​NEXT D:​CLOSE #1
730 RETURN
800 GRAPHICS 0:​PRINT " ":​PRINT:​PRINT
810 PRINT "REMEMBER THESE FUNCTIONS!":​PRINT:​PRINT "CURSOR/STICK 1 DEFINITIONS ARE:​":​PRINT
820 PRINT "VERTICAL    HORIZONTAL"
830 PRINT "  NULL  "
840 PRINT "ROUND    SQUARE":​PRINT
850 PRINT "STICK 0 CONTROLS CURSOR POSISTION"
860 PRINT "STICK 1 CONTROLS CURSOR FORMAT":​PRINT
870 PRINT "FIRE BUTTON 1 DRAWS LINES"
880 PRINT "FIRE BUTTON 2 SEQUENCES COLORS":​PRINT
890 PRINT " KEY SAVES PICTURE"
900 PRINT " KEY LOADS PICTURE":​PRINT
910 PRINT "ENTER PICTURE LOAD LETTER (A-Z)";:​INPUT I$
920 PRINT "ENTER PICTURE SAVE LETTER (A-Z)";:​INPUT O$
930 IN$="D:​PICTUREX.GRA"
940 IN$(10,​10)=I$(1,​1)
950 OUT$="D:​PICTUREX.GRA"
960 OUT$(10,​10)=O$(1,​1)
970 GOTO 5
1000 IF PEEK(53279)=6 THEN GOTO 600
1010 IF PEEK(53279)=5 THEN GOTO 700
1020 RETURN	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!