          ਢ           
   : Priest/Energy Minds   
         AY 몠: Imp         |

       ⥡  ⥫!

 ᫨    ,    : 
  ⢨⥫쭮  襫    ﬨ
      ᬮ,      
⨭...    砥 ࠤ ⥡ 
.

    ⮣,    ।⠢. 
        ,      
⢥ ஬ 㯯 Energy Minds 
ன    ஧ Priest'. 
      蠫.

    ⥯,    -⠪ ।
ᥣ   ᬮ७:

   1. ஢ .
   2. ਢ .


------------------------------------------
            ஢ 
------------------------------------------

 ୮    -    , 
⠪  ஢    ⮬  ࠧ 
  .  ஢ ந諮
  ᪮  "to clip",   ॢ
      砥,   ᥪ   (१,
१).      ࠧ  ஢
    祭  室    ࠩ
࠭  殢  १.  ⮬
  १  ⠥  ⮫쪮   
.

 ⠪,   祬     ᥪ...    㦥
ᠫ   , 諮 ६,
  祭  室 짮
୮  䨪.       ᠭ
ணࠬ      ᨪ     
室 ᮢ - ꥪ
।   室騩      ।  ࠭,
뢠     ⥬     ᠬ     訡    ,
ᮮ⢥⢥,   ⠭   ணࠬ.   
      ᨪ   ணࠬ  
᫠,  ⮫쪮    ⮣ 
  .      ⠥ 
室: ᥬ.

 ਢ              
ॠ   ᥬ,  
ਬࠬ  ⨪ ࣠  ⮨.

 ⠪   ᭮ ᥣ   
૥-奭.

     ।   ॡ 㧭,
  室     殢 १.
 ⮣ ᯮ㥬 ⮢ ।⠢
      १   ⭮⥫쭮
   אַ㣮쭨   (     ⨬
אַ㣮쭨 㯠 ࠭), ..:

    0 - 窠   אַ.
    1 - -----//----  אַ.
    2 - -----//---- ࠢ אַ.
    3 - -----//----  אַ.

 ⨬,    1,1  न ࢮ
  १,   2,2 , ᮮ⢥⢥,
न  ண   १. 
   4    
殢.   쪮  ᭠砫  ᫮,  
砫  न  㤥    孥 
㣫,        㣨  ଠ 
     99%  ᯥ㬮᪨  ணࠬ
ᠭ      ᥬ.   ⠪   
ᯥ㬮᪮ ࠭  룫廊 ⠪:

X1=0   ;  ࠩ  
X2=255 ; ࠢ ࠩ  
Y1=0   ; 孨 ࠩ  
Y2=192 ;  ࠩ  
code=0 ; ६  4 ⭮ 
if x<X1 then code=code+1
if y<Y1 then code=code+2
if x>X2 then code=code+4
if y>y2 then code=code+8

     ⠪ ⬠ 砥 
   殢.

   ⥯ ந ᠬ ஢ 
㦥   殢 १.

 if bit_0=1; ,   
    then y1=y1+(y2-y1)*(X1-x1)/(x2-x1)
     x1=X1
 if bit_1=1; ,    
    then x1=x1+(x2-x1)*(Y1-y1)/(y2-y1)
    y1=Y1
 if bit_2=1; ,  ࠢ 
    then y1=y1+(y2-y1)*(X2-x1)/(x2-x1)
    x1=X2
 if bit_3=1; ,    
    then x1=x1+(x2-x1)*(Y2-y1)/(y2-y1)
    y1=Y2

 ᫥      楤ન  ஢,
⠫    १  ࠭, ᫨
  ⠫,  ࠡ뢠 ன ,
   㣮   砥   塞  楤
(⠪   ७     ࠪ⨪    
砫,     室  ࢮ
ࠧ).

       , 楤
  ⮫쪮    १  1,1. 
⮣   ⮡   ⪫   ன   ,
筮     ⠬  न
殢    १,         ९뢠
楤 ⭮  ண .

   祭  ⮩    ᪠,   
ਫ    室  "CLIPPING"  
஬ ॠ   ᪠. 
ᠭ      ⥪⮢   䠩,      
ᨭᮬ   ᥬ  STORM.  室
஢७   ࠡ⠥   (  㦥
ਬ  ᢮ ண :).

   ...    室  ਬ  ᢥ
 楤   㬭, 
ᥬ    㦤    襩  
:)...

------------------------------------------
              ਢ 
------------------------------------------

 ,     ⠢  ᪮쪮
ப   ।饩       㧭,  
-   ஢    祭
१,  ࠧ 㫨   ,
    .  
    襬.   㯨...

 ਢ      㦠     ஥
  ਢ (㯮 ,  ⠪ ?)
 -   祪.
祬   ਢ     ⥫쭮  
१  ࠧ      祪.
 ⭮,  ᥩ ஡ ᭨
-祫᪨.

 ⨬    ५  ᮧ
᢮   ⠡㥬   .   ..  
㢥祭  ᨬ    ࠭ ०
,          㢥祭  ᥫ
⠭  ࠧ஬   ⡮쭮  (
⠪  ⠬  ⭮    .chr  
PC誨).     ,  筮  ⠪  
     ஬    設,    
᫥⢨  ᮥ १. 
ᯮᮡ   ਥ      80%  ᨬ쭮
.  祬?       㪢
""?    -   ᪠   㬠,   
ﭨ      設   㬥
⮫쪮,    ᪮쪮  ⠪ १
ᮩ   ਢ.
 ,  ᪠  ,  ᮣᥭ.  ⠪ 㤥 
 ,    ॡ 㢥
ᨬ,  ᪠,    ࠧ   10...  
? ﭨ  設 ⮦
㢥 ࠧ  10   㦥 㤥 
   ਢ,     
.      ਩  
  ᠬ ਢ.   ⮨ 
ਢ,   ᥣ , 稭
ᥣ      ࢮ      窥   
稢  筮   ᫥ 
窥.        ⮨ 
⭥  ,    ਢ  ᥪ
ᠬ  ᥡ    祬      ࠧ  ( 
ਢ   ਬ ⮫쪮  ࠧ,
..     㤥 ⮫쪮 4 窨 騥
ਢ).    쭮  ਬ⥫쭮,
  ᫨    ⠬   2 (
)  窨,     ਢ
(筥 㤠 :).
 ୥    ᨬ  "".  ਬ  
ॡ          ࠢ()
  ᨬ. ஬砢  
        祭   
ᥢ-ਢ    १     
諮,    ஬ ⠬,   10
設   (         稭
室 ᨬ, .. 祬  , ⥬
  祪  ॡ  ।⠢
ਢ).            ਢ  㤥
筮  4 設.

   ⠪, ਢ 뢠 
ࠢ:

        m
      _____
      \    |  i    i        m-i
 r(t)= \     C  * t  * (1-t)   * V
       /      m                   i
      /____|
        i=0          

     i    m!
 C =---------    0<t<1
     m i!*(m-i)!


      -      :
"    ॡ    ⠩ 
।!".
 ,    㫠,     ⠪ 襭
     .   ५ 
  ⠪ ﭨ,    
  ᨪ,     ᥬ  
㤥 .

       ࠧ६,
     祬,  ⮫쪮  ਣ⮢
ᯮ  -祣    ୮ 
:)...
  
     t -  稭   ⮣
         ᪮쪮 ᥣ 祪 㤥 
         ਢ, ..  ⢮ 
         祪  㥬 ᠬ ਢ. 
         砫쭮 t 砥  1/m,
          m - ⢮ 祪. ॡ-
           t    0  1
          ᬮ ᮢ  窨...
          ⮬ t_next=t_previous+1/m

  r(t) - 㭪 ᨬ r  t.
         ..  t  0  1  -
         稬  祭 r.  r -
          -⮫殬. 
         ࠧ न  -
            ࠬ t.
             :
                               | x |
         r(t)  ⮫  |   |,
                               | y |
         x  y  .  
         祪  ਢ.

   㬬 -  㬬  祭,
         砥  ࠦ -
          ᫥  㬬,  ஬
          ࠬ i. ࠬ
         "m" 뢠 ᪮쪨 ࠢ-
         騬 窠  
         ਢ.
   i
  C  -   樥  ࠧ 
   m     ⮭ (᫮ ⠭  m
         ⮢  i). ਭ 
         ⠪   ,   
          (㫠  ਢ!
          ⥬     ਤ㬠).

   i        m-i
  t   (1-t)   -    ஭-
          :-)

  V  -    ࠢ騥 設 襩
   i     ਢ. ..   -
         ⮫:
         (x0;y0),(x1;y1)......(x?;y?)
          ଠ 몮 
         न ࠢ 祪,
            
         ਢ.

     ⠯  -  祣 
᭨,      .

  ந ਢ, ।塞 4
窠.    ⮬  ᫥ , 
m=3.   ⠭ i=0...3 
  㫠 (஡ ⠢
  祭        
⮦ ᠬ):

r(t)=(((1-t)*V0+3*t*V1)*(1-t)+3*t^2*V2)*
     *(1-t)+t^3*V3

 ..    㦥   , : r(t)
   (x,y),     V0...V3    (x0,y0)...
...(x3,y3).    ॡࠢ  祭 t 
稬    न  祪   ਢ
(      t  㫠 
뢠).  -  ७-
       ࠢ 
r(t)    V    ⮫.   ⥬ ६
 .

  ᯮ㥬 ᢮⢮ ⮫殢:
     |x|  |a*x|
 a * | |= |   |
     |y|  |a*y|

     ࠧ  -
  ,   ⮫쪮   㦭
뫮:    ࠦ 
x ⤥쭮   y ⤥쭮.  -
砥:

for t=0 to 1 step .01; .01  100 祪 
                      ਢ.
x=(((1-t)*x0+3*t*x1)*(1-t)+3*t^1*x2)*
  *(1-t)+t^3*x3
y=(((1-t)*y0+3*t*y1)*(1-t)+3*t^1*y2)*
  *(1-t)+t^3*y3
plot x,y
next t

 ᫨  쬥  蠣   .01,  .001 (1000
祪),      ࠧ뢭 ਢ,
⮫쪮  㤥 ᮮ⢥⢥...

   !
   㬠,    - 饭 :
"  ,  ,      ࠧ    
ਬ稪?  뫮   ᪠?"
 ⢥  ⪮:  ᭥    뫮
  ᠭ ,  
  ਢ  ਬ   짮
㫮  ᫨  -  祪   
const,  ,  ᮬ    먣 
⮫쪮    ࠧ,     ᪮.  
᫨    㦭  뫮, ⮡ - 祪
ﭭ  﫮,     
         㦭  뫮,  ⠬  
    ॡ      (
⢥    让  ⮪  
ਢ :-(...

 -        㣮    㤥
:  "     ᨪ ࠥ? 
   祫⨥!    ᬥ
  ⢮ t   .01  .001?"

 ...    ࠫ   ஡.
        ...   
-    PC誮   AutoCAD'e
14 ᮢ ᮢ (쭮 쥬). A
    த  娫  233MHz... 
  ⨫      ⮬ ᠬ CAD'e 
"ᯫ"  (        ਢ
     ᯫ).  㦥 
饭   襯ਢ   
  ᮢ.  饬   砫
ᮢ      ᯫ      -
浪  10  ࠢ 祪,  ⨫
  ᯫ     , 
  १  ᥪ㭤 ,   15
ࠢ 祪  ⮩ ணࠬ  
  (   ।⠢ 
쥬  ᫥  ⠬   15 窠?)
        ⮬    ணࠬ   
ᨮ쭮     ࠭  ⢮
ࠢ  祪   ⭮,  ᥬ
   "쪠"  㫠  뢠
...      㤠  ⠬    
3.5MHz        ⠪    ᪮,   
ந쭮    ⢮    ࠢ
祪...   ⠪      諨     ᠬ
.       ⠥   ᤥ
ॠ쭮  -  ॠ  :).     
⮣ 㦭?

 -:      ᪮쪮  ࠢ
祪  祪   ਢ  㦭,
   塞  ᥡ  (ணࠬ)    80%
஬   ᫥.   ..  ᪠
6: "    ਢ     筮    8
ࠢ   祪    256  祪  ᠬ
ਢ"  稫 ᥡ   80% :)

 -:᫨    ⠢訥
稭    ⠡   ணࠬ 㦥
    ᪮  AutoCAD'
  ⮬    .  (ਬ. ᫥ ⮣  
ᠫ    ஢ਫ   ࠪ⨪
   ,        㢥稫  
᫥ ࠧ :)

 ।  ⥬    ᭨    ,
   ।।,           
਩   ࠡ    ஡묨  ᫠
(筥      ࠧ).    ⮣ 
஡  ᫠,    १  ⮢
⠡  (  ⥬      ᯮ짮),
।⠢    ⭮ ଥ. .. 
஡  㬭    255.    ਬ ⮡
 ࠧ ᫠ 0.01, 㬭 0.01 
255.  祭  ᫮  2.55 㣫塞 
3.  ᫮  3,  ⭮ ,  0.01, 
     ᢮⢠. ? 祭
...  ⨬    㬭 117
  0.01, ⮬ ६ 117  㬭 
 ࠧ 0.01, .  3. 稫  ᫮
351.   ᫮    hex #015f
⮡  뫮   來. ⠪,  
  ? 쬨   㬭
117   0.01. 稫 ᫮ 1.17. 
  ⨫,    楫    ᪮
᫠    襣  ᫠ 祭
  ᮢ.          
ॡ.     ஭  㥬
஡ﬨ,       㣮  㥬  楫묨
᫠,    .

   "୥    訬  ࠭". ⠪ 
    稭   ? ࠦ
⨯:
   i    i       m-i
  C  * t * (1-t)
   m

  ।⠢    ⠡. ⠪ 
祬      ...      
㤥  8  ࠢ  祪,    祪 
ਢ   256.     ஡  ਢ
ਬ  ᨪ  ᮧ ⠡:

adress=30000
fact7=5040; 7!
for t=0 to 1 step 1/256; 256 祪
    for i=0 to 7; 8 ࠢ 祪
        gosub BINOM
        a=c*t^i*(1-t)^(7-i)
        poke adress,int (a*255)
        adress=adress+1
    next i
next t

BINOM:
if i=0 then fact_1=1: goto PROD
fact_i=1
for f=1 to i
    fact_i=fact_i*f
next f
PROD:
if (7-i)=0 then fract_mi=1 goto PROD1
fact_mi=1
for f=1 to (7-i)
    fact_mi=fact_mi*f
next f
PROD1:
c=fact7/(fact_i*fact_mi)
return

        ,    ᫥
㫥   ॡ      㬭  
न  ࠢ  祪,    ⥬
⮢ 㬬.    㤥  
ᬥ,   ⮡        
  न  ࠢ 祪 
ᮮ⢥⢥    ਢ...  ⠪
⠡ ⠢: 8(.)*256(ਢ.)=2048
.
   ᨪ த ...  ஡㥬
 ᬥ...  筮  襤 ᪮
⢠...   ਬ ...

SPLINE  DI
        LD IX,UPRAVL;ࠢ騥 窨
        LD IY,SPLdata;⠭ .
        PUSH IY
        LD B,0; 256 祪  ਢ
N_DOT   PUSH BC,IY
        CALL COORDS; ⠥ x
        POP IY
        PUSH AF
        INC IX
        CALL COORDS; ⠥ y
        DEC IX
        LD D,A; Y
        POP AF
        LD E,A; X
        CALL PLOT; 㥬  D=y E=x
        POP BC
        DJNZ N_DOT; ⠪ 256 祪
        POP IY
        RET

COORDS  PUSH IX
        LD B,8; - ࠢ. 祪
LAPS    LD D,(IY); ६ ⠭
;稭  ⥪饩 窨
        LD E,(IX); ६   न-
; x  y (⠭ 뢠饩
;楤ன)
        INC IX,IX,IY
        CALL MULT; D*E=HL
        PUSH HL; ࠭塞 १-
        DJNZ LAPS

        LD HL,0; 㬬  =0
.8      POP DE:ADD HL,DE;㬬+. .
        LD A,H
        RL L;   襬 -
        ADC A,0;㣫塞  . 
; ஭
        POP IX
        RET

;HL=D*E
MULT    LD H,D,D,0,L,D
.8      ADD HL,HL:JR NC,$+3:ADD HL,DE
        RET

;न ࠢ 祪
UPRAVL  DB #75,#02
        DB #9F,#03
        DB #C2,#A7
        DB #D6,#4E
        DB #51,#9A
        DB #C8,#B8
        DB #02,#33
        DB #2F,#05

;⠭   窨 ਢ
SPLdata INCB "SPLdata"

 楤  ᮢ 窨   ᢮
ᥬ         ᠫ.  ᬮ  ⥪
ࠡ  אַ      ࠡ祩  ண,
   ਫ...

  -  ...     
  :)... ⪠...   ⠪ ஡
  ᭨,      ९ ஢
   ன    ௭. 
        1.5-2 ࠭, 
⠪    ⥬᪨    ᫮栬    
祭ﬨ    襭... ...
祬  90%    ⮣    ࠧ,
⠬     ࠧ - ਭ
  饨⭮ :)

     ᫮...  ᪮ ਠ
ୠ  㤥  ᫥騥 䠩:
 Bezie.B - ਬ  ᨪ
 Spline.B - ⠫ ⠡
 SPLdata.C - 㦥 ⠭ ⠡
 SPLINE.C - ⥪⮢ 䠩  ⨭
 STORM 祭 楤 ᯫ.

        ⮨      㢨
१  ࠡ ணࠬ, .. 筮
᫥   祭     1/256.  
    १⮢        
ᯮ   筮   1/65535.  ..  
஡  ᫠  (  ⠢ ⠡)
㬭    65535,    ᬥ ஢
      ⮢묨  稭, 
ᮬ         ᮡ  
ந⥫쭮...   襭     
ᯮ...

 ᫨  㤥  ᯮ짮     ᢮
ண,     ਢ ।, -
:).  ࠩ        ,   -
... :)
__________________________________________
   ᫥    ᪮॥ ᥣ 㤥
  ன    
⥩,      ᫥     ᢥ饭
         㤠.    
...  , ᯮ !

                             Bye!
                             Priest/EM/XPJ
__________________________________________
DI:HALT
