コンソール窓から対話的に絵を描くモヂュールを作ります。
普通のコンソール型プロジェクトで、PROGRAM文で始まるメインルーチンが実行開始位置となり、対話的に絵がかける様になります。マルチスレッドでグラフィック窓を開くので、絵を描きながらコンソールでの実行を続行できます。
全てFortranで、100行程度で実現できます。
実行例
メイン部分 ソース
PROGRAM kusomiso USE uhoplot CALL gr_on('Abe-san', 500, 600) CALL gr_pencol(irgb(0, 0, 0)) CALL gr_text(150, 10, 'ああ・・・つぎはションベンだ', irgb(155, 155, 0) ) CALL gr_show() ! chin chin CALL line( 0.0, 11.0, 0) CALL line( 0.0, 8.0, 1) CALL line( -8.0, -26.5, 0) CALL line(-11.0, -24.0, 1) CALL line( 8.0, -26.5, 0) CALL line( 11.0, -24.0, 1) !中略 CALL gr_show() CALL gr_off() STOP CONTAINS !------------------------------------------------------------------------------------- SUBROUTINE line(x, y, ipen) IMPLICIT NONE REAL , INTENT(IN) :: x, y INTEGER, INTENT(IN) :: ipen INTEGER (BOOL):: iretb INTEGER :: ix, iy ix = INT(x * 4.0 + 250.0) iy = -INT(y * 4.0 + 100.0) + 520 IF (ipen == 1) THEN CALL gr_line(ix, iy) ELSE CALL gr_move(ix, iy) END IF RETURN END SUBROUTINE line !------------------------------------------------------------------------------------- END PROGRAM kusomiso