all/3DTEST2.TST at master · qb40/all

History

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

'Vic Luce Rotation formula

'x2=x*cos@+y*sin@

'y2=y*cos@-x*sin@

'My Rotation formula

'd=sqr(x*x+y*y)

'x2=d*cos@

'y2=d*sin@

'Both give exactly same result

'Vic Luce = 6.43

'Mine =6.27(Mine doesnt work)(I am a fool)

'@ = theta = anti-clockwise angle(+ve angle)

DIM sine(359), cosine(359)

FOR i% = 0 TO 359

sine(i%) = SIN((CSNG(i%) / 180) * 3.14)

cosine(i%) = COS((CSNG(i%) / 180) * 3.14)

k$ = INPUT$(1)

x = 50

y = 100

xcentre = 150

ycentre = 100

a = TIMER

t = 360 / (6280000)

FOR i = 0 TO 359 STEP t

PSET (xcentre + x * cosine(i) + y * sine(i), ycentre + y * cosine(i) - x * sine(i)), 1

k$ = INPUT$(1)

a = TIMER

'd = SQR(x * x + y * y)

FOR i = 0 TO 359 STEP t

d = SQR(x * x + y * y)

PSET (xcentre + d * cosine(i), ycentre - d * sine(i)), 2

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

3DTEST2.TST

3DTEST2.TST

Files

3DTEST2.TST

Latest commit

History

3DTEST2.TST

File metadata and controls