about Hardware Images and _DisplayOrder,Help!

[SMcNeill]

And a slightly sexier, glossier version of this stone:

Code: (Select All)

'$Console

$Color:32

Dim As String svgHeader, svgFooter, svgW, svgB

Dim As String svgBc, svgWc, finalSvgB, finalSvgW, svgDef

Dim As Long sImgB, sImgW





'black go stone

svgB = svgB + "<svg width='40' height='40' viewBox='0 0 40 40' xmlns='http://www.w3.org/2000/svg'>" + Chr$(10)

svgB = svgB + "<defs>" + Chr$(10)

' Main black GO stone gradient

svgB = svgB + "<radialGradient id='goBlack' cx='35%' cy='35%' r='65%'>" + Chr$(10)

svgB = svgB + "<stop offset='0%' stop-color='#6a6a6a'/>" + Chr$(10)

svgB = svgB + "<stop offset='45%' stop-color='#2a2a2a'/>" + Chr$(10)

svgB = svgB + "<stop offset='100%' stop-color='#000000'/>" + Chr$(10)

svgB = svgB + "</radialGradient>" + Chr$(10)

' Shadow under the stone

svgB = svgB + "<radialGradient id='goShadow' cx='50%' cy='50%' r='50%'>" + Chr$(10)

svgB = svgB + "<stop offset='0%' stop-color='rgba(0,0,0,0.35)'/>" + Chr$(10)

svgB = svgB + "<stop offset='100%' stop-color='rgba(0,0,0,0)'/>" + Chr$(10)

svgB = svgB + "</radialGradient>" + Chr$(10)

svgB = svgB + "</defs>" + Chr$(10)

' Shadow ellipse

svgB = svgB + "<ellipse cx='20' cy='25.5' rx='11.5' ry='3.8' fill='url(#goShadow)'/>" + Chr$(10)

' The stone itself

svgB = svgB + "<circle cx='20' cy='20' r='12' fill='url(#goBlack)'/>" + Chr$(10)

svgB = svgB + "</svg>" + Chr$(10)











'White go stone

svgW = svgW + "<svg width='40' height='40' viewBox='0 0 40 40' xmlns='http://www.w3.org/2000/svg'>" + Chr$(10)

svgW = svgW + "<defs>" + Chr$(10)

' Main white GO stone gradient

svgW = svgW + "<radialGradient id='goWhite' cx='35%' cy='35%' r='65%'>" + Chr$(10)

svgW = svgW + "<stop offset='0%' stop-color='#ffffff'/>" + Chr$(10)

svgW = svgW + "<stop offset='45%' stop-color='#e8e8e8'/>" + Chr$(10)

svgW = svgW + "<stop offset='100%' stop-color='#b8b8b8'/>" + Chr$(10)

svgW = svgW + "</radialGradient>" + Chr$(10)

' Shadow under the stone

svgW = svgW + "<radialGradient id='goShadow' cx='50%' cy='50%' r='50%'>" + Chr$(10)

svgW = svgW + "<stop offset='0%' stop-color='rgba(0,0,0,0.35)'/>" + Chr$(10)

svgW = svgW + "<stop offset='100%' stop-color='rgba(0,0,0,0)'/>" + Chr$(10)

svgW = svgW + "</radialGradient>" + Chr$(10)

svgW = svgW + "</defs>" + Chr$(10)

' Shadow ellipse

svgW = svgW + "<ellipse cx='20' cy='25.5' rx='11' ry='3.8' fill='url(#goShadow)'/>" + Chr$(10)

' The stone itself

svgW = svgW + "<circle cx='20' cy='20' r='12' fill='url(#goWhite)'/>" + Chr$(10)

svgW = svgW + "</svg>" + Chr$(10)



finalSvgB = svgB

finalSvgW = svgW

'_Echo finalSvgB

'_Echo finalSvgW

sImgB = _LoadImage(finalSvgB, 33, "memory")

sImgW = _LoadImage(finalSvgW, 33, "memory")

't& = _NewImage(800, 600, 32)

'_Dest t&

'Line (0, 0)-(799, 599), Peach, BF

'board_hw& = _CopyImage(t&, 33)

_Dest 0

'_FreeImage t&



Screen _NewImage(800, 600, 32)



'_DisplayOrder _Hardware1 , _Hardware , _Software

Do

    _Limit 30

    Line (0, 0)-(799, 599), Peach, BF

    _PutImage (0, 0), board_hw&

    _PutImage (10, 10), sImgW

    _PutImage (10, 110), sImgB

    '  _PutImage (10, 110), sImgB

    Line (25, 125)-Step(10, 10), Red, BF

    Color Black, 0

    _UPrintString (20, 25), "119"



    _Display

Loop Until InKey$ = Chr$(27)

_FreeImage sImgW

_FreeImage sImgB

System