Skip to content

Instantly share code, notes, and snippets.

@fu-sen fu-sen/sin.bas
Created Jul 9, 2019

Embed
What would you like to do?
サインカーブ Sine curve | MSX-BASIC https://msxjpn.jimdo.com/
' Sine curve | MSX-BASIC
' Copyright (c) 2019 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
' The MIT License (MIT) - https://gist.github.com/fu-sen/7e55ee56a67e07d804db9379178e3cb5
10 COLOR 15,4,7:SCREEN 2
20 LINE(0,96)-(255,96),14
30 FOR X=0 TO 255
40 Y=96*(1-3.1415927*2*X/192)
50 PSET(X,Y),15
60 NEXT X
70 I$=INPUT$(1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.