grafer

Hej eksperter...

jeg har denne kode far www.html.dk:

arrVinkler = Array(90,90,80,100)
arrFarver = Array(vbRed,vbGreen,vbYellow,vbBlue)
intS = 90 'Størrelsen på lagkagen

Set Image = Server.CreateObject("AspImage.Image")
Image.MaxX = intS
Image.MaxY = intS

X_2 = (0.5*intS)
Y_2 = 0

For i = 0 to Ubound(arrVinkler)

  X_1 = (0.5*intS)
  Y_1 = (0.5*intS)

  X_R = (X_2 - X_1)
  Y_R = (Y_2 - Y_1)

  pi = 4 * Atn(1)
       
  CosAng = Cos(arrVinkler(i)*pi/180)
  SinAng = Sin(arrVinkler(i)*pi/180)

  X_3 = ((X_R*CosAng)-(Y_R*SinAng))+X_1
  Y_3 = ((Y_R*CosAng)+(X_R*SinAng))+Y_1

  Image.BackgroundColor = arrFarver(i)
  Image.Pie 0, 0, intS, intS, X_2, (intS-Y_2), X_3, (intS-Y_3)
           
  X_2 = X_3
  Y_2 = Y_3
       
Next

Response.ContentType = "image/gif"
Response.BinaryWrite Image.Image

Set Image = nothing

hvordan skal jeg så udskrive den hvis det er i samme dokument den ligge som den skal udskrives i ?

mvh.
www.questis.dk