Aurora Compiler - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|559\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Basic Basement -> Aurora Compiler
Mon, 14 Apr 2008, 00:53
codingmonkey	I found this compiler a few days ago and over at Ionic Wind. Its free but what a shame there is hardly any support for it. You have to pay for technical support and to join the forums. Documentation is literally nil. It is mostly object oriented base. And I'm learning by following the examples and extrapolating the 3D classes and 3d programs while I do 2d programming and get used to it. An example program and with comments will follow.
Mon, 14 Apr 2008, 01:08
codingmonkey	//first screen 2d program //define UINT as unsigned integer for return type. // declare and import C timer function //could be from file, DLL, API, C declaration #typedef UINT unsigned int; DECLARE Import,timeGetTime(),UINT; //main routine...publicly accessed of course global sub main() { int x,y; int spdx; int length; int mTimer; string txt1; //CD2SCREEN,CDirectinput, CD2Surface are built in //classes and assigned to and as class varibles. C2DSCREEN screen1; CDirectinput dxk; //use the Createfullscreen method() of CD2SCREEN //of the screen1 class variable screen1.Createfullscreen(800,600,32); //declare and assign a pointer of the DirectX 2d surface //and assign it to the retrieval of the back buffer. //Of which is another method() of screen1 of CD2Screen. C2DSurface back = screen1.GetBack(); //initialize the directx input systems //and attach them to the screen dxk.Init(screen1); screen1.frontpen(rgb(255,10,10)); screen1.backpen(rgb(0,50,255)); txt1="Chamelon"; length=Len(txt1); x=10; y=100; spdx=2; //get current system time mTimer=timeGetTime(); do { //fill/clear surface via the back pointer //and with a blue like color back->Fill(RGB(0,50,255)); screen1.WriteText(x,y, txt1); //set up a timer loop for about 25 milseconds do { } until (timeGetTime() - mTimer)>=25; screen1.Flip(0); x=x+spdx; if(x>=790-length8) or (x<=0) { spdx=-spdx; } //get new current sytem time mTimer=timeGetTime(); }until dxk.Keydown(DIK_ESCAPE); screen1.Closescreen(); } --v
Mon, 14 Apr 2008, 02:14
JL235	I don't quite get it. Are all the methods your calling on scree1 static methods of C2DSCREEN? I've not used Aurora, but that's kinda how it looks to me.
Mon, 14 Apr 2008, 02:51
codingmonkey	yes, these methods are class methods and are associated as instance methods. When the instance is created. Although, you can also create your own classes and methods and even and include and use the built-in ones in them as well. here is an example from the sample programs. I'm learning as I go as well. /* The frags demo. Hold down the left mouse button and move around to generate the fragments. Press ESC to exit. For Aurora Alpha 3 or greater / #option "float" #define width 640 #define height 480 #define intensity 20 struct Frag { float x; float y; float xs; float ys; int r; int g; int b; } class TheApp { declare TheApp(); declare _TheApp(); declare CreateFrags(int mx,int my); declare UpdateFrags(); declare RenderFrags(); declare Run(),int; //variable of the app C2DScreen screen; CPointerList frags; float gravity; int ptx,pty,speed; } TheApp::TheApp() { gravity = .1f; temp = 0; ptx = 0; pty = 0; done=0; speed = 0; //create the linked list of frags. frags.Create(); } TheApp::_TheApp() { frags.RemoveAll(true); } TheApp::Run(),int { //Create the screen if(screen.CreateFullScreen(width,height,32) < 0) { MessageBox(0,"Couldn't creat the screen..sorry","Error"); return false; } //turn off the cursor screen.SetCursor(CS_CUSTOM,0); //get a pointer to the back buffer C2DSurface back = screen.GetBack(); do { back->Fill(0); UpdateFrags(); ptx = screen.MouseX(); pty = screen.MouseY(); if( GETKEYSTATE(0x01) ) CreateFrags(ptx,pty); back->Lock(); back->DrawRect( ptx,pty-3,1,7,RGB(255,255,255) ); back->DrawRect( ptx-3,pty,7,1,RGB(255,255,255) ); RenderFrags(); back->Unlock(); screen.WriteText(4,20,"FPS: " + NumToStr(speed,0) + " Esc to exit"); speed = screen.Flip(1); }Until GetKeyState(0x1B); screen.CloseScreen(); return true; } TheApp::UpdateFrags() { void pos = frags.GetFirst(); while pos { Frag f = frags.GetData(pos); f->x += f->xs; f->y += f->ys; f->ys += gravity; If((f->x < 0) \|\| (f->x >= width) \|\| (f->y >= height)) { pos = frags.Remove(pos,TRUE); f = NULL; } Else If (f->b > 0) { f->b -= 5; } Else If (f->g > 0) { f->g -= 3; } Else If (f->r > 0) { f->r -= 1; If f->r=0 { pos = frags.Remove(pos,TRUE); f = NULL; } } if( f ) pos = frags.GetNext(pos); } } TheApp::CreateFrags(int mx,int my) { int count = RAND(intensity)+intensity; float an,anstep = 360.0f/count; an=RND(anstep); for(int k=1;k <= count; k++) { Frag f = frags.Add(NEW(Frag,1)); f->x=mx; f->y=my; f->xs=FCosD(an) (Rnd( 1 ) + 3f); f->ys=FSinD(an) * (Rnd( 1 ) + 3f); f->r=255; f->g=255; f->b=255; an += anstep; } RETURN; } TheApp::RenderFrags() { C2DSurface back = screen.GetBack(); void pos = frags.GetFirst(); while(pos) { Frag *f = frags.GetData(pos); back->DrawRect( f->x-1,f->y-1,3,3,RGB(f->r,f->g,f->b) ); pos = frags.GetNext(pos); } } global sub main () { TheApp app; app.Run(); } --v
Mon, 14 Apr 2008, 03:04
JL235	I was thinking more about, why don't you just call them directly from the class? Why use an empty intermediate variable instead? This makes the code look misleading. i.e. screen.CreateFullScreen(800, 600) looks like an instance method CreateFullScreen being called on the object stored in the variable screen, but it's actually a static method being called on C2DSCREEN. Just a few weeks one of my lecturers was advising us that this kind of behaviour should be avoided (although that was in respect to Java) and that it's a bad idea. He went on to give an example of how he once had to spend a whole week fixing a bug caused because of this kind of code.
Mon, 14 Apr 2008, 03:36
codingmonkey	I think you don't quite get it. Perhaps, try it out for yourself. there are ready made classes with built in methods that you instantiate with a variable. You can still create your own classes and methods as well. As well as create classes that contain these ready made built in classe and methods that you instantiate too. When you create your own class and with methods, don't you somtimes use the ready made commands and built-in functions of that programming language? Yes, you do. instantiate these ready made classes and built in methods and attributes too. create your own classes and associated methods and attributes too. or even mix them together in a hybrid class type.
Mon, 14 Apr 2008, 03:57
JL235	Ok, but I'll try asking from another point of view. Would the following: C2DSCREEN screen1; screen1.Createfullscreen(800,600,32); --v be the same as: C2DSCREEN.Createfullscreen(800,600,32); --v Because you aren't creating or placing an instance of C2DSCREEN in screen1, so I'd presume it is null by default. i.e. is Createfullscreen static or not static?
Mon, 14 Apr 2008, 04:07
codingmonkey	think of a blueprint design and ready made methods and instructions. The supervisor and his workmen make a product from the blueprint designs. They slap on a name for the product.
Tue, 15 Apr 2008, 16:09
codingmonkey	now, here is a modified version of the program. it hides the mouse and loads a bitmap image as background. //first screen 2d program #typedef UINT unsigned int; DECLARE Import,timeGetTime(),UINT; global sub main() { int x,y; int length; int mTimer; string txt1; C2DSCREEN screen1; CDirectinput dxk; CBITMAP pic; screen1.Createfullscreen(640,480,32); C2DSurface *back = screen1.GetBack(); pic.LoadFromFile("C:\\mediafiles\\lake1.bmp"); dxk.Init(screen1); //make drawing mode Transparent. //for the text and other drawing operations. screen1.DrawMode(TRANSPARENT); screen1.frontpen(rgb(255,10,10)); // screen1.backpen(rgb(0,0,0)); //turn off the cursor screen1.SetCursor(CS_CUSTOM,0); txt1="Chamelon"; length=Len(txt1); x=10; y=100; mTimer=timeGetTime(); do { // back->Fill(RGB(0,50,255)); pic.Render(screen1, 0,0, 640,480); screen1.WriteText(x,y, txt1); do { } until (timeGetTime() - mTimer)>=10; screen1.Flip(1); mTimer=timeGetTime(); }until dxk.Keydown(DIK_ESCAPE); screen1.Closescreen(); } --v I wish the documentation was more complete but I have fun and a challenge fiquring out the commands and functions.