### Author Topic: Archimedes spiral  (Read 367 times)

#### Aurel

• Regular Member
• Hero Member
• Posts: 619
##### Archimedes spiral
« on: 17. September 2019, 09:13:39 »
in LogicBasic:

Code: [Select]
`Var T Decimal, A Decimal, R Decimal, Xs Decimal, Ys DecimalVar X0 Decimal, Y0 Decimal, X1 Decimal, Y1 DecimalWindow Res = 150, 250T = 0.7 'starting point of spiralA = 0.03 'increment size - spiral trail widthXs = 125; Ys = 75X0 = 0; Y0 = 0 'start point of lineWhile 1 = 1  R = A * T   X1 = R * Cos(T) * 50  Y1 = R * Sin(T) * 50  Straight Ys + Y0, Xs + X0, Ys + Y1, Xs + X1, Black  X0 = X1; Y0 = Y1  T = T + A  Wait EventsLoop`
my site:BLOG and FORUM
https://aurelsoft.ucoz.com/

#### Galileo

• Jr. Member
• Posts: 96
##### Re: Archimedes spiral
« Reply #1 on: 17. September 2019, 11:20:36 »
Code: [Select]
`// Ported from ZX81 Sinclair BASIC to Yabasic by Galileo, 10/20185 OPEN WINDOW 320, 200 : WINDOW ORIGIN "CC"10 LET A=1.520 LET B=0.730 FOR T=0 TO 30*PI STEP 0.0540 LET R=A+B*T50 LINE TO R*COS(T),R*SIN(T)60 NEXT T`

#### Galileo

• Jr. Member
• Posts: 96
##### Re: Archimedes spiral
« Reply #2 on: 17. September 2019, 11:23:46 »
Text mode in iBASIC

Code: [Select]
`1 REM iBASIC version 09/20195 screen window mode 45,607 window title "Espiral arquimediana"10 LET A=1.520 LET B=0.730 FOR T=0 TO 7*PI STEP 0.0540 LET R=A+B*T45 let x = R*COS(T)+32 : let y = R*SIN(T)+2250 locate y,x : print "*"60 NEXT T70 input "",a\$`

#### B+

• Hero Member
• Posts: 855
##### Re: Archimedes spiral
« Reply #3 on: 17. September 2019, 18:43:05 »
I made a little modification of Archimedes Spiral:
« Last Edit: 17. September 2019, 18:54:47 by B+ »

#### Aurel

• Regular Member
• Hero Member
• Posts: 619
##### Re: Archimedes spiral
« Reply #4 on: 18. September 2019, 11:43:44 »
Nice one Mark and Galileo too
I just found it on LogicBasic forum..
hmm this LogicBasic seems very nice dialect...
my site:BLOG and FORUM
https://aurelsoft.ucoz.com/

#### B+

• Hero Member
• Posts: 855
##### Re: Archimedes spiral
« Reply #5 on: 18. September 2019, 17:29:34 »
Hey Aurel! Looks like this LogicBasic is just getting started:

#### Aurel

• Regular Member
• Hero Member
• Posts: 619
##### Re: Archimedes spiral
« Reply #6 on: 18. September 2019, 19:41:03 »
Maybe 1-2 years old ..i think