Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|392\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Mini Challenges -> Write : Clock
Fri, 13 Nov 2009, 03:13
Jayenkai	Write a really nice looking clock! It could be a realtime clock, an ingame countdown, or whatever. Make it as nice as you can. ---- The Write Rhyme Print text and draw boxes, draw circles and lines. Use things that within your language you'd find. If you need a package for painting to do it, You haven't quite managed to keep in the spirit. -=-=- ''Load, Next List!''
Fri, 13 Nov 2009, 04:44
Jayenkai	Nice and circular, with added Platdude colour scheme! Graphics 800,600,32,2 SetBuffer BackBuffer() hr#=0:min#=0:sec#=0 whr#=0:wmin#=0:wsec#=0 Repeat Cls wmills=Int(Float(MilliSecs() Mod 1000) / 10) If Abs(mills-wmills)>10 Then wtime$=CurrentTime$() wsec=Int(Mid$(wtime,7,2)) wmin=Int(Mid$(wtime,4,2)) whr=((Int(Mid$(wtime,1,2)) -1) Mod 12)+1 mills=mills-((mills-wmills)/2) sec=sec-((sec-wsec)/8) min=min-((min-wmin)/8) hr=hr-((hr-whr)/8) If Abs(mills-wmills)<2 Then mills=wmills If Abs(sec-wsec)<2 Then sec=wsec If Abs(min-wmin)<2 Then min=wmin If Abs(hr-whr)<2 Then hr=whr s=100 Color 255,255,0:Poly 400,300,hr,s,1,12 s=s-18 Color 255,125,0:Poly 400,312,min,s,0 s=s-18 Color 0,125,255:Poly 400,324,sec,s,0 s=s-18 Color 50,0,0:Poly 400,336,50,s,wmills,100,0 Flip False Until KeyDown(1) Function Poly(x#,y#,n,sz#,o#=0,t#=60,show=1) e#=360.0/t For m#=0 To n ang#=(me#)+(oe#) dx#=x#+Sin(ang)sz# dy#=y#-Cos(ang)sz# Oval wx-2,wy-2,5,5,1 wx=dx:wy=dy Next If show=1 Then Text x,y,n,1,1 End Function --v -=-=- ''Load, Next List!''
Sun, 29 Nov 2009, 08:51
dna	A nice clever looking clock.
Sat, 23 Jan 2010, 03:26
Teasy	Time is a creation of the mind Const sw = 320 ; screen width/height Const sh = 240 Graphics sw,sh , 0,3 SetBuffer BackBuffer() Const graphspanx = sw.45 ; the total size of the graphic display Const graphspany = sh.45 Const graphminsepx = sw/10 ; ms/second/minute/hour radial separation Const graphminsepy = sh/10 Const graphsecsepx = graphminsepx * 2 Const graphsecsepy = graphminsepy * 2 Const graphmilsepx = graphminsepx * 3 Const graphmilsepy = graphminsepy * 3 Const blocksizex = sw/16 ; size of a single block Const blocksizey = sh/16 Const blockdistx# = blocksizex/2 ; distortion (positional) Const blockdisty# = blocksizey/2 Const blockdistqo# = .5 ; distortion quantity offset/size Const blockdistqs# = .4 Const blockdistf# = .1 ; fluxuation speed Const blockdepth = sw/32 ; depth differentiation [UNIMPLEMENTED] Type block Field x,y ; position Field r,g,b ; color Field cat ; category (for resetting values) End Type Global numblocks Function newblock( x,y , r,g,b , cat ) Local block.block = New block block\x = x block\y = y block\r = r block\g = g block\b = b block\cat = cat numblocks = numblocks + 1 End Function Const wavesize = 360 ; how long the tail of the visible wave is (in degrees) Const waveshapes = 3 ; highest number of waveshape to use Const waveshapechange = 5 ; time between automatic waveshape changes (in seconds) Global waveshape = 3 ; active waveshape (can modify the functions to be independent tho) Global wavepolys = 3 ; number of polygons to use for the polygon wave function [UNIMPLEMENTED] Global wavelock = False ; lock = do not automatically change shape Function newblockwave( fa , num , r,g,b , dx,dy , cat ) ; Param fa ; front angle/head (bright) ; Param num ; number of blocks to create/draw ; Param r,g,b ; color ; Param dx,dy ; distance from outer-most ring ; Param cat ; category - for resetting mainloop variables Local ra = fa - wavesize ; rear angle/tail (dark) Local n ; number iterator For n = 1 To num Local a# = Float (n-1) * wavesize / num + ra ; angle Local x = waveshapex( graphspanx-dx , a ) ; position Local y = waveshapey( graphspany-dy , a ) Local c# = Float (n-1) / num ; color brightness newblock x,y , cr,cg,cb , cat Next End Function ; unified wave function Function waveshapex$( d#,a# ) a = RangeFloat( a , 360 ) ; cap angle to 0..360 ; ;--3 ;sides = wavepolys ;div# = 360. / sides ;ra1 = Floor( a / div ) div ;a2# = a + div ;If a2 >= 360 ; a2 = a2 - 360 ;End If ;ra2 = Floor( a2 / div ) * div ;;;If Abs( ra2-ra1 ) >= 180 ;;; ra2 = ra2 + 360 ;;;End If ;;;posa# = (a-ra1)/(ra2-ra1) ;;;ra3 = ra1+(ra2-ra1)posa ;da1# = Sin( a-ra1 ) ;da2# = Sin( ra2-a ) ;;;da3# = Sin( a-ra1 ) d ;ra3# = (da1+da2)/2dPi-d2 ;Return ra3;ra1+" "+ra2+" "+posa+" "+ra3 ; ;--2 ;sides = 4 ;Return Sin( 360. / (sides+1) a + 0 ) * d ; ;--1 ;v# = Sin( a ) * d ;limit = a/4 ;If Abs( v ) > a/limit ; a = div * Sgn( v ) ; Select waveshape Case 0 ; sine wave (1D) Return Sin( a ) * d Case 1 ; triangle wave (1D) a = a + 90 If a >= 360 a = a - 360 End If If a < 180 Return (a/90-1)d ElseIf a >= 180 Return (270-a)d/90 End If Case 2 ; cube shape (2D) a = a + 45 If a >= 360 a = a - 360 End If If a < 90 ; move right Return (a/45-1)d ElseIf a < 180 ; stay right Return d ElseIf a < 270 ; move left Return (5-a/45)d ElseIf a < 360 ; stay left Return -d End If Case 3 ; triangle shape (2D) a = a + 225 If a >= 360 a = a - 360 End If If a < 120 Return (1-a/60)d ElseIf a < 360 Return (a/120-2)d End If Case 4 ; saw wave (1D) a = a + 180 If a >= 360 a = a - 360 End If Return ((a/180)-1)d Case 5 ; square wave (1D) a = a + 180 If a >= 360 a = a - 360 End If Return (Int(a/360)2-1)d End Select End Function ; unified wave function Y component Function waveshapey#( d#,a# ) a = RangeFloat( a , 360 ) ; ;sides = wavepolys ;div# = 360. / sides ;ra1 = Floor( a / div ) div ; ;Return waveshapex( d,a-div/2 ) ; Select waveshape Case 0 ; sine wave (1D) Return Sin( a-90 ) * d Case 1 ; triangle wave (1D) a = a - 90 If a < 0 a = a + 360 End If Return waveshapex( d,a ) Case 2 ; cube shape (2D) a = a - 90 If a < 0 a = a + 360 End If Return waveshapex( d,a ) Case 3 ; triangle shape (2D) a = a + 225 If a >= 360 a = a - 360 End If If a < 120 Return d ElseIf a < 240 Return (3-a/60)d ElseIf a < 360 Return (a/60-5)d End If Case 4 ; saw wave (1D) a = a - 180 If a < 0 a = a + 360 End If Return waveshapex( d,a ) Case 5 ; square wave (1D) a = a - 90 If a < 0 a = a + 360 End If Return waveshapex( d,a ) End Select End Function ; solid range capper (with ~unlimited range overflow) Function RangeFloat#( Value# , Max#=360 ) If Value < 0 Then Return Max - Abs( Value ) Mod Max If Value >= Max Then Return Value Mod Max Return Value End Function Goto skip For o = 0 To 360 Step 360/16 Print RSet(o,3)+": "+waveshapex( 1 , o ) Next WaitKey ;End Goto skip h1 = sh/8 ; height cy1 = sh-h1-1 ; center position h2 = sh1/4 cy2 = sh/2-h2/2 s1 = sh/32 ; size Repeat If KeyHit( 57 ) waveshape = waveshape + 1 If waveshape > waveshapes waveshape = 0 End If End If Color 255,255,255 Line 0,cy1-h1 , sw,cy1-h1 Line 0,cy1+h1 , sw,cy1+h1 For a# = 0 To 360 ; angle ; 1d shape oy2 = y2 ; old position oy3 = y3 y2 = waveshapex( h1 , a ) ; new position y3 = waveshapey( h1 , a ) ox2 = x2 x2 = asw/360. If a > 0 Color 128,64,0 Line ox2,oy3+cy1 , x2,y3+cy1 Rect ox2-s1/2,oy3+cy1-s1/2 , s1,s1 Color 255,128,0 Line ox2,oy2+cy1 , x2,y2+cy1 Rect ox2-s1/2,oy2+cy1-s1/2 , s1,s1 End If ; 2d shape ox = x ; old position oy = y x = sw/2+waveshapex( h2 , a ) ; new position y = cy2+waveshapey( h2 , a ) If a > 0 Color 0,128,255 Line ox,oy , x,y Rect ox-s1/2,oy-s1/2 , s1,s1 End If Next Flip Delay 1 Cls Until KeyHit( 1 ) ; esc End .skip Const ui = 50 ; update interval (in ms) Local t$ ; current time (text) Local ms,lu ; current time (millisecs), last update time Local h,m,s ; hours, minutes, seconds Local oh = 1 ; old hours, mins, secs Local om = 1 Local os = 1 Local block.block Local num , fa# ; block number iterator, front angle Local r,g,b ; color ;Local d ; distance Local fpstime,frames,fps ; time of last second, number of frames so far, # frames counted in last sec Local cc ; wave shape change counter Repeat ms = MilliSecs() ;If KeyHit( 57 ) ; space ; waveshape = waveshape + 1 ; If waveshape > waveshapes ; waveshape = 0 ; End If ;End If If KeyHit( 57 ) ; space wavelock = Not wavelock End If If ms - lu >= ui Delete Each block t$ = CurrentTime() oh = h om = m os = s h = Mid( t , 1,2 ) m = Mid( t , 4,2 ) s = Mid( t , 7,2 ) ; hours fa = h * 360. / 24 r = 160 g = 192 b = 255 newblockwave fa , 100 , r,g,b , 0,0 , 1 ; minutes num = 60 fa = m * 360. / num r = 128 g = 255 b = 64 newblockwave fa , num , r,g,b , graphminsepx,graphminsepy , 2 ; seconds num = 60 fa = s * 360. / num r = 255 g = 160 b = 96 newblockwave fa , num , r,g,b , graphsecsepx,graphsecsepy , 3 ; milliseconds fa = ms * 360. / 1000 r = 48 g = 96 b = 255 newblockwave fa , 30 , r,g,b , graphmilsepx,graphmilsepy , 4 ; change shape If Not wavelock If s <> os cc = cc + 1 If cc >= waveshapechange cc = 0 waveshape = waveshape + 1 If waveshape > waveshapes waveshape = 0 End If End If End If End If End If ; frames per second If ms - fpstime >= 1000 fpstime = ms fps = frames frames = 0 End If frames = frames + 1 Local oldr = -1 ; old color Local oldg = -1 Local oldb = -1 num = 0 For block = Each block If oldcat <> block\cat ; new category oldcat = block\cat num = num + 1 n# = 0 ; reset independent variation of each individual block (by number) da# = da + blockdistf ; angle of distortion distance If da >= 360 da = da - 360 End If End If n = n + .9;Rnd( 0.9,1 ) ;n = n + Rand(0,15) ai# = ( Sin( da+n ) + 1 ) * blockdistqs / 2. + blockdistqo ; angle increment a# = a + ai ; distortion angle If a >= 360 a = a - 360 End If Color block\r,block\g,block\b x = waveshapex( blockdistx , a ) ; distortion pattern (same waveshape) y = waveshapey( blockdisty , a ) Rect sw/2+block\x-blocksizex/2+x,sh/2+block\y-blocksizey/2+y , blocksizex,blocksizey Next If KeyDown( 28 ) ; enter Color 176,255,0 Text 0,0 , t Text 0,10 , "DistAi: "+ai Text 0,20 , "DistA: "+a Text 0,30 , "DistDa: "+da Text 0,40 , "FPS: "+fps Text 0,50 , "Blocks: "+num+" ("+numblocks+")" Text 0,60 , "Change: "+cc+" ("+waveshapechange+")" End If Flip Delay 5 ; give some time back to user control Cls Delete Each block ; quick'n dirty numblocks = 0 Until KeyHit( 1 ) ; esc Cls Flip End --v
Wed, 27 Jan 2010, 05:49
Jayenkai	Yeay! Binary!!