Anonymous user
Constrained random points on a circle: Difference between revisions
Constrained random points on a circle (view source)
Revision as of 19:22, 13 September 2010
, 13 years ago→{{header|PureBasic}}: Optimized the code a little
No edit summary |
m (→{{header|PureBasic}}: Optimized the code a little) |
||
Line 314:
=={{header|PureBasic}}==
<lang PureBasic>
StartDrawing(ImageOutput(0))
For i=1 To 100
Repeat
y=Random(30)-15
Until 10<=R And R<=15
Next▼
Plot(x+15,y+15,#Red)
▲ Next
StopDrawing()
Line 334 ⟶ 329:
Flags=#PB_Window_SystemMenu
OpenWindow(0,#PB_Ignore,#PB_Ignore,ImageWidth(0),ImageHeight(0),Title$,Flags)
ImageGadget(0,0,0,
Repeat:
[[File:PureBasic_Circle_plot.png|155px]]
|