正弦曲線の描画

これで軸とフレームが描画されたので，SINE プログラムは次に正弦曲線を描画します。sinewave ルーチンは，2 サイクル分の X および Y 座標を計算し，それらを画面上にプロットします。

!	SINEWAVE：このサブルーチンは，正弦曲線を計算し，描画します。
!
	SUBROUTINE sinewave( )
	  USE DFLIB
	  INTEGER(2) dummy, newx, newy, locx, locy, i
	  INTEGER(4) color
	  REAL  rad
	  EXTERNAL  newx, newy
	  PARAMETER ( PI = 3.14159 )
!
!	  各点を計算し，画面上にそれを表示します。
	  color = #0000FF ! red
	  DO i = 0, 999, 3
	    rad   = -SIN( PI * i / 250.0 )
	    locx  = newx( i )
	    locy  = newy( INT2( rad * 250.0 ) )
	    dummy = SETPIXELRGB( locx, locy, color )
	  END DO
	END

SETPIXELRGB は locx と locy の 2 つの位置パラメタを取り，その位置にあるピクセルを指定された色値 (赤) に設定します。