Top/Ys_C11 pic_copy

Ys_C11 pic_copy

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178

#include "hspda.as"
screen 1,150,100
cls 2
screen 2,150,100
cls 2
screen 3,150,100
cls 4
screen 0,570,380
gsel 0
gosub *def_A
gosub *def_B
gosub *def_C
gosub *def_D
goto *@f
*def_A
var4input4moto=""
var4input4saki=""
return
*@
*draw_begin
cls 1
objsize 110,20
mes "copy元file"
input var4input4moto,210,20
ID4input4moto=stat
button "copy元読み込み",*l_load_moto
button "dialog",*l_dialog_moto
mes "copy先file
input var4input4saki,210,20
ID4input4saki=stat
button "copy先読み込み",*l_load_saki
button "dialog",*l_dialog_saki
button "copy先保存",*l_save_saki
button "vsave",*l_vsave
button "vload",*l_vload
button "sample vload",*l_sample_vload
 
goto *@f
*def_B
var4input_copy_moto_X=0
var4input_copy_moto_Y=0
return
*@
pos 220,0
mes "copy元X座標"
input var4input_copy_moto_X,150,20
ID4input_copy_moto_X=stat
mes "copy元Y座標"
input var4input_copy_moto_Y,150,20
ID4input_copy_moto_Y=stat
 
goto *@f
*def_C
var4input_copy_saki_X=0
var4input_copy_saki_Y=0
var4input_copy_saki_size_X=0
var4input_copy_saki_size_Y=0
return
*@
	
pos 220,100
mes "copy先X座標"
input var4input_copy_saki_X,150,20
ID4input_copy_saki_X=stat
mes "copy先Y座標"
input var4input_copy_saki_Y,150,20
ID4input_copy_saki_Y=stat
mes "copy先 size X"
input var4input_copy_saki_size_X,150,20
ID4input_copy_saki_size_X=stat
mes "copy先 size Y"
input var4input_copy_saki_size_Y,150,20
ID4input_copy_saki_size_Y=stat
button "直接座標コピー",*l_chokusetu_copy
 
goto *@f
*def_D
var4input_tanni_size_x=0
var4input_tanni_size_y=0
var4input_tanni_pos_x_index=0
var4input_tanni_pos_Y_index=0
var4input_tanni_kosuu_x=1
var4input_tanni_kosuu_y=1
return
*@
	
 
pos 380,100
mes "単位copy 単位(size)X"
input var4input_tanni_size_x,150,20
ID4input_tanni_size_x=stat
mes "単位copy 単位(size)Y"
input var4input_tanni_size_y,150,20
ID4input_tanni_size_y=stat
mes "単位copy先 pos X(index)"
input var4input_tanni_pos_x_index,150,20
ID4input_tanni_pos_x_index=stat
mes "単位copy先 pos Y(index)"
input var4input_tanni_pos_Y_index,150,20
ID4input_tanni_pos_Y_index=stat
mes "単位copy copy個数(X)"
input var4input_tanni_kosuu_x,150,20
ID4input_tanni_kosuu_x=stat
mes "単位copy copy個数(Y)"
input var4input_tanni_kosuu_y,150,20
ID4input_tanni_kosuu_y=stat
button "単位copy",*l_tanni_copy
stop
*l_load_moto
	exist var4input4moto
	if strsize==-1:dialog "FILEが存在しません",1:stop
	gsel 1
	picload var4input4moto
	gsel 0
	stop
*l_load_saki
	exist var4input4saki
	if strsize==-1:dialog "FILEが存在しません",1:stop
	gsel 2
	picload var4input4saki
	gsel 0
	stop
*l_save_saki
	gsel 2
	bmpsave var4input4saki
	gsel 0
	stop
*l_chokusetu_copy
	gsel 2
	gmode 0,var4input_copy_saki_size_X,var4input_copy_saki_size_Y
	pos var4input_copy_saki_X,var4input_copy_saki_Y
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,var4input_copy_saki_size_X,var4input_copy_saki_size_Y
	logmes "pos"+var4input_copy_saki_X+" "+var4input_copy_saki_Y
	logmes "copy"+var4input_copy_moto_X+" "+var4input_copy_moto_Y+" "+var4input_copy_saki_size_X+" "+var4input_copy_saki_size_Y
	gsel 3
	cls 4
	pos 0,0
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,var4input_copy_saki_size_X,var4input_copy_saki_size_Y
;	gsel 2
;	pos 10,10
;	gcopy 1,20,20,15,15
	stop
*l_tanni_copy
	gsel 2
	_4gmode_x=var4input_tanni_size_x*var4input_tanni_kosuu_x
	_4gmode_y=var4input_tanni_size_y*var4input_tanni_kosuu_y
	gmode 0,_4gmode_x,_4gmode_y
	_4copy_pos_x=var4input_tanni_size_x*var4input_tanni_pos_x_index
	_4copy_pos_y=var4input_tanni_size_y*var4input_tanni_pos_y_index
	pos _4copy_pos_x,_4copy_pos_y
	_4gcopy_x=var4input_tanni_size_x*var4input_tanni_kosuu_x
	_4gcopy_y=var4input_tanni_size_y*var4input_tanni_kosuu_y
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,_4gcopy_x,_4gcopy_y
	logmes "gmode size "+_4gmode_x+" "+_4gmode_y
	logmes "copy pos "+_4copy_pos_x+" "+_4copy_pos_y
	logmes "gcopy "+var4input_copy_moto_X+" "+var4input_copy_moto_Y+" "+_4gcopy_x+" "+_4gcopy_y
	gsel 3
	cls 4
	pos 0,0
	gcopy 1,var4input_copy_moto_X,var4input_copy_moto_Y,_4gcopy_x,_4gcopy_y
	stop
*l_dialog_moto
	dialog "*",16
	if stat==1:objprm ID4input4moto,refstr
	stop
*l_dialog_saki
	dialog "*",16
	if stat==1:objprm ID4input4saki,refstr
	stop
*l_vsave
	vsave "tmp_p_c.dat"
	stop
*l_vload
	vload "tmp_p_c.dat"
	goto *draw_begin
*l_sample_vload
	vload "sample_p_c.dat"
	goto *draw_begin