0 Members and 2 Guests are viewing this topic.
.WINDOWXPClrDrawClrHome32->Y48->X[E0C0A00000000000]->Pic1Repeat getkey(15)Pt-On(X,Y,Pic1Line(0,0,95,0 \\Lines for a borderLine(0,63,95,63 \\Line(0,0,63,0 \\Line(95,0,95,63 \\If getkey(1)If Y(doesn't equal)61Y+1->YEndEndIf getkey(2)If X(doesn't equal)1X-1->XEndEndIf getkey(3)If X(doesn't equal)93X+1->XEndEndIf getkey(4)If Y(doesn't equal)1Y-1->YEndEndClrDrawDispGraphEnd
ClrDrawClrHome
Line(0,0,95,0 \\Lines for a borderLine(0,63,95,63 \\Line(0,0,63,0 \\Line(95,0,95,63 \\
Y+1->Y...X-1->X
.WINDOWXPFix 532->Y48->XClrHome[E0C0A00000000000]->Pic10->ARepeat getKey(15)Lbl 1ClrDrawIf A=1Text(2,56,"STARTEndPt-On(X,Y,Pic1If getKey(1)Y+1->YEndIf getKey(2)X-1->XEndIf getKey(3)0+1->XEndIf getKey(4)Y-1->YEndIf getKey(54)Goto 2EndDispGraphEndLbl 2If Y>54 and X<251->AEndGoto 1
.WINDOWXPFix 532->Y48->XClrHome[E0C0A00000000000]->Pic10->ARepeat getKey(15)ClrDrawPt-On(X,Y,Pic1If getKey(1)Y+1->YEndIf getKey(2)X-1->XEndIf getKey(3)X+1->XEndIf getKey(4)Y-1->YEndIf Y>54?X<25?getKey(54)Text(2,56,"STARTEndDispGraphEnd
Here's a big optimization of your code that you might want to do yourself or not, but anyway, it's not too hard to figure out after you experiment a lot. (but I'll leave it up to you if ya wanna use it)Code: [Select]min(max(getKey(3)-getKey(2)+X+1,1),96)-1->Xmin(max(getKey(1)-getKey(4)+Y+1,1),64)-1->Y
min(max(getKey(3)-getKey(2)+X+1,1),96)-1->Xmin(max(getKey(1)-getKey(4)+Y+1,1),64)-1->Y
Hmm, where is the recti command?