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()
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 line( 5.5, -26.0, 0)
CALL line( 2.0, -36.0, 1)
CALL line( -5.5, -26.0, 0)
CALL line( -2.0, -36.0, 1)
CALL line( 20.0, -18.0, 0)
CALL line( 8.5, -19.0, 1)
CALL line( 4.0, -21.5, 1)
CALL line( 0.0, -23.0, 1)
CALL line( -4.0, -21.5, 1)
CALL line( -8.5, -19.0, 1)
CALL line(-20.0, -18.0, 1)
CALL line( 12.0, -16.0, 0)
CALL line( 22.0, 14.0, 1)
CALL line(-12.0, -16.0, 0)
CALL line(-22.0, 14.0, 1)
CALL line( 53.0, -9.0, 0)
CALL line( 28.5, 1.0, 1)
CALL line( 28.5, -14.0, 0)
CALL line( 28.5, 25.0, 1)
CALL line( 28.5, 33.0, 0)
CALL line( 28.5, 76.0, 1)
CALL line( -2.5, 76.0, 1)
CALL line( -2.5, 72.0, 1)
CALL line( -0.5, 68.0, 1)
CALL line( 1.0, 66.0, 1)
CALL line( -1.5, 67.0, 1)
CALL line( -4.0, 72.0, 1)
CALL line( -4.0, 76.0, 1)
CALL line(-28.5, 76.0, 1)
CALL line(-28.5, 33.0, 1)
CALL line(-28.5, 25.0, 0)
CALL line(-28.5, -14.0, 1)
CALL line(-53.0, -9.0, 0)
CALL line(-28.5, 1.0, 1)
CALL line( 0.0, 0.0, 0)
CALL line( 6.5, 0.0, 1)
CALL line( 10.0, 3.0, 1)
CALL line( 15.0, 7.0, 1)
CALL line( 22.0, 14.0, 1)
CALL line( 28.5, 25.0, 1)
CALL line( 31.0, 26.0, 1)
CALL line( 35.0, 34.0, 1)
CALL line( 38.0, 44.0, 1)
CALL line( 38.0, 53.0, 1)
CALL line( 36.0, 55.0, 1)
CALL line( 32.0, 55.0, 1)
CALL line( 28.5, 51.0, 1)
CALL line( 0.0, 0.0, 0)
CALL line( -6.5, 0.0, 1)
CALL line(-10.0, 3.0, 1)
CALL line(-15.0, 7.0, 1)
CALL line(-22.0, 14.0, 1)
CALL line(-28.5, 25.0, 1)
CALL line(-31.0, 26.0, 1)
CALL line(-35.0, 34.0, 1)
CALL line(-38.0, 44.0, 1)
CALL line(-38.0, 53.0, 1)
CALL line(-36.0, 55.0, 1)
CALL line(-32.0, 55.0, 1)
CALL line(-28.5, 51.0, 1)
CALL line( 34.0, 55.0, 0)
CALL line( 34.0, 76.0, 1)
CALL line( 31.0, 82.0, 1)
CALL line( 26.0, 87.0, 1)
CALL line( 21.0, 91.0, 1)
CALL line( 15.0, 95.0, 1)
CALL line( 0.0, 95.0, 1)
CALL line(-34.0, 55.0, 0)
CALL line(-34.0, 76.0, 1)
CALL line(-31.0, 82.0, 1)
CALL line(-26.0, 87.0, 1)
CALL line(-21.0, 91.0, 1)
CALL line(-15.0, 95.0, 1)
CALL line( 0.0, 95.0, 1)
CALL line( -5.0, 41.0, 0)
CALL line( -4.0, 40.0, 1)
CALL line( 0.0, 40.0, 1)
CALL line( 2.0, 42.0, 1)
CALL line( 3.0, 42.0, 1)
CALL line( 5.5, 37.0, 1)
CALL line( 5.0, 37.0, 1)
CALL line( 4.0, 38.5, 1)
CALL line( 0.5, 38.5, 1)
CALL line( 0.0, 37.0, 1)
CALL line( -2.0, 37.0, 1)
CALL line( -3.0, 38.5, 1)
CALL line( -7.0, 38.5, 1)
CALL line( -8.0, 37.0, 1)
CALL line( -8.5, 40.0, 1)
CALL line( -4.0, 45.0, 1)
CALL line( -4.0, 54.0, 1)
CALL line( -5.0, 55.0, 1)
CALL line( -6.0, 53.0, 0)
CALL line( -5.0, 53.0, 1)
CALL line( -5.0, 47.0, 1)
CALL line( -7.5, 46.0, 1)
CALL line( -6.0, 53.0, 1)
CALL line(-24.0, 55.0, 0)
CALL line(-22.0, 53.0, 1)
CALL line(-17.0, 54.5, 1)
CALL line( -8.0, 55.0, 1)
CALL line( -7.0, 55.5, 1)
CALL line( -8.5, 56.5, 1)
CALL line(-24.0, 55.0, 1)
CALL line( -8.0, 54.5, 0)
CALL line(-12.0, 52.5, 1)
CALL line(-23.0, 56.0, 0)
CALL line(-21.5, 57.0, 1)
CALL line(-10.0, 58.0, 1)
CALL line( -9.0, 57.0, 1)
CALL line(-27.5, 56.5, 0)
CALL line(-24.0, 59.0, 1)
CALL line(-11.0, 59.5, 1)
CALL line( -7.0, 61.0, 1)
CALL line( -4.0, 65.0, 1)
CALL line( -9.0, 63.0, 1)
CALL line(-25.0, 62.0, 1)
CALL line(-27.5, 56.5, 1)
CALL line( 27.5, 56.5, 0)
CALL line( 24.0, 59.0, 1)
CALL line( 11.0, 59.5, 1)
CALL line( 7.0, 61.0, 1)
CALL line( 4.0, 65.0, 1)
CALL line( 9.0, 63.0, 1)
CALL line( 25.0, 62.0, 1)
CALL line( 27.5, 56.5, 1)
CALL line( 19.0, 53.0, 0)
CALL line( 23.0, 55.0, 1)
CALL line( 16.0, 55.0, 1)
CALL line( 9.0, 56.0, 1)
CALL line( 9.5, 55.0, 1)
CALL line( 19.0, 53.0, 1)
CALL line( 9.0, 58.0, 0)
CALL line( 12.0, 58.0, 1)
CALL line( 19.0, 56.0, 1)
CALL line( 21.5, 56.0, 1)
CALL line( 0.0, 29.0, 0)
CALL line( 5.0, 29.0, 1)
CALL line( 11.0, 27.0, 1)
CALL line( 6.0, 32.0, 1)
CALL line( 0.0, 30.0, 1)
CALL line( -6.0, 32.0, 1)
CALL line(-11.0, 27.0, 1)
CALL line( -5.0, 29.0, 1)
CALL line( 0.0, 29.0, 1)
CALL line(-6.5, 21.5, 0)
CALL line(-3.5, 20.0, 1)
CALL line( 3.5, 20.0, 1)
CALL line( 6.5, 21.5, 1)
CALL line(-5.0, 21.0, 0)
CALL line( 5.0, 21.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 :: 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
