紫の波線

「そして、悪いPSCジェネレーターは何かに適しています。」





レトルト付きの三日月

レトルト付きの三日月

1つのタスクに取り組む過程で、予期しない副作用が発生しました。 適切な擬似乱数ジェネレータを視覚化すると、ノイズや混乱が発生します。 当然のことながら、誰もテストに応募したくありません。 気にしませんでした。使用した非常にシンプルな発電機は私を完全に満足させ、慎重に扱ったとき、許容できる結果を生み出しました。 そして、突然、自信を持って脳卒中の誰かがエレガントな抽象的な図面を配り始めたように。

ベジエ曲線で接続されているのは22ポイントだけで、このような面白い結果が得られます。 ザゴグリンは無限に生成される可能性があり、雲のようにそれらを見るのに飽きません。 あなたは面白いゲームを思いつくことができます-偶然に今回私たちに何が起こったのか、そのパターンは何であるかを明らかにし、それの名前を考え出します。

しかし、これらの曲線には、より実用的な意味があります。 ジェネレータは、プロセッサティックカウンタの下部と上部の積であり、そこから符号なし剰余が取得されます。 まれに数字を生成する場合、ランダム性は許容範囲です。 ここでは、数字が頻繁に生成され、ランダム性が悪いことが、ザゴグリンの形状から明らかです。 さまざまなザゴグリンの潜在的な量は200から22度ですが、特定の要素が最も頻繁に繰り返されます。

おそらく、図の「シャギーネス」の程度は、数値が生成されたときのマイクロ秒単位のシステムの負荷に依存します。 対角線、別名「旅行者」は、乱数が時間にほぼ線形に依存し、システムに小さな負荷がかかることを示しています。 「Scalaria」-チャンスが大きいほど、かなり高い負荷を意味します...

紫の波線を楽しみたい人のために、コードといくつかの明るい代表者を以下に示します。








いくつかのコード
  〜yz / lib / winctl.f
 WINDOWSが必要です...〜yz / lib / winlib.f

 0 VALUE勝
 0 VALUE回
 0 VALUE hdc
 0 VALUE myrect
 0 VALUE mypen2
 22 VALUEドット
 0 VALUE fid
 CREATE 0d0a 0xD C、0xA C、 

作成*ドットドットCELLS 3 * ALLOT

 :rndタイマー@ * 200 UMOD;

 :rndxyドット2 * 0 DO rnd 2 * 25 + I CELL * *ドット+!  rnd 3 * 25 + I CELL * *ドット+ CELL +! ループ;

 :tre rndxy 
 S "X:" fid WRITE-FILE THROW 
 dots 2 * 0 DO I CELL * * dots + @ S> D(D.)fid WRITE-FILE THROW S S "" fid WRITE-FILE THROW LOOP
 0d0a 2 fid WRITE-FILE THROW

 S "Y:" fidファイル書き込みスロー
 dots 2 * 0 DO I CELL * * dots + CELL + @ S> D(D.)fid WRITE-FILE THROW S "" fid WRITE-FILE THROW LOOP
 0d0a 2 fid WRITE-FILE THROW
 0d0a 2 fid WRITE-FILE THROW

  ;
 
  rndxy
 
 WINAPI:CreatePen GDI32.dll
 WINAPI:PolyBezier GDI32.dll


 PROC:ペイント
   mypen2 windc SelectObject DROP
  ドット*ドットwindc PolyBezier DROP
   rndxy
 PROC

メッセージ:私

 M:wm_lbuttondblclk
     rndxy 
     winhideに勝つ
     winshowに勝つ 
   TRUE
 M;
メッセージ;

 :実行 
   WINDOWS ...
 S "warps.txt" R / W fidへのファイル作成スロー

 0x00F00599 2 0 CreatePen TO mypen2

 0作成ウィンドウが勝つ
  winmainに勝つ
 ベジエシュキが勝利-text!
 420 430 0ボタンの場所 
これをmyrect
 10 10 myrect ctlresize
   ['] tre myrect -command!

 120130勝つwinmove
 500 500勝利winresize
   ペイント勝利-ペインター!
  私の勝利-wndproc!
 winshowに勝つ

 ... WINDOWS
 fidクローズファイルスロー
さようなら
 ;

 TRUE TO?GUI
 'MAINXを実行します!
 S "warpy.exe" SAVE
走る





SPFコンソールで実行されるこのコードは、実行可能なファイルwarpy.exeを作成します。このファイルは既に単独で実行できます。 画像をダブルクリック(左ボタン)すると変更されます。 右下隅のボタンは、warps.txtファイルに設定されたX、Y座標を保存します





その他の写真
パラパラボラ



すずめ



エンゼルフィッシュ



プレクター



花、トップビュー



チューリップ



旅行者



2本のボトルデカンタ



なげなわ



カンディンスキー








All Articles