private void buttonTrig_Click(object sender, EventArgs e)
{
Primitive x1 = 100;
Primitive y1 = 100;
Primitive x2 = 150;
Primitive y2 = 50;
Primitive radial = LDMath.Convert2Radial(x1, y1, x2, y2);
TextWindow.WriteLine(radial);
Primitive pos = LDMath.Convert2Cartesian(x1, y1, radial[1], radial[2]);
TextWindow.WriteLine(pos);
Primitive rotate = LDMath.Rotate(x1, y1, x2, y2, 90);
TextWindow.WriteLine(rotate);
}
private void buttonUnits_Click(object sender, EventArgs e)
{
Primitive aa = LDMath.Rotate(0, 0, 0, -100, 180);
Primitive view = LD3DView.AddView(500, 500, "True");
LD3DView.ResetCamera(view, 0, 0, -20, 0, 0, 1, 0, 1, 0);
LD3DView.AddDirectionalLight(view, "Red", 1, 0, 1);
LD3DView.AddDirectionalLight(view, "Green", 1, 0, -1);
LD3DView.AddDirectionalLight(view, "Blue", -1, 0, 1);
LD3DView.AddDirectionalLight(view, "Yellow", -1, 0, -1);
Primitive cube = LD3DView.AddCube(view, 1, "Red", "D");
LD3DView.SetBillBoard(view, cube);
for (int i = 1; i < 100; i++)
{
LD3DView.MoveCamera(view, i, 1, 1, 1);
}
//Primitive button = Microsoft.SmallBasic.Library.Controls.AddButton("Test", 50, 50);
//LDControls.SetButtonStyle(button, "Red", "Blue", "Green", "Black", "Black", "Black", 9, "True");
//GraphicsWindow.Width = 200;
//GraphicsWindow.Height = 200;
//Primitive title = "";
//for (int i = 1; i <= 20; i++)
//{
// title[i] = "TEST" + i;
//}
//Primitive dv = LDControls.AddDataView(200, 200, title);
//Primitive row = "";
//for (int i = 1; i <= 20; i++)
//{
// for (int j = 1; j <= 20; j++)
// {
// row[j] = Microsoft.SmallBasic.Library.Math.GetRandomNumber(1000000);
// }
// LDControls.DataViewSetRow(dv, i, row);
//}
//UnitSystem unitSystem = new UnitSystem();
//double[] values = new double[22];
//int i = 0;
//values[i++] = unitSystem.Convert(1, "[D.ft/cP.psi]+[ft3/day]", "ft3/day");
//values[i++] = unitSystem.Convert(1, "mu0.e0", "1/c2");
//values[i++] = unitSystem.Convert(1, "RC", "J/K/mol");
//values[i++] = unitSystem.Convert(1, "eQ", "Q");
//values[i++] = unitSystem.Convert(6, "min/mile", "min/Km");
//values[i++] = unitSystem.Convert(9.81, "m/s2", "ft/s2");
//values[i++] = unitSystem.Convert(1, "Avagadro.M.l", "1");
//values[i++] = unitSystem.Convert(1, "D.ft/cP.psi", "ft3/day");
//values[i++] = unitSystem.Convert(1, "psi+(14.69)", "psig");
//values[i++] = unitSystem.Convert(1, "Kilo.ft3/day", "ft3/day");
//values[i++] = unitSystem.Convert(1, "m(-1)", "1/in");
//values[i++] = unitSystem.Convert(1, "Kg/min2", "g/hr2");
//values[i++] = unitSystem.Convert(1, "mm", "m");
//values[i++] = unitSystem.Convert(1, "1/cN2", "1/N2");
//values[i++] = unitSystem.Convert(1, "pi.KJ", "N.m");
//values[i++] = unitSystem.Convert(100, "mC", "F");
//values[i++] = unitSystem.Convert(1, "BTU2", "J2");
//values[i++] = unitSystem.Convert(1, "ton", "tonne");
//values[i++] = unitSystem.Convert(1, "W", "Volt.Amp");
//values[i++] = unitSystem.Convert(1, "psi", "lbf/in2");
//values[i++] = unitSystem.Convert(1, "Kpsig", "Kpsi");
//values[i++] = unitSystem.Convert(1, "USD", "GBP");
}
private void buttonTest_Click(object sender, EventArgs e)
{
Primitive shp = Microsoft.SmallBasic.Library.Controls.AddButton("Button", 10, 10);
LDShapes.ReSize(shp, 100, 100);
LDShapes.ReSize(shp, 200, 200);
Primitive xx = LDFastArray.Add();
LDFastArray.Set(xx, "1 2 3", 24);
FieldInfo _primitive = typeof(Primitive).GetField("_primitive", BindingFlags.NonPublic | BindingFlags.Static | BindingFlags.IgnoreCase | BindingFlags.Instance);
Primitive aa = "1 23 45";
string bb = (string)_primitive.GetValue(aa);
Primitive sb = "1=1\\=\"hello\"\\;2\\=1\\;3\\=2\\;;2=1\\=3\\;2\\=test\\;3\\=3\\;;";
Primitive arr = LDFastArray.CreateFromValues(sb);
Primitive sb1 = LDFastArray.ToArray(arr);
Primitive a = LDFastArray.Add();
LDFastArray.Set2D(a, 2, 5, 10);
LDFastArray.Set2D(a, 2, 2, 20);
LDFastArray.Set2D(a, 1, 8, 30);
LDFastArray.Collapse(a);
Primitive b = LDFastArray.ToArray(a);
Primitive img = Microsoft.SmallBasic.Library.ImageList.LoadImage("https://upload.wikimedia.org/wikipedia/commons/thumb/d/d6/STS120LaunchHiRes-edit1.jpg/153px-STS120LaunchHiRes-edit1.jpg");
Primitive x1 = LDImage.Copy(img);
LDImage.EffectCharcoal(x1);
Primitive image = LDImage.NewImage(100, 100, "Red");
LDImage.OpenWorkingImage(image);
Primitive xml = LDxml.Open("C:\\Users\\Steve\\Documents\\SmallBasic\\steve\\sample.xml");
Primitive data = LDxml.ToArray();
LDxml.FromArray(data);
LDxml.Save("C:\\Users\\Steve\\Documents\\SmallBasic\\steve\\sample1.xml");
Primitive txt = Microsoft.SmallBasic.Library.File.ReadContents("C:\\Users\\Steve\\Documents\\SmallBasic\\steve\\txt.txt");
LDSearch.GetProof(txt, "");
LDSearch.GetWeb("bill gates");
return;
//TextWindow.Show();
//LDTextWindow.SetColours("Pink", "Orange");
//TextWindow.WriteLine("Hello World");
LDPhysics.ReadJson("C:\\Users\\Steve\\Documents\\SmallBasic\\steve\\LDPysics.json", 1, "False", "False", 0, 0);
LDWaveForm.PlayWave(256, 1000, "0=-1;1=1;5=0;");
Primitive shape = Shapes.AddRectangle(100, 100);
LDEffect.Bloom(shape, "");
Program.Delay(1000);
LDControls.AddDataView(GraphicsWindow.Width, GraphicsWindow.Height, "1=Hello;2=World;");
//string _urlTemplate = "https://api.flickr.com/services/rest/?sort=interestingness-desc&safe_search=1&license=1,2,3,4,5,6,7&api_key=";
//string _picUrlTemplate = "http://farm{0}.static.flickr.com/{1}/{2}_{3}.jpg";
byte[] array = Convert.FromBase64String("MWY5ZmI5ODE4Mjk2NzAwNTgwYmYzMzQwMjc5MzQ2YjY=");
//_urlTemplate += Encoding.UTF8.GetString(array, 0, array.Length);
TextWindow.WriteLine(Encoding.UTF8.GetString(array, 0, array.Length));
Primitive rtb = LDControls.AddRichTextBox(100, 100);
LDControls.RichTextBoxSetText(rtb, "Hello", "True");
LDCall.Compile("C:\\Users\\Steve\\Documents\\SmallBasic\\steve\\testinclude.sb");
Primitive include = LDCall.Include("C:\\Users\\Steve\\Documents\\SmallBasic\\steve\\testinclude.exe");
TextWindow.WriteLine(include);
LDUtilities.FixFlickr();//FCClipboard.GetText
LDCall.CallAsync("SmallBasicLibrary.dll", "Microsoft.SmallBasic.Library", "Flickr", "GetRandomPicture", "Car");
string tempFileName = Path.GetTempFileName();
Stream stream = null;
Stream stream2 = null;
WebResponse webResponse = null;
try
{
string url = "https://a75b9da71f50095fc4dc527d860da4427f274b07.googledrive.com/host/0B9s0FFxEQDb6T3VUdEw3QTJDS1E/efecast00.mp3";
Uri uri = new Uri(url);
WebRequest webRequest = WebRequest.Create(url);
webResponse = webRequest.GetResponse();
stream = System.IO.File.Open(tempFileName, FileMode.OpenOrCreate, FileAccess.Write, FileShare.Read);
byte[] buffer = new byte[16384];
long num = webResponse.ContentLength;
stream2 = webResponse.GetResponseStream();
int readCount = stream2.Read(buffer, 0, 16384);
while (readCount > 0L)
{
stream.Write(buffer, 0, readCount);
readCount = stream2.Read(buffer, 0, 16384);
}
}
catch (Exception ex)
{
TextWindow.WriteLine(ex.Message);
}
finally
{
if (stream != null)
{
stream.Close();
}
if (stream2 != null)
{
stream2.Close();
}
if (webResponse != null)
{
webResponse.Close();
}
}
LDGraphicsWindow.SetFontFromFile("C:\\temp\\04b.ttf");
TextWindow.Show();
//Primitive source = "class Evaluator { public static function Eval(expr : String) : String { return eval(expr); } }";
//LDInline.IncludeJScript(source,"","");
//Primitive result = LDInline.Call("Eval","5+3");
//TextWindow.WriteLine(result);
//TextWindow.Hide();
Primitive x = LDMath.Evaluate("1e6 + 6/4");
Primitive y = LDMath.Evaluate2("1e6 + 6/4");
//TextWindow.Hide();
TextWindow.WriteLine("HERE " + x + " :" + y);
LDImage.LoadSVG("C:\\temp\\snowtitle.svg");
TextWindow.WriteLine(LDNetwork.LAN(1000));
GraphicsWindow.Show();
LDText.GetWidth("Hello World");
Primitive server = LDServer.Start("True");
LDClient.Connect(server, "True");
LDClient.SendMessage("Hello1");
LDClient.SendMessage("World1");
LDServer.Disconnect("Client1");
LDClient.Connect(server, "True");
LDClient.SendMessage("Hello3");
LDClient.SendMessage("World3");
GraphicsWindow.Show();
LDGraphicsWindow.FloodFill(200, 100, "#5588ee");
//Program.Delay(1000000);
//Primitive languages = LDTranslate.Languages();
//Primitive indices = SBArray.GetAllIndices(languages);
//for (int i = 1; i <= SBArray.GetItemCount(languages); i++)
//{
// TextWindow.WriteLine(indices[i] + " : " + languages[indices[i]]);
//}
//Primitive result = LDTranslate.Translate("Hello World", "", "de");
//TextWindow.WriteLine(result);
//TextWindow.WriteLine(GraphicsWindow.FontName);
//GraphicsWindow.DrawText(10, 10, "Hello World");
//Primitive result = LDGraphicsWindow.SetFontFromFile("C:\\Users\\Public\\Documents\\SmallBasic\\steve\\WWFlakes.ttf");
//TextWindow.WriteLine(GraphicsWindow.FontName);
//GraphicsWindow.DrawText(10, 50, "Hello World");
//PrivateFontCollection fntColl = new PrivateFontCollection();
//fntColl.AddFontFile("C:\\Users\\Public\\Documents\\SmallBasic\\steve\\WWFlakes.ttf");
//buttonTest.Font = new Font(fntColl.Families[0], 16, FontStyle.Regular);
//LDDictionary.GetDefinition("Car");
}
