maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
7680: begin
7681: type RNG_Type =
7682: (RNG_MWC, { Multiply-With-Carry }
7683: RNG_MT, { Mersenne Twister }
7684: RNG_UVAG); { Universal Virtual Array Generator }
7685: Procedure SetRNG( RNG : RNG_Type)
7686: Procedure InitGen( Seed : RNG_IntType)
7687: Procedure SRand( Seed : RNG_IntType)
7688: Function IRanGen : RNG_IntType
7689: Function IRanGen31 : RNG_IntType
7690: Function RanGen1 : Float
7691: Function RanGen2 : Float
7692: Function RanGen3 : Float
7693: Function RanGen53 : Float
7694: end;
7695:
7696: // Optimization by Simulated Annealing
7697: procedure SIRegister_usimann(CL: TPSPascalCompiler);
7698: begin
7699: Procedure InitSAParams( NT, NS, NCycles : Integer; RT : Float)
7700: Procedure SA_CreateLogFile( FileName : String)
7701: Procedure SimAnn(Func: TFuncNVar; X, Xmin, Xmax : TVector; Lb, Ub : Integer; var F_min : Float);
7702: end;
7703:
7704: procedure SIRegister_uranuvag(CL: TPSPascalCompiler);
7705: begin
7706: Procedure InitUVAGbyString( KeyPhrase : string)
7707: Procedure InitUVAG( Seed : RNG_IntType)
7708: Function IRanUVAG : RNG_IntType
7709: end;
7710:
7711: procedure SIRegister_ugenalg(CL: TPSPascalCompiler);
7712: begin
7713: Procedure InitGAParams( NP, NG : Integer; SR, MR, HR : Float)
7714: Procedure GA_CreateLogFile( LogFileName : String)
7715: Procedure GenAlg(Func: TFuncNVar; X, Xmin, Xmax : TVector; Lb, Ub : Integer; var F_min : Float);
7716: end;
7717:
7718: TVector', 'array of Float
7719: procedure SIRegister_uqsort(CL: TPSPascalCompiler);
7720: begin
7721: Procedure QSort( X : TVector; Lb, Ub : Integer)
7722: Procedure DQSort( X : TVector; Lb, Ub : Integer)
7723: end;
7724:
7725: procedure SIRegister_uinterv(CL: TPSPascalCompiler);
7726: begin
7727: Procedure Interval( X1, X2 : Float; MinDiv, MaxDiv : Integer; var Min, Max, Step : Float)
7728: Procedure AutoScale(X: TVector; Lb, Ub : Integer; Scale : TScale; var XMin, XMax, XStep:Float)
7729: end;
7730:
7731: procedure SIRegister_D2XXUnit(CL: TPSPascalCompiler);
7732: begin
7733: FT_Result', 'Integer
7734: //TDWordptr', '^DWord // will not work
7735: TFT_Program_Data', 'record Signature1 : DWord; Signature2 : DWor'
7736: d; Version : DWord; VendorID : Word; ProductID : Word; Manufacturer : PCha'
7737: r; ManufacturerID : PChar; Description : PChar; SerialNumber : PChar; MaxP'
7738: ower : Word; PnP : Word; SelfPowered : Word; RemoteWakeup : Word; Rev4 : B'
7739: yte; IsoIn : Byte; IsoOut : Byte; PullDownEnable : Byte; SerNumEnable : By'
7740: te; USBVersionEnable : Byte; USBVersion : Word; Rev5 : Byte; IsoInA : Byte'
7741: ; IsoInB : Byte; IsoOutA : Byte; IsoOutB : Byte; PullDownEnable5 : Byte; S'
7742: erNumEnable5 : Byte; USBVersionEnable5 : Byte; USBVersion5 : Word; AIsHigh'
7743: Current : Byte; BIsHighCurrent : Byte; IFAIsFifo : Byte; IFAIsFifoTar : By'
7744: te; IFAIsFastSer : Byte; AIsVCP : Byte; IFBIsFifo : Byte; IFBIsFifoTar : B'
7745: yte; IFBIsFastSer : Byte; BIsVCP : Byte; UseExtOsc : Byte; HighDriveIOs : '
7746: Byte; EndpointSize : Byte; PullDownEnableR : Byte; SerNumEnableR : Byte; I'
7747: nvertTXD : Byte; InvertRXD : Byte; InvertRTS : Byte; InvertCTS : Byte; Inv'
7748: ertDTR : Byte; InvertDSR : Byte; InvertDCD : Byte; InvertRI : Byte; Cbus0 '
7749: : Byte; Cbus1 : Byte; Cbus2 : Byte; Cbus3 : Byte; Cbus4 : Byte; RIsVCP : B'
7750: yte; end
7751: end;
7752:
7753:
7754: //*************************************** PaintFX****************************
7755: procedure SIRegister_TJvPaintFX(CL: TPSPascalCompiler);
7756: begin
7757: //with RegClassS(CL,'TComponent', 'TJvPaintFX') do
7758: with AddClassN(FindClass('TComponent'),'TJvPaintFX') do begin
7759: Procedure Solarize( const Src : TBitmap; var Dst : TBitmap; Amount : Integer)
7760: Procedure Posterize( const Src : TBitmap; var Dst : TBitmap; Amount : Integer)
7761: Procedure Blend( const Src1, Src2 : TBitmap; var Dst : TBitmap; Amount : Single)
7762: Procedure Blend2( const Src1, Src2 : TBitmap; var Dst : TBitmap; Amount : Single)
7763: Procedure ExtractColor( const Dst : TBitmap; AColor : TColor)
7764: Procedure ExcludeColor( const Dst : TBitmap; AColor : TColor)
7765: Procedure Turn( Src, Dst : TBitmap)
7766: Procedure TurnRight( Src, Dst : TBitmap)
7767: Procedure HeightMap( const Dst : TBitmap; Amount : Integer)
7768: Procedure TexturizeTile( const Dst : TBitmap; Amount : Integer)
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 90