Here is how you make your own commands, for use in Turing, like the built in ones, drawbox, drawline, etc. This can even be used for data processing, like calculate(supplyvariablehere)
heres what you do:
First, make a procedure:
| code: |
procedure draw3dbox |
Next, add parameters, they're the things that you put in brackets after the command, eg.
| code: |
drawline(x,y,x2,y2,clr)%These are parameters, in the brackets. |
All the parameters are listed with their type after, separated by commas when being declared with the procedure. So, it now looks like this:
| code: |
procedure draw3dbox (x1 : int, y1 : int, x2 : int, y2 : int, x3 : int, y3 : int, height : int, clr : int) |
Next, put the stuff to do inside the procedure, and end it.
| code: |
procedure draw3dbox (x1 : int, y1 : int, x2 : int, y2 : int, x3 : int,
y3 : int, height : int, clr : int) %Add parameters, like for drawbox, the stuff you put in brackets, (x,y,x2,y2,colour) drawline (x1, y1, x2, y2, clr) %put the stuff that the procedure will do, using the drawline (x1, y1, x1, y1 + height, clr) %parameter variables above. drawline (x2, y2, x2, y2 + height, clr) drawline (x1, y1 + height, x2, y2 + height, clr) drawline (x2, y2, x3, y3, clr) drawline (x3, y3, x3, y3 + height, clr) drawline (x2, y2 + height, x3, y3 + height, clr) drawline (x1, y1 + height, x1 + (x3 - x2), y1 + height + ((y3 - y2)), clr) drawline (x3, y3 + height, x1 + (x3 - x2), y1 + height + ((y3 - y2)), clr) end draw3dbox |
And lastly, call your procedure, with parameters, like you would drawline, etc..
| code: |
%draw3dbox(x1, y1, x2, y2, x3, y3, height, clr) draw3dbox (100, 100, 200, 100, 250, 150, 100, 7) |
If you are unable to cut and paste broken up code (
) then here is the full code i created.
| code: |
%first, make a procedure. procedure draw3dbox (x1 : int, y1 : int, x2 : int, y2 : int, x3 : int, y3 : int, height : int, clr : int) %Add parameters, like for drawbox, the stuff you put in brackets, (x,y,x2,y2,colour) drawline (x1, y1, x2, y2, clr) %put the stuff that the procedure will do, using the drawline (x1, y1, x1, y1 + height, clr) %parameter variables above. drawline (x2, y2, x2, y2 + height, clr) drawline (x1, y1 + height, x2, y2 + height, clr) drawline (x2, y2, x3, y3, clr) drawline (x3, y3, x3, y3 + height, clr) drawline (x2, y2 + height, x3, y3 + height, clr) drawline (x1, y1 + height, x1 + (x3 - x2), y1 + height + ((y3 - y2)), clr) drawline (x3, y3 + height, x1 + (x3 - x2), y1 + height + ((y3 - y2)), clr) end draw3dbox %This will therefore draw a 3dbox when you use: %draw3dbox(x1,y1,x2,y2,x3,y3,height,colour) draw3dbox (100, 100, 200, 100, 250, 150, 100, 7) %Voila. This took me a while to get the top portioins angled right, %and they still look a little weird, oh well :) |
Enjoy!
