File: sphere

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 (7 lines) | stat: -rw-r--r-- 184 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
 
   10 SYS "Brandy_TekEnabled",1, 115200
   20 VDU5:CLG
   30 S%=400
   40 VDU29,640;512;
   50 MOVE 0,0
   60 FOR A=0 TO 126 STEP .125: DRAW S%*SINA,S%*COSA*SIN(A*.95):NEXT
   70 VDU4