#194 - The Picture FX Challenge - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|254\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #194 - The Picture FX Challenge
Wed, 25 Mar 2009, 04:29
Jayenkai	#194 - The Picture FX Challenge I'm about 75% sure that this is what Phoenix meant! The Challenge Take a picture of the user's choice, and do some fancy wizzy effect with it, to make it look different from how it started. The Time Wed 25th March -> 1rth April, 2009 You have until this timer hits zero to complete your entry. For the record, that's Tue/Wed, midnight GMT*. (Although that's more frequently becoming "When I bother to wake up, on a Wednesday morning) The Rules You're free to reuse functions here and there, if it helps speed up your dev-time. Old art and audio, are pretty much expected, since we don't all have time to create fully working masterpieces within the space of a week! Other than that, the main coding for each week's task should be pretty much created within the time allocated. If you use other people's art/sound/functions, give credit where credit's due. To enter, post your game below. If you can't find anywhere decent to host it, send it to Jayenkai@Gmail.com Additional rules are available here. -=-=- ''Load, Next List!''
Wed, 25 Mar 2009, 14:39
spinal	I don't get it... is it an art challenge, or a coding one? -=-=- Check out my excellent homepage!
Wed, 25 Mar 2009, 15:36
Phoenix	Jay interpreted my idea correctly You're supposed to write a computer program using actual code and bells and whistles to apply an effect, be it animated or static, to an image of the user's choice. So it's both a coding and an art challenge.
Thu, 26 Mar 2009, 05:16
spinal	I had started this for a different reason, but I might as well enter it here. If I'm not mistaken this is my first WW entry... Wow Anyway, its based on jay's usual scrolling maths, and you need image.bmp to be 624x464. Enjoy. Graphics 640,480,32,2 Type ball Field x,y,dx,dy End Type b.ball=New ball b\dx=6 : b\dy=4 Type point Field x#,y# Field Ox#,Oy# ;(as in, Original X, And OriginalY) Field sx#,sy# ; speed Field frame Field frame_image End Type checkframe = 16 ; image.bmp should be 624x464 block = LoadAnimImage("image.bmp",16,16,0,1131) SeedRnd MilliSecs() x=1:y=1 For n=0 To 1130 this.point=New point this\ox=x16 this\oy=y16 x=x+1 : If x>=640/16 Then x=1:y=y+1 this\x=this\ox this\y=this\oy this\frame_image = n Next SetBuffer BackBuffer() Repeat Cls Delay 2 Color 255,255,255 For this.point=Each point If Abs(wx-this\ox)<16 And Abs(wy-this\oy)<16 Then this\x=wx this\y=wy End If If Abs(this\x-this\ox)>=1 Or Abs(this\x-this\oy)>=1 Then If Abs(wx-this\ox)>=16 Or Abs(wy-this\oy)>=16 Then this\frame = this\frame + 1 If this\frame = checkframe Then this\sx = ((this\x-this\ox)/((checkframe4)/5)) this\sy = ((this\y-this\oy)/((checkframe4)/5)) this\frame=0 End If this\x=this\x-this\sx this\y=this\y-this\sy End If EndIf ; iframe=iframe+1 If iframe < 1131 Then DrawBlock block,this\ox-8,this\oy-8,this\frame_image DrawBlock block,this\x-8,this\y-8,this\frame_image End If Next iframe=0 ;wx=MouseX():wy=MouseY() b\x=b\x + b\dx b\y=b\y + b\dy If b\x <=0 Or b\x >= 640 Then b\dx=-b\dx If b\y <=0 Or b\y >= 480 Then b\dy=-b\dy wx=b\x : wy=b\y Flip Until KeyDown(1) End --v -=-=- Check out my excellent homepage!
Thu, 26 Mar 2009, 05:55
Jayenkai	Neat!
Thu, 26 Mar 2009, 09:02
Phoenix	Heh, that's really nice
Wed, 01 Apr 2009, 02:30
Jayenkai	Whoops! Aw well.. Dim idat(1280,1280,3) Dim idat2(1280,1280,3) Graphics 800,600,32,2 SetBuffer BackBuffer() Cls:Flip Type oto Field ilename$ End Type quicky=ReadDir(CurrentDir()) Repeat in$=NextFile$(quicky) If Right$(Upper$(in$),4)=".JPG" Or Right$(Upper$(in$),4)=".PNG" Or Right$(Upper$(in$),4)=".BMP" ph.oto=New oto ph\ilename$=in$ EndIf Until in$="" CloseDir quicky ph.oto=First oto img=LoadImage(ph\ilename$) iw=ImageWidth(img)-1 ih=ImageHeight(img)-1 ;Get If iw<1280 And ih<1280 LockBuffer ImageBuffer(img) For x=0 To iw For y=0 To ih argb=ReadPixelFast(x,y,ImageBuffer(img)) idat(x,y,1)=(argb And $FF0000) Shr 16 idat(x,y,2)=(argb And $FF00) Shr 8 idat(x,y,3)=(argb And $FF) Next Next UnlockBuffer ImageBuffer(img) ClsColor 255,255,255 Cls:Flip SeedRnd MilliSecs() For e=255 To -32 Step -2 : light=0 ; Use for Black Highlights ;For e=0 To 280 Step 2 : light=1 ; Use for White Highlights d=e If d<4 Then d=4 If d>255 Then d=255 sx=Rand(0,3) For x=sx To iw Step 2 sy=Rand(0,4) For y=sy To ih Step 3 thick2=d/24 If light=1 Then thick2=11-thick2 If thick2<2 Then thick2=2 thick=thick2 thisd=(idat(x,y,1)+idat(x,y,2)+idat(x,y,3))/3 If Abs(thisd-d)<5 Color idat(x,y,1),idat(x,y,2),idat(x,y,3) For m=1 To 3 Oval x+Rand(-thick2,thick2)+16,y+Rand(-thick2,thick2)+16,thick,thick,1 Next EndIf Next Next Flip False If KeyDown(1) Then End Next Flip WaitKey() EndIf --v Shove it in a folder with an image or two (<1280x1280), and then wait... 'tis a bit slow! Does that artsy-style thing. -=-=- ''Load, Next List!''
Wed, 01 Apr 2009, 12:48
Phoenix	Really nice effect Jay

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.097

#194 - The Picture FX Challenge - Socoder