- 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:

(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

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