'  LunaAVR-Demo für SerialComInstruments Paint-Instrument
'  -----------------------------------------------------------------------

avr.device = atmega328p
avr.clock = 16000000
avr.stack = 100

uart.baud = 115200
uart.Send.enable

Dim x, y, xx as integer
Dim w as float
Dim oldStr, newStr as string

do
  print "§GC<";
  print "#01M0<";
  
  wait 1
  
  print "§PC5<" ;  "§BC2<";
  print "§TS12;0<";
  print "§PT60;470; Hier wird vom Mikrocontroller gezeichnet <";
  
  
  print "§PC3<" ;  "§BC0<";
  print "§PR200;90;490;99<";
  print "§PC2<";
  print "§PR200;100;240;140<";
  
  print "§BC4<";
  print "§FR10;10;100;400<";
  
  print "§PC0<" ;  "§BC0<";
  print "§PL60;20;60;380<";
  
  
  print "§TS8;0<";
  for x = 20 to 380 step 20
    print "§BC0<";
    print "§PL60;" + str(x) +";70;" + str(x) + "<";
    print "§BC4<";
    print "§PT80;" + str(x + 10) +";" + str ((x -20)/10) + "<";
  next
  
  print "§BC0<";
  print "§FR20;20;50;380<";
  
  print "§BC3<" ;  "§PC3<";
  for y = 20 to 380 step 2
    print "#01M" + str(y/10) + "<";
    print "§BC3<" ; "§PC3<";
    print "§FR30;20;40;" + str(y) + "<";
    waitms 20
  next
  
  print "§BC0<";
  for x = 200 to 450 step 2
    print "§PC0<";
    print oldStr;
    newStr = "§PR" + str(x) + ";100;"  + str(x + 40) + ";140<"
    print "§PC2<";
    print newStr;
    oldStr = newStr
    waitms 50
  next
  
  wait 2
  
  print "§PC0<" ;  "§BC0<";
  print "§PR200;90;500;140<";
  
  wait 2
  
  print "§PC6<" ;  "§BC6<";
  print "§PR120;10;490;400<";
  print "§PC0<" ;  "§BC8<";
  print "§PR140;300;470;380<";
  
  print "§PC1<" ;  "§BC0<";
  
  print "§MT140;340<";
  for x = 2 to 328 step 4
    y = (fsin(x/3.0) * 30)
    print "§LT" + str(x + 140) + ";" + str(y + 340) +"<";
  next
  
  wait 3
  
  print "§PC1<" ;  "§BC1<";
  print "§CP300;150;80;0<";
  
  print "§PC0<" ;
  print "§MT300;150<";
  for x = 0 to 628 step 2
    y = (fsin(x/10.0) * 70)
    xx = (fcos(x/10.0) * 70)
    print "§PL300;150;" + str(xx + 300) + ";" + str(y + 150) +"<";
  next
  
  wait 3
  
loop