home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / txl / 1_preis / work.txl < prev   
Text File  |  1991-02-04  |  378b  |  19 lines
  1. 010 let x=20
  2. 020 let y=40;
  3. 025 let x2=20;
  4. 027 let x3=20;
  5. 028 let y2=40;
  6. 029 let y3=40;
  7. 030 setpixel (x,y,4);
  8. 035 setpixel (x2,y2,10);
  9. 039 setpixel (x3,y3,8);
  10. 040 let y=140+(sin(x*pi/180)*100);
  11. 042 let y2=140+(sin(x*pi/145)*100);
  12. 043 let y3=140+(sin(x*pi/90)*50);
  13. 050 let x=x+1;
  14. 051 let x3=x3+1;
  15. 052 let x2=x2+1;
  16. 060 if x<640;
  17. 070 goto 30
  18. 080 setpixel (0,0,0);
  19.