File: splash

package info (click to toggle)
brandy 1.23.6-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,268 kB
  • sloc: ansic: 39,421; makefile: 91; sh: 1
file content (17 lines) | stat: -rw-r--r-- 391 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
   10SYS "Brandy_TekEnabled",1,115200
   20MODE 74
   30VDU5:CLG
   40S%=8
   50ORIGIN 1024,780
   60FOR X%=-1024 TO 0 STEP 2
   70M%=-780
   80FOR Y%=-1212 TO 1400 STEP S%
   90V%=(Y%+FNA(X%,Y%))/2
  100IF M%<V% THEN M%=V%: PLOT 69,X%, V%: PLOT 69,-X%,V%
  110NEXT Y%
  120NEXT X%
  130VDU4:END
  140DEF FNA(X%,Y%)
  150LOCAL A%
  160A%=SQR(X%*X% + Y%*Y%)
  170=SIN(RAD(A%)*2)*200-A% DIV 5