Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|546\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Misc

Dan	Created : 01 November 2018 Edited : 01 November 2018 Blitz Eye's Now blitzbasic has eye's, too !
Blitz eye's toy. Screen(250,250,800,640) SetBuffer BackBuffer() Global blink=MilliSecs(),blinkdo=1,blinkdelay=5000 AppTitle "Eyes - Press esc to continue" Repeat Cls ;eye(120,120,3) ;eye(129,120,3) eye(80,120,21) eye(142,120,21) Flip Until KeyDown(1) While KeyDown(1) : Delay 1 : Wend FlushKeys() AppTitle "Woooah" blinkdo=0 Repeat Cls SeedRnd 222 For y=1 To 24 For x=1 To 26 Step 2 r=Rand(20,255) g=Rand(20,255) b=Rand(20,255) Color r,g,b eye(1+(x9),(y10),3,1) Color r,g,b eye(9+(x9),(y10),3,1) Next Next Flip Until KeyDown(1) While KeyDown(1) : Delay 1 : Wend End Function eye(x,y,radius,C=64) mx=MouseX() my=MouseY() a=coordinate(x,y,mx,my) If C=64 Then Color $0,$80,$ff EndIf Oval x-Eye_x(a,radius),y-Eye_y(a,radius),radius,radius,1 Color $ff,$ff,$ff If MilliSecs()-blink=>blinkdelay Then blinkdo=-blinkdo : blink=MilliSecs() If blinkdo=1 Or blinkdo=0 blinkdelay=5000 Oval x-(radius),y-(radius),(radius)3,(radius)3,0 Else blinkdelay=500 Oval x-(radius),y-(radius),(radius)3,(radius)3,1 EndIf End Function Function Eye_x(coord,rad) Return Cos(coord(Pi/180))rad End Function Function Eye_y(coord,rad) Return Sin(coord(Pi/180))rad End Function Function coordinate(ex,ey,mox,moy) Local V1=ey-moy Local V2=ex-mox Return ATan2(V1,V2)*(180/Pi) End Function Function Screen(defaultx=320,defaulty=240,Stretchx=640,Stretchy=480) ; bits=api_GetDeviceCaps(api_GetDC( api_GetDesktopWindow()),12) bits=32 Graphics Stretchx,Stretchy,bits,2 Graphics defaultx,defaulty,bits,3 End Function --v

Comments
Thursday, 01 November 2018, 05:44
Jayenkai	Just like Workbench! Now try to code a whole face, with randomly generated features!
Thursday, 01 November 2018, 11:02
Dan	The BlueEyes on amiga looks better P.S. there are few smilies missing ... from the syntax icon theme.
Saturday, 03 November 2018, 00:55
TomToad	Who read this line If C=64 Then --v And read it as If Commodore 64 Then --v
Saturday, 03 November 2018, 07:44
Dan

Blitz Eye's

Comments