Last active
April 19, 2025 02:17
-
-
Save fu-sen/f31cf57a272a5fee90aecbb5f7a691e8 to your computer and use it in GitHub Desktop.
サインカーブ ( Sine Curve ) - SHARP POCKET COMPUTER PC-G850 series BASIC - https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 ' Sine Curve | SHARP POCKET COMPUTER PC-G850 series BASIC | |
| 2 ' Copyright (c) 2024-2025 BALLOON | FU-SEN | |
| 3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024-2025 | |
| 100 DEGREE | |
| 110 CLS | |
| 120 FOR X=0 TO 143 STEP 2 | |
| 130 PSET (X,24) | |
| 140 NEXT X | |
| 150 O=24 | |
| 160 FOR X=1 TO 143 | |
| 170 Y= SIN (-X/144*360)*24+24 | |
| 180 LINE (X-1,O)-(X,Y) | |
| 190 O=Y | |
| 200 NEXT X |
fu-sen
commented
Jan 27, 2025
Author
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment