Advertisement
Mysoft

Untitled

Mar 15th, 2025
441
0
6 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.18 KB | None | 0 0
  1. ; $1 = XVal ; $2 = YVal
  2. alias Mandel_Pixel {    
  3.   var %J 1 , %M = 0 , %R = $1 , %I = $2
  4.   while (%J < 128) {
  5.  
  6.     inc %J
  7.     %M = $calc((%R *%R)-(%I *%I))
  8.     %I = $calc((2*(%R *%I)) + $2)
  9.     %R = %M + $1
  10.     ;if $abs(%M) > 3 return %J
  11.  
  12.     inc %J
  13.     %M = $calc((%R *%R)-(%I *%I))
  14.     %I = $calc((2*(%R *%I)) + $2)
  15.     %R = %M + $1
  16.     ;if $abs(%M) > 3 return %J
  17.  
  18.     inc %J
  19.     %M = $calc((%R *%R)-(%I *%I))
  20.     %I = $calc((2*(%R *%I)) + $2)
  21.     %R = %M + $1
  22.     if $abs(%M) > 3 return %J  
  23.  
  24.   }
  25.   return %J
  26. }
  27.  
  28. alias Mandel_Row {
  29.   if (!$window(@Mandel)) {
  30.     .timerMandel off
  31.     unset %m_Y
  32.     unset %m_Start
  33.     halt
  34.   }
  35.   var %X = 0    
  36.   while ( %X < 256 ) {
  37.     var %I = $Mandel_Pixel( $calc( %X / 25600 - 1.378 ) , $calc( %m_Y / 19200 - .09 ) )
  38.     if ( %I > 85 ) { %I = 85 }
  39.     drawdot -nr @Mandel $rgb( %I , $calc(%I *2) , $calc(%I *3) ) 1 %X %m_Y
  40.     inc %X    
  41.   }
  42.   drawdot @Mandel
  43.   dec %m_Y
  44.   if (!%m_Y) {
  45.     echo > $calc( ($ticks - %m_Start) / 500 ) $+ s
  46.     unset %m_Y
  47.     unset %m_Start
  48.   }
  49. }
  50.  
  51. alias Mandel_Calc {
  52.   window -daCp @Mandel 0 0 256 224
  53.   set %m_Start $ticks
  54.   set %m_Y 191
  55.   .timerMandel -m %m_Y 1 Mandel_Row
  56. }
  57.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement