Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / V_LIB205 / VLIBDEMO.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-03-23 | 13.1 KB | 356 lines

Form1 #Visualib 2.05 Demo for Visual Basic Form1 Panel3D2 SSPanel MS Sans Serif Panel3D1 SSPanel Spin1 SpinButton Clear SSCommand Clear mnuFile &File mnuFileExit E&xit Form_Load" HScroll1_Change' label1 Caption Value HScroll1_Scroll Label1_Click HScroll1| mnuFileExit_Click InitialVisualib InitializeVisualib status Licenseinfo CreateViewerR viewer1W vname SelectViewer viewer21 PenColor VL_BLUE displayviewerframee VL_CURRENT0 TextColor VL_BLACK8 TRANSPARENT DisplayViewerNameL InitVlib{ Command3D1_Click| Start_Click Clear_Click Clears_Click Star2Dq Spin1_SpinDown Spin1_SpinUp label viewer31i viewer2 viewer3 demoa BOOLP InitApplicationM hInstance RECTl VECTOR3B parameterd light1 CreateLight6 VL_DISTLIGHT SelectLight; SetLightCoordinateType VL_WORLDLIGHT VSET3y ShadingParameter VL_LIGHTDIRECTION ShadingColor VL_LIGHTCOLOR SwitchLight light2 VL_POINTLIGHT VL_LIGHTLOCATION light3j light4Z VL_SPOTLIGHT ShadingFactor VL_SPOTLIGHTANGLE VL_SPOTLIGHTSPREAD light7 VL_LIGHTINTENSITY1 light89 GetDC GetDeviceCaps BITSPIXEL ShadingOption VL_SHADINGMETHOD VL_PHONGSHADE VL_DEPTHBUFFER VL_FLATSHADEC VL_LOCALVIEWER ReleaseDCP VL_BACKFACEREMOVALv SelectMaterialB mater0 CreateMaterial VL_MATERIALSPECULARp VL_SPECULARREFLECT VL_MATERIALAMBIENT VL_AMBIENTREFLECTs VL_MATERIALDIFFUSE VL_SHININESS mater1 mater2 mater3 mater4+ SetRect! VL_TWOD_ VL_HORZFIT. SetWindow2D VL_THREEDL SetView3D SetPerspective SetDepthBufferE VL_ALLFIT ViewerReset POINT3D surf] sknot9 tknot ObjectMotion2D short BeginDoubleBuffer VL_RED animate_lengthH ClearViewer VL_GRAY* BrushColor VL_GREEN Flower2D Rotate2DB UpdateDoubleBuffer MoveViewer2D Scale2D EndDoubleBuffer SetViewerName/ RotateStarx viewer35 SolidStarn break MoveViewer3D Rotate3DR Object3DG Scale3D SpringQ VL_NONE` Translate3D PushTransformation3D Tetrahedron Octahedron PopTransformation3D RotateSurface VL_TWOSIDESHADE NURBSSurfaceN VL_3D LPCOORD RotateDodecahedron viewer33| Dodecahedron depthbufferT shadingmethod twosideshade backfaceremovalp light0? Surfaces WORDX viewer30 ClearDepthBuffer xffff^ switchv IDM_SURFACE_BEZIER BezierSurfaceo Net3D PolyMark3Dn VL_CIRCLEMARK IDM_SURFACE_HERMIT( HermitSurface IDM_SURFACE_BSPLINE BSplineSurface IDM_SURFACE_NURBS VL_BOXMARK IDM_SURFACE_COONSPATCH CoonsPatch VOIDED ShowSolidPrimitives IDM_SOLID_TUBE] SolidRing IDM_SOLID_TORUST TranslateTo3D. Torus WedgedTorus IDM_SOLID_SPHERE WedgedSphere` IDM_SOLID_ELLIPSOID Ellipsoid IDM_SOLID_CYLINDERl WedgedCylinder SolidPie IDM_SOLID_CONES WedgedCone IDM_SOLID_TETRAHEDRON MarkPosition3D VL_CROSSHAIR* IDM_SOLID_OCTAHEDRON+ VL_ORIGIND IDM_SOLID_DODECAHEDRON{ IDM_SOLID_ICOSAHEDRON Icosahedronq IDM_SOLID_FRUSTUM Frustum& IDM_SOLID_RIDGEb Ridge IDM_SOLID_BOX? IDM_SOLID_STARF IDM_SOLID_FLOWER SolidFlower halign TA_CENTERD valign< TA_BASELINE3 ShowTextPrimitives5 func6 [40]@ wsprintf IDM_TEXT_2D viewer20 TextParameter VL_TEXT_HEIGHT SetTextAlign Text2D IDM_TEXT_3D VL_YELLOW TA_LEFT TA_BOTTOM Text3D TA_RIGHT TA_TOP IDM_TEXT_SOLID VL_TEXT_THICKNESS SolidText SelectObject GetStockObject SYSTEM_FONT MirrorTransf3D Mirror3D PointScaleTransf3D PointScale3D CompositeDemo3D Spherer DepthClippingDemo MarbleRingDemof textureN SolidTexture VL_MARBLE WoodSurfaceDemo VL_WOODGRAINS GraniteCubeDemo VL_GRANITE StereoTextDemo Welcome Pushtransformation2d setfont PopTransformation2dI BumpyDonutDemo VL_BUMPY VlibDemo backfaceoff light5 light6 Form_Unload@ Cancel ExitVisualib SetRGBPa SetRGBPalette Form_Activate hObject nIndex wFlags VL_GREY visibleL enabled panel3d2 Panel3D1_DragDrop Source Control currentxX currenty PROGRAM: Vlibdemo PURPOSE: To demonstrate the usage of Visualib(TM) functions. PROVIDER: Visual Tech Co. P.O.Box 8735 Fort Wayne, IN 46898-8735 Tel. (219) 289-0235 Fax. (816) 746-6618 DATE: Januray 1994 Clear_Click MirrorTransf3D (HDC hdc)b VECTOR3 ref = {0, 0, 0}, dir; char str[] = "Visualib";i MarkPosition3D (hdc, 0, 0, 0, 40, VL_ORIGIN); SetViewerName (VL_CURRENT, "3D Mirror Transformation"); SetTextAlign (hdc, TA_LEFT | TA_BOTTOM);a TextParameter (VL_TEXT_HEIGHT, 20); BrushColor (hdc, VL_RED); Text3D (hdc, 3, 3, 0, str); PushTransformation3D (NULL); VSET3 (dir, 1, 0, 0); Mirror3D (ref, dir);; BrushColor (hdc, VL_GREEN); Text3D (hdc, 3, 3, 0, str); PopTransformation3D (NULL); PushTransformation3D (NULL); VSET3 (dir, 0, 1, 0); Mirror3D (ref, dir);; BrushColor (hdc, VL_YELLOW); Text3D (hdc, 3, 3, 0, str); PopTransformation3D (NULL); PushTransformation3D (NULL); VSET3 (dir, -1, -1, 0); Mirror3D (ref, dir);0 BrushColor (hdc, VL_BLUE);) Text3D (hdc, 3, 3, 0, str); PopTransformation3D (NULL); Welcome to VISUALIB View Frame 2D Objects PenColor hdc, VL_NONE 3D Obejects Ellipsoid Dodecahedron Visualib Solid Text 3D Composite MarkPosition3D (hdc, 0, 0, 0, 10, VL_ORIGIN)R Icosahedron Torus NURBS surface Visual Tech Co PO Box 8735 Fort Wayne, IN 46898-8735 Form_Activate Form_Load Form_Unload mnuFileExit_Click Spin1_SpinDown Spin1_SpinUp