[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Polygon Problems

Hi Struan,

I agree that what you describe is a problem.  I pulled something
together that is included below that at least solves part of the line
problem. What you have to do is to create a polyline object in another
model, but offset the model by a small amount in the z direction.
However, the polyline object suffers from the same problem as the
surface object. They just aren't set up for cases with more faces than
vertices.  This is really obvious when you run the example below.

I looked at the teapot demo source code, it is part of the normal
distribution. Look under rsi/idl53/examples/demo/demosrc.  It appears
that the way RSI solved this with the teapot is to add points in the
center of a polygon, In your octahedron example you would have to add
point in the center of the face and thereby artificially create more
triangular regions.

I hope this helps a little.

Ronn Kling
Ronn Kling Consulting
  Application Development with IDL book at : http://www.rlkling.com
email: ronn@rlkling.com
Shareware and Freeware at: http://www.rlkling.com/

---------- CUT HERE -----------------------------

function octahedron

rt2 = sqrt(2.0)

vertex_array = [ $
  [0,0,rt2], $
  [rt2,0,0], $
  [0,rt2,0], $
  [0,0,-rt2] $

poly_array = [ $
  [3,0,1,2], $
  [3,2,3,0], $
  [3,3,4,0], $
  [3,4,1,0], $
  [3,5,1,4], $
  [3,1,5,2], $
  [3,5,3,2], $
  [3,5,4,3]  $

s = OBJ_NEW("IDLgrPolygon", data=vertex_array, $
            SHADING=0, $
            POLY=poly_array, COLOR=[200,200,200])



pro octahedron_test

myview = [-0.5,-0.5,1,1]
; Create view.
oView = OBJ_NEW('idlgrview', PROJECTION=2, EYE=3, ZCLIP=[1.5,-1.5],$
        VIEWPLANE_RECT=myview, COLOR=[0,0,0])

;  Create model for the geometric objects.
oModelTop = OBJ_NEW('IDLgrModel')
oModelSurface = OBJ_NEW('IDLgrModel')

oSurface = octahedron()
oModelTop->add, oModelSurface

;giving this a slight offset makes the lines visible.
oModelOffset = OBJ_NEW('IDLgrModel')
oModelOffset->translate, 0, 0, 0.005   ;Offset Z to make visible
oModelEdges = OBJ_NEW('IDLgrModel')
oModelOffset->add, oModelEdges
oSurface->GetProperty, POLY=pmesh

oLine = OBJ_NEW('IDLgrPolyline', SHARE_DATA=oSurface, POLY=pmesh, $

oModelEdges->add, oLine                 ;Add the edging data
oModelTop->add, oModelOffset

;make object smaller
scs = 0.3
oModelTop->Scale, scs, scs, scs

;  Create the vertex colors and make the 3-D objects
; to have these color.
vc = BYTARR(3, 8, /NOZERO)
sat = 1.0
val = 1.0
ic = 0
for i = 45, 360,45 do begin
      angle = i
      Color_convert, angle, sat, val, red, green, blue, /HSV_RGB
      vc(0, ic) = red
      vc(1, ic) = green
      vc(2, ic) = blue
      ic = ic + 1

oSurface  -> SetProperty, VERT_COLORS=vc

; Create a light
oLight3 = OBJ_NEW('IDLgrLight', LOCATION=[0,0,5], TYPE=0, $
oModelTop->Add, oLight3

; Place the model in the view.
oView->Add, oModelTop
;make a window
oWindow = OBJ_NEW('IDLgrWindow',dim=[400,400])
;rotate the object to see the problem
;Note that the lines have the same problem as the color.
;They only show up along some edges.
for i=0,360,5 do begin
  oWindow->Draw, oView

for i=0,360,5 do begin
  oWindow->Draw, oView


Sent via Deja.com http://www.deja.com/
Before you buy.