Constrained random points on a circle: Difference between revisions
Content deleted Content added
→{{header|Go}}: library change |
→{{header|AutoHotkey}}: AutoHotkey example added |
||
Line 285: | Line 285: | ||
</pre> |
</pre> |
||
=={{header|AutoHotkey}}== |
|||
Requires the GDI+ standard library by tic: http://www.autohotkey.com/forum/viewtopic.php?t=32238<br /> Works with individual pixels. |
|||
[[File:Ahk_fuzzycircle.png|thumb|right]]<lang AHK>z=100 ; x = x-coord; y = y-coord; z = count; pBitmap = a pointer to the image; f = filename |
|||
pToken := Gdip_Startup() |
|||
pBitmap := Gdip_CreateBitmap(31, 32) |
|||
While z |
|||
{ |
|||
Random, x, -20, 20 |
|||
Random, y, -20,20 |
|||
If ( t := sqrt(x**2 + y**2) ) >= 10 && t <= 15 |
|||
Gdip_SetPixel(pBitmap, x+15, y+16, 255<<24), z-- |
|||
} |
|||
Gdip_SaveBitmapToFile(pBitmap, f := A_ScriptDir "\ahk_fuzzycircle.png") |
|||
run % f |
|||
Gdip_DisposeImage(pBitmap) |
|||
Gdip_Shutdown(pToken)</lang> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |
||
<lang bbcbasic> MODE 8 |
<lang bbcbasic> MODE 8 |