home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / txl / 1_preis / sinus.txl < prev    next >
Text File  |  1991-01-18  |  596b  |  27 lines
  1. 001 cls 
  2. 005 movewindow (0,0,640,300);
  3. 007 typeset (5,22,20,900,0,0,0);
  4. 008 locate (130,50);
  5. 009 print "Multitasking ade....";
  6. 010 locate (0,0);
  7. 012 setcolor (4);
  8. 013 roundrect (124,85,516,215,40,40);
  9. 014 setcolor (1);
  10. 015 roundrect (130,90,510,210,40,40);
  11. 020 titlewindow "SINUSKURVE";
  12. 030 for x=140 to 500 step 5;
  13. 040 for y=95 to 205 step 5;
  14. 050 setpixel (x,y,3);
  15. 060 next  
  16. 070 next 
  17. 075 let yalt=0;
  18. 080 for x=140 to 500;
  19. 090 let y= 150+(sin((x-140)*pi/180)*50);
  20. 092 if yalt<>y;
  21. 094 setpixel (x,y,14);
  22. 100 let yalt=y;
  23. 110 next 
  24. 115 titlewindow 
  25. 120 typeset 
  26. 130 end 
  27.