"рдФрд░ рдПрдХ рдмреБрд░рд╛ 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
рдХрдордВрдж
рдХреИрдВрдбрд┐рдВрд╕реНрдХреА