CODE:

use strict;
use warnings;
use autodie;
use FindBin;
use lib qw($FindBin::Bin);
use utf8;
use DxLib;

my $dx = DxLib::SwigDxLib->new();

$dx->ChangeWindowMode(1);
$dx->DxLib_Init();

my $image = $dx->LoadGraph('pict.png');

$dx->KeyInputString(0, 16, 30, 0);
my $name = $dx->{m_KeyInputString};

#{m_KeyInputString}
#{m_GetKeyInputString}
#{m_KeyInputSingleCharString}
#{m_FileRead_gets}
#{m_EnumFontName}

my $x = DxLib::new_intp();
my $y = DxLib::new_intp();
DxLib::intp_assign($x, 30);
DxLib::intp_assign($y, 40);
print "$x,$y\n";
print DxLib::intp_value($x).",". DxLib::intp_value($y)."\n";

my $size = 1.0;
while (!$dx->ScreenFlip() && !$dx->ProcessMessage() && !$dx->ClearDrawScreen()) {
	my $mouse = $dx->GetMouseInput();
	my $wheel = $dx->GetMouseWheelRotVol();
	$dx->GetMousePoint($x, $y);
    if ($mouse & $DxLib::MOUSE_INPUT_LEFT) {
		$dx->DrawString(0, 0, $name, $dx->GetColor(255,255,0));
	}
	if ($wheel > 0) {
		$size += 0.1;
	}
	if ($wheel DrawRotaGraph(DxLib::intp_value($x), DxLib::intp_value($y), $size, 0.0, $image, 1, 0);
}

DxLib::delete_intp($x);
DxLib::delete_intp($y);
$dx->DxLib_End();
sleep(1);