рдмреИрдВрдЧрдиреА рд╕реНрдХреНрд╡реАрдЧрд▓реНрд╕

"рдФрд░ рдПрдХ рдмреБрд░рд╛ PSC рдЬрдирд░реЗрдЯрд░ рдХреБрдЫ рдХреЗ рд▓рд┐рдП рдЕрдЪреНрдЫрд╛ рд╣реИред"



рдПрдХ рдореБрдВрд╣рддреЛрдбрд╝ рдЬрд╡рд╛рдм рдХреЗ рд╕рд╛рде
рдПрдХ рдореБрдВрд╣рддреЛрдбрд╝ рдЬрд╡рд╛рдм рдХреЗ рд╕рд╛рде
рдПрдХ рдХрд╛рд░реНрдп рдкрд░ рдХрд╛рдо рдХрд░рдиреЗ рдХреА рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдореЗрдВ, рдПрдХ рдЕрдкреНрд░рддреНрдпрд╛рд╢рд┐рдд рджреБрд╖реНрдкреНрд░рднрд╛рд╡ рдЙрддреНрдкрдиреНрди рд╣реБрдЖред рдПрдХ рдЕрдЪреНрдЫреЗ рдЫрджреНрдо рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рд╕рдВрдЦреНрдпрд╛ рдЬрдирд░реЗрдЯрд░ рдХреА рдХрд▓реНрдкрдирд╛ рд╢реЛрд░ рдФрд░ / рдпрд╛ рднреНрд░рдо рд╣реИред рдЬрд╛рд╣рд┐рд░ рд╣реИ рдмреБрд░рд╛ рдХреЛрдИ рднреА рдкрд░реАрдХреНрд╖рдгреЛрдВ рдХреЗ рд▓рд┐рдП рдЖрд╡реЗрджрди рдирд╣реАрдВ рдХрд░рдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реИред рдореБрдЭреЗ рдкрд░рд╡рд╛рд╣ рдирд╣реАрдВ рдереА, рдмрд╣реБрдд рд╣реА рд╕рд░рд▓ рдЬрдирд░реЗрдЯрд░ рдиреЗ рдореБрдЭреЗ рдкреВрд░реА рддрд░рд╣ рд╕реЗ рд╕рдВрддреБрд╖реНрдЯ рдХрд┐рдпрд╛ рдФрд░ рдЬрдм рдзреНрдпрд╛рди рд╕реЗ рд╕рдВрднрд╛рд▓рд╛, рддреЛ рдПрдХ рд╕реНрд╡реАрдХрд╛рд░реНрдп рдкрд░рд┐рдгрд╛рдо рдЙрддреНрдкрдиреНрди рд╣реБрдЖред рдФрд░ рдЕрдЪрд╛рдирдХ, рдЬреИрд╕реЗ рдХрд┐ рдХреЛрдИ рд╡реНрдпрдХреНрддрд┐, рдПрдХ рдЖрд╢реНрд╡рд╕реНрдд рд╕реНрдЯреНрд░реЛрдХ рдХреЗ рд╕рд╛рде, рд╕реБрд░реБрдЪрд┐рдкреВрд░реНрдг рдЕрдореВрд░реНрдд рдЪрд┐рддреНрд░ рджреЗрдирд╛ рд╢реБрд░реВ рдХрд░ рджрд┐рдпрд╛ред
рдмреЗрдЬрд╝рд┐рдпрд░ рдШрдЯрддрд╛ рдФрд░ рдЗрд╕ рддрд░рд╣ рдХреЗ рдПрдХ рдордЬреЗрджрд╛рд░ рдкрд░рд┐рдгрд╛рдо рд╕реЗ рдХреЗрд╡рд▓ 22 рдЕрдВрдХ рдЬреБрдбрд╝реЗ рд╣реБрдП рд╣реИрдВред рдЬрд╝рд╛рдЧреЛрдЧреБрд▓рд┐рди рдЕрд╕реАрдо рд░реВрдк рд╕реЗ рдЙрддреНрдкрдиреНрди рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ рдФрд░ рдЙрдиреНрд╣реЗрдВ рдмрд╛рджрд▓реЛрдВ рдХреА рддрд░рд╣ рджреЗрдЦрдиреЗ рдХреЗ рд▓рд┐рдП рдКрдм рдирд╣реАрдВ рд╣реИрдВред рдЖрдк рдПрдХ рджрд┐рд▓рдЪрд╕реНрдк рдЦреЗрд▓ рдХреЗ рд╕рд╛рде рдЖ рд╕рдХрддреЗ рд╣реИрдВ - рдЗрд╕ рдмрд╛рд░ рд╣рдорд╛рд░реЗ рд╕рд╛рде рдХреНрдпрд╛ рд╣реБрдЖ рд╕рдВрдпреЛрдЧ рд╕реЗ, рдЗрд╕рдореЗрдВ рдХреНрдпрд╛ рдкреИрдЯрд░реНрди рд╣реИ рдФрд░ рдЗрд╕рдХреЗ рд▓рд┐рдП рдПрдХ рдирд╛рдо рдХреЗ рд╕рд╛рде рдЖрдУред
рд▓реЗрдХрд┐рди рдЗрди рд╡рдХреНрд░реЛрдВ рдХрд╛ рдЕрдзрд┐рдХ рд╡реНрдпрд╛рд╡рд╣рд╛рд░рд┐рдХ рдЕрд░реНрде рд╣реИред рдЬрдирд░реЗрдЯрд░ рдкреНрд░реЛрд╕реЗрд╕рд░ рдЯрд┐рдХ рдХрд╛рдЙрдВрдЯрд░ рдХреЗ рдирд┐рдЪрд▓реЗ рдФрд░ рдКрдкрд░реА рд╣рд┐рд╕реНрд╕реЛрдВ рдХрд╛ рдЙрддреНрдкрд╛рдж рд╣реИ, рдЬрд┐рд╕рдореЗрдВ рд╕реЗ рдПрдХ рдЕрд╣рд╕реНрддрд╛рдХреНрд╖рд░рд┐рдд рд╢реЗрд╖ рд▓рд┐рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред рдпрджрд┐ рдЖрдк рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдмрд╣реБрдд рдХрдо рд╣реА рдЙрддреНрдкрдиреНрди рдХрд░рддреЗ рд╣реИрдВ, рддреЛ рдпрд╛рджреГрдЪреНрдЫрд┐рдХрддрд╛ рд╕рд╣рдиреАрдп рд╣реЛрддреА рд╣реИред рдпрд╣рд╛рдВ рд╕рдВрдЦреНрдпрд╛рдПрдВ рдЕрдХреНрд╕рд░ рдЙрддреНрдкрдиреНрди рд╣реЛрддреА рд╣реИрдВ, рдпрд╛рджреГрдЪреНрдЫрд┐рдХрддрд╛ рдЦрд░рд╛рдм рд╣реЛрддреА рд╣реИ, рдЬреЛ рдХрд┐ рдЬрд╝рдЧреЛрдЧреБрд▓рд┐рди рдХреЗ рдЖрдХрд╛рд░ рд╕реЗ рд╕реНрдкрд╖реНрдЯ рд╣реЛрддреА рд╣реИред рд╡рд┐рднрд┐рдиреНрди рдЬрд╝рд╛рдЧреЛрдЧреБрд▓рд┐рди рдХреА 200 рд╕реЗ 22 рд╡реАрдВ рдбрд┐рдЧреНрд░реА рдХреА рд╕рдВрднрд╛рд╡рд┐рдд рдорд╛рддреНрд░рд╛ рдХреЗ рдмрд╛рд╡рдЬреВрдж, рдХреБрдЫ рддрддреНрд╡реЛрдВ рдХреЛ рдЕрдХреНрд╕рд░ рджреЛрд╣рд░рд╛рдпрд╛ рдЬрд╛рддрд╛ рд╣реИред
рд╕рдВрднрд╡рддрдГ, рд╕рдВрдЦреНрдпрд╛ рдХреЗ рдЙрддреНрдкрдиреНрди рд╣реЛрдиреЗ рдкрд░ рдЙрди рдорд╛рдЗрдХреНрд░реЛрд╕реЗрдХрдВрдб рдореЗрдВ рд╕рд┐рд╕реНрдЯрдо рдкрд░ рд▓реЛрдб рдкрд░ "рдЭрдмрд░рд╛рдкрди" рдХреА рдбрд┐рдЧреНрд░реА рдирд┐рд░реНрднрд░ рдХрд░рддреА рд╣реИред рд╡рд┐рдХрд░реНрдг рд░реЗрдЦрд╛, рдЙрд░реНрдл тАЛтАЛ"рдпрд╛рддреНрд░реА", рд╕рдордп рдкрд░ рдпрд╛рджреГрдЪреНрдЫрд┐рдХ рд╕рдВрдЦреНрдпрд╛ рдХреА рд▓рдЧрднрдЧ рд░реИрдЦрд┐рдХ рдирд┐рд░реНрднрд░рддрд╛ рдФрд░ рд╕рд┐рд╕реНрдЯрдо рдкрд░ рдПрдХ рдЫреЛрдЯрд╛ рднрд╛рд░ рдХреА рдмрд╛рдд рдХрд░рддрд╛ рд╣реИред "рд╕реНрдХреЗрд▓реЗрд░рд┐рдпрд╛" - рдЕрдзрд┐рдХ рд╕рдВрднрд╛рд╡рдирд╛ рдХреЗ рдмрд╛рд░реЗ рдореЗрдВ, рдЬрд┐рд╕рдХрд╛ рдЕрд░реНрде рд╣реИ рдПрдХ рдЙрдЪреНрдЪ рд▓реЛрдб ...
рдЬреЛ рд▓реЛрдЧ рдмреИрдВрдЧрдиреА рд╕реНрдХреНрд╡реАрдЧрд▓реНрд╕ рдХреЗ рд╕рд╛рде рдорд╕реНрддреА рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, рдЙрдирдХреЗ рд▓рд┐рдП рдиреАрдЪреЗ рдХреЛрдб рдФрд░ рдХреБрдЫ рдЙрдЬреНрдЬреНрд╡рд▓ рдкреНрд░рддрд┐рдирд┐рдзрд┐ рд╣реИрдВред




рдХреБрдЫ рдХреЛрдб
  ~ yz / lib / winctl.f
 рдЖрд╡рд╢реНрдпрдХ рд╡рд┐рдиреНрдбреЛрдЬрд╝ ... ~ yz / lib / winlib.f

 0 VALUE рдЬреАрдд
 0 рд╕рд╣реА рд╕рдордп
 0 рд╡реИрд▓реНрдпреВ рдПрдЪрдбреАрд╕реА
 0 рд╕рд╣реА рд╣реИ
 0 рдорд╛рди mypen2
 22 рд╡реИрд▓реНрдпреВ рдбреЙрдЯреНрд╕
 0 рд╡реИрдз
 рдмрдирд╛рдПрдБ 0d0a 0xD C, 0xA C, 

 рдмрдирд╛рдПрдБ * рдбреЙрдЯреНрд╕ рдбреЙрдЯреНрд╕ рд╕реЗрд▓ 3 * ALLOT

 : rnd TIMER @ * 200 UMOD;

 : rndxy dots 2 * 0 DO rnd 2 * 25 + I CELL * * рдбреЙрдЯреНрд╕ +!  rnd 3 * 25 + I CELL * * рдбреЙрдЯреНрд╕ + CELL +!  рд▓реВрдк;

 : tre rndxy 
 S "X:" рдлрд╛рдЗрдЯ рд░рд╛рдЗрдЯ-рдлрд╛рдЗрд▓ рдереНрд░реЙрдЗрдб 
 рдбреЙрдЯреНрд╕ 2 * 0 DO I CELL * * рдбреЙрдЯреНрд╕ + @ S> D (D.) FID WRITE-FILE THROW S "" рдлрд┐рдб рд░рд╛рдЗрдЯ-рдлрд╛рдЗрд▓ рдереНрд░реВрдк рд▓реВрдк
 0d0a 2 fid WRITE-FILE THROW

 S "Y:" рдлрд╛рдЗрдЯ рд░рд╛рдЗрдЯ-рдлрд╛рдЗрд▓ рдереНрд░реЙрдЗрдб
 рдбреЙрдЯреНрд╕ 2 * 0 DO I CELL * * рдбреЙрдЯреНрд╕ + CELL + @ S> D (D.) FID WRITE-FILE THROW S "" рдлрд┐рдб рд░рд╛рдЗрдЯ-рдлрд╛рдЗрд▓ рдереНрд░реВрдк рд▓реВрдк
 0d0a 2 fid WRITE-FILE THROW
 0d0a 2 fid WRITE-FILE THROW

  ;
 
  rndxy
 
 WINAPI: CreatePen GDI32.dll
 WINAPI: рдкреЙрд▓реАрдмреАрдЬрд╝рд┐рдпрд░ GDI32.dll


 PROC: рдкреЗрдВрдЯ
   mypen2 windc SelectObject DROP
   рдбреЙрдЯреНрд╕ * рдбреЙрдЯреНрд╕ рд╡рд┐рдВрдбрдХ рдкреЙрдЬрд╝реЗрдЬрд╝рд┐рдпрд░ рдбреАрдЖрд░рдУрдкреА
   rndxy
 PROC;

 рд╕рдВрджреЗрд╢: рдореЗрд░реА

 рдПрдо: wm_lbuttondblclk
     rndxy 
     рд╡рд┐рдирд╣рд╛рдЗрдб рдЬреАрддреЛ
     рдЬреАрддреЛ рдЬреАрддреЛ 
   рд╕рд╣реА
 рдПрдо;
 рд╕рдВрджреЗрд╢;

 : рднрд╛рдЧреЛ 
   рд╡рд┐рдиреНрдбреЛрдЬрд╝ ...
 S "warps.txt" R / W CREATE-FILE THROW to fid

 0x00F00599 2 0 CreatePen To mypen2

 0 рдмрдирд╛рдиреЗ-рдЬреАрддрдиреЗ рдХреЗ рд▓рд┐рдП рд╡рд┐рдВрдбреЛ
  рд╡рд┐рдирдореИрдВ рдЬреАрддрдирд╛
  рдмреЗрдЬрд╝реЗрд╕реНрдХреА рдХреА рдЬреАрдд!
 420 430 0 рдмрдЯрди рдЬрдЧрд╣ рд╣реИ 
 рдпрд╣ рд╕рд╣реА рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП
 10 10 рд╕рд╣реА ctlresize
   ['] рдЯреНрд░реЗ рдорд╛рдЗрд░реЗрдХреНрдЯ -рдХрдореИрдВрдб!

 120 130 рдЬреАрдд рд╡рд╛рдЗрдирдореЛрд╡
 500 500 рдЬреАрдд рдЬреАрдд
    рдкреЗрдВрдЯ рдЬреАрдд!
   рдореЗрд░реА рдЬреАрдд!
 рдЬреАрддреЛ рдЬреАрддреЛ

 ... рд╡рд┐рдиреНрдбреЛрдЬрд╝
 рдмрдВрдж рдХреНрд▓реЙрдж-рдлрд╝реЗрд▓ рдереНрд░реМрдб
 рдЕрд▓рд╡рд┐рджрд╛
 ;

 рд╕рд╣реА рд╣реИ? рдЬреАрдпреВрдЖрдИ?
 'MAINX рдЪрд▓рд╛рдПрдВ!
 S "warpy.exe" рд╕рд╣реЗрдЬреЗрдВ
 рд░рди



рдпрд╣ рдХреЛрдб, SPF рдХрдВрд╕реЛрд▓ рдореЗрдВ рдЪрд▓ рд░рд╣рд╛ рд╣реИ, рдирд┐рд╖реНрдкрд╛рджрди рдпреЛрдЧреНрдп рдлрд╝рд╛рдЗрд▓ warpy.exe рдмрдирд╛рдПрдЧрд╛, рдЬреЛ рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рдЕрдкрдиреЗ рджрдо рдкрд░ рдЪрд▓рд╛рдпрд╛ рдЬрд╛ рд╕рдХрддрд╛ рд╣реИред рддрд╕реНрд╡реАрд░ рдкрд░ рдбрдмрд▓ рдХреНрд▓рд┐рдХ (рдмрд╛рдПрдВ рдмрдЯрди) рдЗрд╕реЗ рдмрджрд▓рддрд╛ рд╣реИред рдирд┐рдЪрд▓реЗ рджрд╛рдПрдВ рдХреЛрдиреЗ рдореЗрдВ рд╕реНрдерд┐рдд рдмрдЯрди X, Y рд╕рдордиреНрд╡рдп рдХреЛ warps.txt рдлрд╝рд╛рдЗрд▓ рдореЗрдВ рдмрдЪрд╛рддрд╛ рд╣реИ


рдФрд░ рддрд╕реНрд╡реАрд░реЗрдВ
Paraparabola

рдЧреМрд░реИрдпрд╛

рдЕрджрд┐рд╢

Plektory

рдлреВрд▓, рд╢реАрд░реНрд╖ рджреГрд╢реНрдп

рдЯреНрдпреВрд▓рд┐рдк

рдпрд╛рддреНрд░реА

рджреЛ рдмреЛрддрд▓ Decanter

рдХрдордВрдж

рдХреИрдВрдбрд┐рдВрд╕реНрдХреА

Source: https://habr.com/ru/post/In211709/


All Articles