Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|642\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Not rotating
Mon, 14 Nov 2022, 12:45
dna	Not rotating I hate to be old fashioned but the code here does not move for some reason. Any help is appreciated. Graphics 800,600,16,2 SZ = 150 : CX = 140 : CY = 96 SC = 0 ANGLE = 0 Dim PTS(7,2):Dim RZP(7,2) : Dim RYP(7,2) : Dim RXP(7,2):Dim PRJ(7,2) Gosub POINTS .DRAWLOOP ;CALL 62450 Gosub ROTATE Gosub DRAWLINES ANGLE = ANGLE + 5 ;Flip;GOSUB 1000 If KeyDown(1) Then End Goto DRAWLOOP .THELINES X1 = PRJ(A,0) * SZ + CX Y1 = PRJ(A,1) * SZ + CY X2 = PRJ(B,0) * SZ + CX Y2 = PRJ(B,1) * SZ + CY Color 15,50,140 Line X1,Y1,X22,Y22:;Print X1:Print X2:Print Y1:Print Y2:WaitKey:End Return .ROTATE CS =Cos(ANGLE) SN = Sin(ANGLE) For N = 0 To 7 RZP(N,0) = -CS * PTS(N,0) + SN * PTS(N,1) + 0 * PTS(N,2) RZP(N,1) = SN * PTS(N,0) + CS * PTS(N,1) + 0 * PTS(N,2) RZP(N,2) = 0 * PTS(N,0) + 0 * PTS(N,1) + 1 * PTS(N,2) RYP(N,0) = CS * RZP(N,0) + 0 * RZP(N,1) + SN * RZP(N,2) RYP(N,1) = 0 * RZP(N,0) + 1 * RZP(N,1) + 0 * RZP(N,2) RYP(N,2) = -SN * RZP(N,0) + 0 * RZP(N,1) + CS * RZP(N,2) RXP(N,0) = RYP(N,0) RXP(N,1) = CS * RYP(N,1) - SN * RYP(N,2) RXP(N,2) = SN * RYP(N,1) + CS * RYP(N,2) Z = 1 / (5 - RXP(N,2)) PRJ(N,0) = RXP(N,0) * Z PRJ(N,1) = RXP(N,1) * Z Next Return .POINTS PTS(0,0) = -1: PTS(0,1) = -1 : PTS(0,2) = -1 PTS(1,0) = 1: PTS(1,1) = -1 : PTS(1,2) = -1 PTS(2,0) = 1: PTS(2,1) = 1 : PTS(2,2) = -1 PTS(3,0) = -1: PTS(3,1) = 1 : PTS(3,2) = -1 PTS(4,0) = -1: PTS(4,1) = -1 : PTS(4,2) = 1 PTS(5,0) = 1: PTS(5,1) = -1 : PTS(5,2) = 1 PTS(6,0) = 1: PTS(6,1) = 1 : PTS(6,2) = 1 PTS(7,0) = -1: PTS(7,1) = 1 : PTS(7,2) = 1 Return .DRAWLINES A = 0 : B = 1 : Gosub THELINES A = 1 : B = 2 : Gosub THELINES A = 2 : B = 3 : Gosub THELINES A = 3 : B = 0 : Gosub THELINES A = 4 : B = 5 : Gosub THELINES A = 5 : B = 6 : Gosub THELINES A = 6 : B = 7 : Gosub THELINES A = 7 : B = 4 : Gosub THELINES A = 0 : B = 4 : Gosub THELINES A = 1 : B = 5 : Gosub THELINES A = 2 : B = 6 : Gosub THELINES A = 3 : B = 7 : Gosub THELINES Return --v -=-=- DNA
Mon, 14 Nov 2022, 13:48
Jayenkai	It's all about the floats. Go through and Hash those variables up, baby!!! Graphics 800,600,16,2 SZ# = 150 : CX# = 140 : CY# = 96 SC# = 0 : A#=0 : B#=0 ANGLE# = 0 Dim PTS#(7,2):Dim RZP#(7,2) : Dim RYP#(7,2) : Dim RXP#(7,2):Dim PRJ#(7,2) Gosub POINTS .DRAWLOOP ;CALL 62450 Gosub ROTATE Gosub DRAWLINES ANGLE = ANGLE + 5 ;Flip;GOSUB 1000 Flip If KeyDown(1) Then End Goto DRAWLOOP .THELINES X1 = PRJ(A,0) * SZ + CX Y1 = PRJ(A,1) * SZ + CY X2 = PRJ(B,0) * SZ + CX Y2 = PRJ(B,1) * SZ + CY Color 15,50,140 Line X1,Y1,X22,Y22:;Print X1:Print X2:Print Y1:Print Y2:WaitKey:End Return .ROTATE CS# =Cos(ANGLE) SN# = Sin(ANGLE) For N = 0 To 7 RZP(N,0) = -CS * PTS(N,0) + SN * PTS(N,1) + 0 * PTS(N,2) RZP(N,1) = SN * PTS(N,0) + CS * PTS(N,1) + 0 * PTS(N,2) RZP(N,2) = 0 * PTS(N,0) + 0 * PTS(N,1) + 1 * PTS(N,2) RYP(N,0) = CS * RZP(N,0) + 0 * RZP(N,1) + SN * RZP(N,2) RYP(N,1) = 0 * RZP(N,0) + 1 * RZP(N,1) + 0 * RZP(N,2) RYP(N,2) = -SN * RZP(N,0) + 0 * RZP(N,1) + CS * RZP(N,2) RXP(N,0) = RYP(N,0) RXP(N,1) = CS * RYP(N,1) - SN * RYP(N,2) RXP(N,2) = SN * RYP(N,1) + CS * RYP(N,2) Z# = 1.0 / (5 - RXP(N,2)) PRJ(N,0) = RXP(N,0) * Z PRJ(N,1) = RXP(N,1) * Z Next Return .POINTS PTS(0,0) = -1: PTS(0,1) = -1 : PTS(0,2) = -1 PTS(1,0) = 1: PTS(1,1) = -1 : PTS(1,2) = -1 PTS(2,0) = 1: PTS(2,1) = 1 : PTS(2,2) = -1 PTS(3,0) = -1: PTS(3,1) = 1 : PTS(3,2) = -1 PTS(4,0) = -1: PTS(4,1) = -1 : PTS(4,2) = 1 PTS(5,0) = 1: PTS(5,1) = -1 : PTS(5,2) = 1 PTS(6,0) = 1: PTS(6,1) = 1 : PTS(6,2) = 1 PTS(7,0) = -1: PTS(7,1) = 1 : PTS(7,2) = 1 Return .DRAWLINES A = 0 : B = 1 : Gosub THELINES A = 1 : B = 2 : Gosub THELINES A = 2 : B = 3 : Gosub THELINES A = 3 : B = 0 : Gosub THELINES A = 4 : B = 5 : Gosub THELINES A = 5 : B = 6 : Gosub THELINES A = 6 : B = 7 : Gosub THELINES A = 7 : B = 4 : Gosub THELINES A = 0 : B = 4 : Gosub THELINES A = 1 : B = 5 : Gosub THELINES A = 2 : B = 6 : Gosub THELINES A = 3 : B = 7 : Gosub THELINES Return --v This is "better' but not perfect. -=-=- ''Load, Next List!''
Mon, 14 Nov 2022, 14:03
dna	At least I can see it now. I'll try to make adjustments for a perfect cube. Thanks -=-=- DNA
Mon, 14 Nov 2022, 14:23
Jayenkai	Here's a fully tweaked Float/Int version of the script. Graphics 800,600,16,2 SZ# = 150 : CX# = 140 : CY# = 96 SC# = 0 : A=0 : B=0 ANGLE# = 0 Dim PTS#(7,2):Dim RZP#(7,2) : Dim RYP#(7,2) : Dim RXP#(7,2):Dim PRJ#(7,2) Gosub POINTS .DRAWLOOP ;//CALL 62450 CLS Gosub ROTATE Gosub DRAWLINES ANGLE# = ANGLE# + 5 ;//Flip;GOSUB 1000 Flip If KeyDown(1) Then End Goto DRAWLOOP .THELINES X1# = PRJ#(A,0) * SZ# + CX# Y1# = PRJ#(A,1) * SZ# + CY# X2# = PRJ#(B,0) * SZ# + CX# Y2# = PRJ#(B,1) * SZ# + CY# Color 15,50,140 Line X1#,Y1#,X2#2.0,Y2#2.0:;//Print X1:Print X2:Print Y1:Print Y2:WaitKey:End Return .ROTATE CS# =Cos(ANGLE#) SN# = Sin(ANGLE#) For N = 0 To 7 RZP#(N,0) = -CS# * PTS#(N,0) + SN# * PTS#(N,1) + 0.0 * PTS#(N,2) RZP#(N,1) = SN# * PTS#(N,0) + CS# * PTS#(N,1) + 0.0 * PTS#(N,2) RZP#(N,2) = 0.0 * PTS#(N,0) + 0.0 * PTS#(N,1) + 1.0 * PTS#(N,2) RYP#(N,0) = CS# * RZP#(N,0) + 0.0 * RZP#(N,1) + SN# * RZP#(N,2) RYP#(N,1) = 0.0 * RZP#(N,0) + 1.0 * RZP#(N,1) + 0.0 * RZP#(N,2) RYP#(N,2) = -SN# * RZP#(N,0) + 0.0 * RZP#(N,1) + CS# * RZP#(N,2) RXP#(N,0) = RYP#(N,0) RXP#(N,1) = CS# * RYP#(N,1) - SN# * RYP#(N,2) RXP#(N,2) = SN# * RYP#(N,1) + CS# * RYP#(N,2) Z# = 1.0 / (5.0 - RXP#(N,2)) PRJ#(N,0) = RXP#(N,0) * Z# PRJ#(N,1) = RXP#(N,1) * Z# Next Return .POINTS PTS#(0,0) = -1.0: PTS#(0,1) = -1.0 : PTS#(0,2) = -1.0 PTS#(1,0) = 1.0: PTS#(1,1) = -1.0 : PTS#(1,2) = -1.0 PTS#(2,0) = 1.0: PTS#(2,1) = 1.0 : PTS#(2,2) = -1.0 PTS#(3,0) = -1.0: PTS#(3,1) = 1.0 : PTS#(3,2) = -1.0 PTS#(4,0) = -1.0: PTS#(4,1) = -1.0 : PTS#(4,2) = 1.0 PTS#(5,0) = 1.0: PTS#(5,1) = -1.0 : PTS#(5,2) = 1.0 PTS#(6,0) = 1.0: PTS#(6,1) = 1.0 : PTS#(6,2) = 1.0 PTS#(7,0) = -1.0: PTS#(7,1) = 1.0 : PTS#(7,2) = 1.0 Return .DRAWLINES A = 0 : B = 1 : Gosub THELINES A = 1 : B = 2 : Gosub THELINES A = 2 : B = 3 : Gosub THELINES A = 3 : B = 0 : Gosub THELINES A = 4 : B = 5 : Gosub THELINES A = 5 : B = 6 : Gosub THELINES A = 6 : B = 7 : Gosub THELINES A = 7 : B = 4 : Gosub THELINES A = 0 : B = 4 : Gosub THELINES A = 1 : B = 5 : Gosub THELINES A = 2 : B = 6 : Gosub THELINES A = 3 : B = 7 : Gosub THELINES Return --v (Also, JSE safe!) -=-=- ''Load, Next List!''
Mon, 14 Nov 2022, 15:50
dna	I don't see the performance gains from your second post however, here's the cube Graphics 800,600,16,2 SZ# = 150 : CX# = 140 : CY# = 96 SC# = 0 : A=0 : B=0 ANGLE# = 0 Dim PTS#(7,2):Dim RZP#(7,2) : Dim RYP#(7,2) : Dim RXP#(7,2):Dim PRJ#(7,2) Gosub POINTS .DRAWLOOP ;//CALL 62450 CLS Gosub ROTATE Gosub DRAWLINES ANGLE# = ANGLE# + .7 ;//Flip;GOSUB 1000 Flip If KeyDown(1) Then End Goto DRAWLOOP .THELINES X1# = PRJ#(A,0) * SZ# + CX# Y1# = PRJ#(A,1) * SZ# + CY# X2# = PRJ#(B,0) * SZ# + CX# Y2# = PRJ#(B,1) * SZ# + CY# Color 15,50,140 Line X1#,Y1#,X2#,Y2#;//Print X1:Print X2:Print Y1:Print Y2:WaitKey:End Return .ROTATE CS# =Cos(ANGLE#) SN# = Sin(ANGLE#) For N = 0 To 7 RZP#(N,0) = -CS# * PTS#(N,0) + SN# * PTS#(N,1) + 0.0 * PTS#(N,2) RZP#(N,1) = SN# * PTS#(N,0) + CS# * PTS#(N,1) + 0.0 * PTS#(N,2) RZP#(N,2) = 0.0 * PTS#(N,0) + 0.0 * PTS#(N,1) + 1.0 * PTS#(N,2) RYP#(N,0) = CS# * RZP#(N,0) + 0.0 * RZP#(N,1) + SN# * RZP#(N,2) RYP#(N,1) = 0.0 * RZP#(N,0) + 1.0 * RZP#(N,1) + 0.0 * RZP#(N,2) RYP#(N,2) = -SN# * RZP#(N,0) + 0.0 * RZP#(N,1) + CS# * RZP#(N,2) RXP#(N,0) = RYP#(N,0) RXP#(N,1) = CS# * RYP#(N,1) - SN# * RYP#(N,2) RXP#(N,2) = SN# * RYP#(N,1) + CS# * RYP#(N,2) Z# = 1.0 / (5.0 - RXP#(N,2)) PRJ#(N,0) = RXP#(N,0) * Z# PRJ#(N,1) = RXP#(N,1) * Z# Next Return .POINTS PTS#(0,0) = -1.0: PTS#(0,1) = -1.0 : PTS#(0,2) = -1.0 PTS#(1,0) = 1.0: PTS#(1,1) = -1.0 : PTS#(1,2) = -1.0 PTS#(2,0) = 1.0: PTS#(2,1) = 1.0 : PTS#(2,2) = -1.0 PTS#(3,0) = -1.0: PTS#(3,1) = 1.0 : PTS#(3,2) = -1.0 PTS#(4,0) = -1.0: PTS#(4,1) = -1.0 : PTS#(4,2) = 1.0 PTS#(5,0) = 1.0: PTS#(5,1) = -1.0 : PTS#(5,2) = 1.0 PTS#(6,0) = 1.0: PTS#(6,1) = 1.0 : PTS#(6,2) = 1.0 PTS#(7,0) = -1.0: PTS#(7,1) = 1.0 : PTS#(7,2) = 1.0 Return .DRAWLINES A = 0 : B = 1 : Gosub THELINES A = 1 : B = 2 : Gosub THELINES A = 2 : B = 3 : Gosub THELINES A = 3 : B = 0 : Gosub THELINES A = 4 : B = 5 : Gosub THELINES A = 5 : B = 6 : Gosub THELINES A = 6 : B = 7 : Gosub THELINES A = 7 : B = 4 : Gosub THELINES A = 0 : B = 4 : Gosub THELINES A = 1 : B = 5 : Gosub THELINES A = 2 : B = 6 : Gosub THELINES A = 3 : B = 7 : Gosub THELINES Return --v -=-=- DNA
Mon, 14 Nov 2022, 18:30
Jayenkai	Awesome!! Works nicely. Great job

Not rotating