equal
deleted
inserted
replaced
266 MainLoop |
266 MainLoop |
267 end; |
267 end; |
268 |
268 |
269 ///////////////////////// |
269 ///////////////////////// |
270 procedure GenLandPreview; |
270 procedure GenLandPreview; |
|
271 var Preview: TPreview; |
271 begin |
272 begin |
272 InitIPC; |
273 InitIPC; |
273 IPCWaitPongEvent; |
274 IPCWaitPongEvent; |
274 TryDo(InitStepsFlags = cifRandomize, |
275 TryDo(InitStepsFlags = cifRandomize, |
275 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
276 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', |
276 true); |
277 true); |
277 |
278 |
278 GenPreview; |
279 Preview:= GenPreview; |
279 WriteLnToConsole('Sending preview...'); |
280 WriteLnToConsole('Sending preview...'); |
280 SendIPCRaw(@Preview, sizeof(Preview)); |
281 SendIPCRaw(@Preview, sizeof(Preview)); |
281 WriteLnToConsole('Preview sent, disconnect'); |
282 WriteLnToConsole('Preview sent, disconnect'); |
282 CloseIPC |
283 CloseIPC |
283 end; |
284 end; |