Support Forum / Форум поддержки

Code: Select all

REM 3d cube with retro background
REM iPhone 6+ / 10.3 b4 
REM I havent added texture to the cube
REM yet. I got lazy... 
REM you can change the object to the amiga ball. :)
REM enjoy...

GRAPHICS
GOSUB setup

LOOP:
REFRESH OFF
GRAPHICS CLEAR 0,0,0
GOSUB background
sizez=15*SIN(mm*10)
GOSUB rotate
GOSUB construct
REFRESH 
GOTO LOOP


'Draw The Object
construct:
FOR a=1 TO faces
    GOSUB drawface
NEXT a
RETURN

'Draw A Face Of The Object
drawface:
vx1= tx(f1(a))-tx(f2(a))
vy1= ty(f1(a))-ty(f2(a))
vx2= tx(f3(a))-tx(f2(a))
vy2= ty(f3(a))-ty(f2(a))
n=  vx1*vy2-vx2*vy1
IF n<0 THEN
    n=-(n/3000)
    FILL COLOR (r(a)+n)/255,(g(a)+n)/255,(b(a)+n)/255
    FILL TRI tx(f1(a)),ty(f1(a)) , tx(f2(a)),ty(f2(a)) , tx(f3(a)),ty(f3(a))
    FILL TRI tx(f1(a)),ty(f1(a)) , tx(f4(a)),ty(f4(a)) , tx(f3(a)),ty(f3(a))
    
    
    IF clss(a)=1 THEN
        DRAW COLOR 25/255,25/255,25/255
        DRAW LINE tx(f1(a)),ty(f1(a)) TO tx(f2(a)),ty(f2(a))
        DRAW LINE tx(f2(a)),ty(f2(a)) TO tx(f3(a)),ty(f3(a))
        DRAW LINE tx(f3(a)),ty(f3(a)) TO tx(f4(a)),ty(f4(a))
        DRAW LINE tx(f4(a)),ty(f4(a)) TO tx(f1(a)),ty(f1(a))
    END IF
END IF
RETURN


rotate:

'Rotate And Scale Each Point. Store Result 
FOR a=1 TO points
    x1=x(a)
    y1=y(a)
    z1=z(a)
    
    ' X,Y,Z rotations! 
    xx=x1
    yy=y1*cs(xr)+z1*sn(xr)
    zz=z1*cs(xr)-y1*sn(xr)
    y1=yy
    x1=xx*cs(yr)-zz*sn(yr)
    z1=xx*sn(yr)+zz*cs(yr)
    zz=z1
    xx=x1*cs(zr)-y1*sn(zr)
    yy=x1*sn(zr)+y1*cs(zr)
    
    'Apply Perspective! 
    
    dv=(zz/40)+1
    xx=sizez*(xx/dv)+sw/2
    yy=sizez*(yy/dv)+sh/2
    tx(a)=xx
    ty(a)=yy
    tz(a)=zz
NEXT a
xr=xr+1
yr=yr+2
zr=zr+3
IF xr>720 THEN
    xr=xr-720
END IF
IF yr>720 THEN
    yr=yr-720
END IF
IF zr>720 THEN
    zr=zr-720
END IF
RETURN


background:
mm=mm+.005
b1=1000*SIN(mm)
g1=1000*SIN(mm/2)
r1=1000*SIN(mm/3)

FOR a=1 TO SCREEN_HEIGHT() STEP res
    FILL COLOR (r1+a)/1000,(g1+a)/1000,(b1+a)/1000
    FILL RECT 0,a TO SCREEN_WIDTH(),a+res
NEXT a

RETURN

setup:
res=20 '12 'detail

DIM rs(1442)
FOR a=1 TO 1440
    rs(a)=226+400*SIN((a/2)*PI/180)
NEXT a

'Define the necessary variables;

sizez=.1 '                       how big do you want it?
points=8 '          The amount of points in the object
faces=6 '            The Amount of faces in the object
DIM x(points+1) '            Original X co-ordinate store
DIM y(points+1) '            Original Y co-ordinate store
DIM z(points+1) '            Original Z co-ordinate store
DIM tx(points+1) '       Transformed  X co-ordinate store
DIM ty(points+1) '        Transformed Y co-ordinate store
DIM tz(points+1) '        Transformed Z co-ordinate store
DIM f1(faces+1) '         Connections definition
DIM f2(faces+1) '         Connections definition
DIM f3(faces+1) '         Connections definition
DIM f4(faces+1) '         Connections definition
DIM r(faces+1) '                          Red Component
DIM g(faces+1) '                          Green Component
DIM b(faces+1) '                          Blue Component
DIM clss(faces+1) '                     Cell Shade Face?

xr=1
yr=2
zr=3

'Define Sine Tables for faster matrix calculations;

DIM cs(721)
DIM sn(721)

sw = SCREEN_WIDTH()
sh = SCREEN_HEIGHT()
PI = 3.1415

FOR ang=1 TO 720
    cs(ang)=COS(ang*(PI/360))
    sn(ang)=SIN(ang*(PI/360))
NEXT ang

' Read in the object's points

FOR a=1 TO points
    READ x(a),y(a),z(a)
NEXT a

'Read In Connections and face parameters

FOR a=1 TO faces
    READ f1(a)
    READ f2(a)
    READ f3(a)
    READ f4(a)
    READ r(a),g(a),b(a),clss(a)
NEXT a

'   The Object Description As Data!
'   The Data Below Describes A Cube.

'Points definition

'Below are the points of the object defined as x,y,z;

DATA -10,10,10,10,10,10,10,-10,10,-10,-10,10
DATA -10,10,-10,10,10,-10,10,-10,-10,-10,-10,-10

'Connection definition;
'Below are the faces of the object defined as vertice
'numbers, specified in clockwise order. These are followed
'by r,g,b values for the face and finally cell shaded
'parameter (0)=off (1)=on.

DATA 1,2,3,4,30,0,0,1
DATA 5,8,7,6,30,0,0,1
DATA 6,2,1,5,0,30,0,1
DATA 8,4,3,7,0,30,0,1
DATA 2,6,7,3,0,0,30,1
DATA 8,5,1,4,0,0,30,1

RETURN