Commander X16 BASIC Tutorial: Lissajous Curves

  Рет қаралды 299

George's Channel

George's Channel

27 күн бұрын

"Lissajous Curves"
A codereview of this small BASIC Program for the Commander X16.
The programm is easy portable to any other Basic dialect of any 8-/16-bit homecomputer.
Code:
10 REM ******************************
11 REM ** LISSAJOUS CURVES - X16 **
12 REM ******************************
15 CLS: SCREEN$80: COLOR5,0: GOSUB 99
20 C=1:DX=35: DY=35: PI=3.1415926535
25 FOR A=1 TO 4
30 FOR B=1 TO 3
35 COLORC,0: C=C+1
40 FOR T=0 TO 2*PI STEP .02
45 X=DX*(2*A-1)+DX*SIN(A*T+T+1)*.75+15
50 Y=DY*(2*B-1)+DY*SIN(B*T+T)*.75+15
55 IFT=0 THENPSETX,Y,C:XS=X:YS=Y:GOTO65
60 LINE XS,YS,X,Y,C: XS=X: YS=Y:
65 NEXT T, B, A
70 GET A$: IF A$="" THEN GOTO 70
75 GOSUB 99: COLOR5,0: CLS: LIST: END
99 FOR I=0 TO 239: LINE0,I,319,I,0:NEXT I:RETURN
#lissajous #basic #commanderx16 #x16 #retro #programming #commodore #apple #atari #sinclair #c64 #amiga #retrocomputing #codereview #retrographics #computerscience #techeducation #digital art

Пікірлер: 7
@LearnAgon
@LearnAgon 21 күн бұрын
Amazing work 🎉
@GeorgesChannel
@GeorgesChannel 21 күн бұрын
Thanks. I did a version with dynamic col and row count.
@pburdick7
@pburdick7 25 күн бұрын
Well done!
@GeorgesChannel
@GeorgesChannel 25 күн бұрын
Thank you for watching!
@antonjoly9601
@antonjoly9601 24 күн бұрын
The result is Beautiful! It's pronounced Lissazhou.
@GeorgesChannel
@GeorgesChannel 24 күн бұрын
Thanks for the correction. I should have looked it up or ask you.
@antonjoly9601
@antonjoly9601 24 күн бұрын
​@@GeorgesChannellike this linear code review. It's kind of fascinating. And the result is Beautiful! Or you can use the same J as in Jungle 😊
Smallest String Starting From Leaf - Leetcode 988 - Python
9:23
What the hell is NULL-LS  | FREE COURSE // EP 4
14:28
typecraft
Рет қаралды 60 М.
FOOTBALL WITH PLAY BUTTONS ▶️ #roadto100m
00:29
Celine Dept
Рет қаралды 51 МЛН
Why? 😭 #shorts by Leisi Crazy
00:16
Leisi Crazy
Рет қаралды 33 МЛН
Trágico final :(
01:00
Juan De Dios Pantoja
Рет қаралды 28 МЛН
How to maximize value from your core network
14:39
Ericsson
Рет қаралды 4
The Very BEST Commodore PLUS/4 Homebrew GAMES of Recent Years
12:50
Commodore Rediscovered
Рет қаралды 1,1 М.
25 nooby Python habits you need to ditch
9:12
mCoding
Рет қаралды 1,7 МЛН
Turning bad React code into senior React code
13:10
Cosden Solutions
Рет қаралды 83 М.
Understanding and implementing a Hash Table (in C)
24:54
Jacob Sorber
Рет қаралды 336 М.
Master Golang with Composition
27:31
Kantan Coding
Рет қаралды 1,5 М.
ChatGPT Can Now Talk Like a Human [Latest Updates]
22:21
ColdFusion
Рет қаралды 485 М.
The Only Unbreakable Law
53:25
Molly Rocket
Рет қаралды 312 М.
Save Work Efficiently on Your Computer 18/05/2024
0:51
UNIQUE PHOTO EDITING
Рет қаралды 308 М.
Приехала Большая Коробка от Anker! А Внутри...
20:09
РасПаковка ДваПаковка
Рет қаралды 77 М.
Эффект Карбонаро и бумажный телефон
1:01
История одного вокалиста
Рет қаралды 2,4 МЛН
Edit My Photo change back coloured with Bast Tech
0:45
BST TECH
Рет қаралды 335 М.
Fiber kablo
0:15
Elektrik-Elektronik
Рет қаралды 6 МЛН
Save Work Efficiently on Your Computer 18/05/2024
0:51
UNIQUE PHOTO EDITING
Рет қаралды 308 М.