Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- _Title "C-128 Hat Demo"
- CONST pi = 3.1415926
- RANDOMIZE TIMER
- Rem aspect = 4 / 3
- DIM W AS INTEGER, H AS INTEGER
- W = 1280: H = 960
- DIM CW AS INTEGER, CH AS INTEGER
- CW = W \ 2: CH = H \ 2
- DIM SX AS DOUBLE, SY AS DOUBLE
- SX = 5: SY = 5
- pixel = _RGB32(242, 242, 142)
- SCREEN _NewImage(W, H, 32)
- XP = 90: YP = 45
- XR = 3.14 * 1.5
- XF = XR / XP
- ZF = XR / YP
- FOR ZI = -YP TO YP
- ZT = ZI * XP / YP
- XL = INT(SQR(ABS(XP * XP - ZT * ZT)) + 0.5)
- FOR XI = -XL TO XL
- XT = SQR(XI * XI + ZT * ZT) * XF
- YY = (SIN(XT) + SIN(XT * 3) * 0.4) * YP
- X1 = INT(SX * (XI + ZI) + CW)
- Y1 = INT(SY * (YY - ZI) + CH)
- LINE (X1, H - Y1)-(X1, H - Y1 + 1), pixel
- NEXT XI
- NEXT ZI
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
