Unit ModelMuseUtilities

Description

Uses

Classes, Interfaces, Objects and Records

Functions and Procedures

Types

Constants

Variables

Description

ModelMuseUtilities contains a variety of miscellaneous routines involving OpenGL, math, and strings.

Uses

Windows
SysUtils
Graphics
OpenGL12x
GoPhastTypes
ColorSchemes

Overview

Functions and Procedures

procedure ExtractColorComponents(const AColor: TColor; out Red, Green, Blue: TGLubyte);

function ExtractFileRoot(const FileName: string): string;

function FracAndSchemeToColor(ColorSchemeIndex: integer; Fraction, ColorAdjustmentFactor: real; const Cycles: integer): TColor;

procedure Normal(const v1, v2, v3: T3DRealPoint; out result: T3DRealPoint);

procedure SubtractVectors(const v1, v2: T3DRealPoint; out result: T3DRealPoint);

function FortranFloatToStr(Value: Extended): string;

function FortranStrToFloat(AString: string): Extended;

function TitleCase(AString: string): string;

function AnsiTitleCase(AString: AnsiString): AnsiString;

function IntToStrFormatted(Value: integer): string;

procedure DSiTrimWorkingSet;

function QuoteFileName(AName: string): string;

function FixShapeFileFieldName(FieldName: AnsiString): AnsiString;

procedure RunAProgram(const CommandLine: string);

function FileLength(fileName : string) : Int64;

function IsWOW64: Boolean;

procedure CantOpenFileMessage(AFileName: string);

Constants

StrSorryItLooksLike = 'Sorry. It looks like some other program has locked ' +
  '%s. You will need to close the other program.';

Description

Functions and Procedures

procedure ExtractColorComponents(const AColor: TColor; out Red, Green, Blue: TGLubyte);

ExtractColorComponents gets the red, green, and blue components from a TColor in a form suitable for use with OpenGL.

function ExtractFileRoot(const FileName: string): string;

ExtractFileRoot extracts the file name without the drive, directory or extension.

function FracAndSchemeToColor(ColorSchemeIndex: integer; Fraction, ColorAdjustmentFactor: real; const Cycles: integer): TColor;

FracAndSchemeToColor converts a fraction between 0 and 1 to a color using the selected ColorSchemeIndex.

Parameters

ColorSchemeIndex

0: FracToSpectrum;

1: FracToGreenMagenta (reversed);

2: FracToBlueRed (reversed);

3: FracToBlueDarkOrange (reversed);

4: FracToBlueGreen (reversed);

5: FracToBrownBlue (reversed);

6: FracToBlueGray (reversed);

7: FracToBlueOrange (reversed);

8: FracToBlue_OrangeRed (reversed);

9: FracToLightBlue_DarkBlue (reversed);

10: ModifiedSpectralScheme (reversed);

procedure Normal(const v1, v2, v3: T3DRealPoint; out result: T3DRealPoint);

Normal calculates the normal of the plane defined by v1, v2, and v3.

procedure SubtractVectors(const v1, v2: T3DRealPoint; out result: T3DRealPoint);

SubtractVectors subtracts v2 from v1.

function FortranFloatToStr(Value: Extended): string;

function FortranStrToFloat(AString: string): Extended;

function TitleCase(AString: string): string;

function AnsiTitleCase(AString: AnsiString): AnsiString;

function IntToStrFormatted(Value: integer): string;

IntToStrFormatted converts Value to a string that includes the thousands separator if appropriate.

procedure DSiTrimWorkingSet;

function QuoteFileName(AName: string): string;

function FixShapeFileFieldName(FieldName: AnsiString): AnsiString;

procedure RunAProgram(const CommandLine: string);

function FileLength(fileName : string) : Int64;

function IsWOW64: Boolean;

procedure CantOpenFileMessage(AFileName: string);

Constants

StrSorryItLooksLike = 'Sorry. It looks like some other program has locked ' +
  '%s. You will need to close the other program.';

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:44