- GUI creator for xDCS
- 16 Apr 2009 10:06:13 pm
- Last edited by Eeems on 20 Apr 2009 10:28:07 am; edited 4 times in total
well, I've been playing around with xDCS recently and I came up with this idea here so tell me what you think. If you want to help me with this it would be great.
also, I came up with a program that I might use for resizing the window you are adding to the GUI, this is the source:
Code:
(I know that it isn't the best set-up with the labels and such, but I hadn't gotten around to optimizing yet)
I also have a little text wrapping program that I might use as well, it wraps text on the graph screen inside an invisible box between 2 coordinates.
this is the code
Code:
it also clears the box if you want to clear a certain area of the screen
also, I came up with a program that I might use for resizing the window you are adding to the GUI, this is the source:
Code:
:"XDCS
:real(10,0,0
:20→X:20→Y
:1→S
:While 1
:real(0
:{1,0,0,X,Y,1,2,0,1→L1
:" →Str0
:prgmXTEMP000
:0
:Repeat Ans
:real(8
:End
:Ans→K
:X+S(K=3 or K=8 or K=6)-S(K=2 or K=7 or K=5→X
:Y-S(K=4 or K=7 or K=8)+S(K=1 or K=5 or K=6→Y
:S+(K=10)-(K=11→S
:If K=9:Then
:real(10,2
:ClrDraw
:Return
:End:End
(I know that it isn't the best set-up with the labels and such, but I hadn't gotten around to optimizing yet)
I also have a little text wrapping program that I might use as well, it wraps text on the graph screen inside an invisible box between 2 coordinates.
this is the code
Code:
:If L1(1
:Then
:DelVar CFor(A,L1(3),L1(5),6)
:For(B,L1(2),L1(4),4)
:C+1→C
:If C<239 and C≤length(Str0
:Then
:Text(A,B,sub(Str0,C,1
:End:End:End
:If not(L1(1
:Then
:For(A,L1(3),L1(5),6)
:For(B,L1(2),L1(4),4)
:If A<55
:Text(A,B," "
:End:End:End
it also clears the box if you want to clear a certain area of the screen