Rect from lines

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|530\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Rect from lines
Fri, 02 Apr 2010, 19:25
dna	It may be too trivial but I saw tfis code: SeedRnd MilliSecs() Function rec(x,y,w,h) Line x,y,x+w,y Line x+w,y,x+w,y+h Line x+w,y+h,x,y+h Line x,y+h,x,y Return Abs(w*h) End Function Graphics 800,600,0,2 Text 1,5,"Hi there this draws a rectangle" Color 22,220,79 AppTitle "area is "+Rec(Rnd(500),Rnd(280),200,300) WaitKey:End --v and wondered about speed differences. -=-=- DNA
Sat, 03 Apr 2010, 00:54
Jayenkai	Best way to find a speed issue out is by bulk-testing it. Graphics 800,600,0,2 SetBuffer BackBuffer() Function rec(x,y,w,h) Line x,y,x+w,y Line x+w,y,x+w,y+h Line x+w,y+h,x,y+h Line x,y+h,x,y End Function Dim start(10),fin(10) For n=0 To 9 Cls start(n)=MilliSecs() If (n Mod 2)=0 For m=1 To 50000 Rect(100,100,600,400,0) Next EndIf If (n Mod 2)=1 For m=1 To 50000 rec(100,100,600,400) Next EndIf fin(n)=MilliSecs() Flip Next Cls For n=0 To 9 Text ((n Mod 2)400)+200,((n/2)+2)50,fin(n)-start(n),1,1 Next Flip WaitKey() --v Turn off debug, then run, and wait.. Once it's done, the left millisecs are 50,000* Rect, and the right millisecs are 50,000* Rec Left one's faster. -=-=- ''Load, Next List!''