This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts MenuLOCAL colorData[]; DIMDATA colorData[], 0xffffff, 0, 0xff, 0xffff, 0xff00, 0xffff00, 0xff0000, 0xff00ff
LOCAL x, y, c
LOCAL size = 8, shift = 88, y2 = 16, y3 = 32
FOR c = 0 TO LEN(colorData[]) - 1
STARTPOLY
POLYVECTOR shift + c * size + size, 0, 0, 0, colorData[c]
POLYVECTOR shift + c * size, 0, 0, 0, colorData[c]
POLYVECTOR shift + c * size, size, 0, 0, colorData[c]
POLYVECTOR shift + c * size + size, size, 0, 0, colorData[c]
ENDPOLY
DRAWRECT shift + c * size, y2, size, size, colorData[c]
FOR x = 0 TO size - 1
FOR y = 0 TO size - 1
SETPIXEL shift + x + (c * size), y3 + y, colorData[c]
NEXT
NEXT
NEXT
PRINT "POLYVECTOR", 0, 0
PRINT "DRAWRECT", 0, y2
PRINT "SETPIXEL", 0, y3
SHOWSCREEN; KEYWAIT; END
// PRESS SPACE TO SWITCH BETWEEN NORMAL LIGHT AND TOON LIGHT
LOCAL spacePressed = FALSE
LOCAL lightIndex = 0
LOCAL lightNames$[]; DIMDATA lightNames$[], "NORMAL", "CARTOON"
LOCAL x, y
LOCAL spotx = -50, spoty = 50, spotz = 50
X_OBJSTART 0
X_OBJADDVERTEX x - 1, y - 1, 0, 0, 0, RGB(255, 0, 0)
X_OBJADDVERTEX x, y + 1, 0, 0, 0, RGB(0, 255, 0)
X_OBJADDVERTEX x + 1, y - 1, 0, 0, 0, RGB(0, 0, 255)
X_OBJEND
WHILE TRUE
IF KEY(57)
IF NOT spacePressed
lightIndex = 1 - lightIndex
spacePressed = TRUE
ENDIF
ELSE
spacePressed = FALSE
ENDIF
X_MAKE3D 1, 1000, 45
X_CAMERA 0, 0, 20, 0, 0, 0
X_CULLMODE 1
X_AMBIENT_LT lightIndex * -2, RGB(255, 255, 255)
X_DRAWOBJ 0, 0
X_MAKE2D
PRINT lightNames$[lightIndex], 4, 4
SHOWSCREEN
WEND
END