0

小さな基本でノイズ画像を作成しようとしていますが、現実的に見えるほど高速に画像をロードできません。ldarray を使用してみましたが、まだ十分に高速ではありません。

現在使用しているコードは次のとおりです。

GraphicsWindow.Left = 0 'positions graph
GraphicsWindow.Top = 0
GraphicsWindow.Height = 240
GraphicsWindow.Width = 320
numpix = 320 * 240 'creates number of indices for ldarray
pixels = LDArray.Create(numpix) 'creates 1D array where color values will be       stored
While 1=1
setcolor()
importcolor()
EndWhile

Sub setcolor
For h = 1 To numpix
randomcolor = Math.GetRandomNumber(2)
If randomcolor = 1 Then
  ldarray.SetValue(pixels,h,"black") 'sets the pixel color to black or white
Else
  ldarray.SetValue(pixels,h,"white")
EndIf
EndFor
EndSub


sub importcolor
'prints out the image
For h = 1 To 320
For w = 1 To 240
  i = i + 1
  color = LDArray.GetValue(pixels,i)
  GraphicsWindow.SetPixel(h,w,color)
EndFor
EndFor

EndSub

すべてのテキストを選択し、[プログラムのフォーマット] をクリックして、後でプログラムするようにフォーマットできます。

また、fps カウンターを作成するのを手伝っていただければ、どこから始めればよいかわからないため、非常に役に立ちます。

4

1 に答える 1