How to convert a VTK example from java to clojure?

[Antonio Recio]

I have tried to convert the example Cone5.java from VTK to clojure. I have 
write this ... but it doesn't work. Do you have any suggestion?


*The original java:*

import vtk.*;

public class Cone5 {
  static { 
    System.loadLibrary("vtkCommonJava"); 
    System.loadLibrary("vtkFilteringJava"); 
    System.loadLibrary("vtkIOJava"); 
    System.loadLibrary("vtkImagingJava"); 
    System.loadLibrary("vtkGraphicsJava"); 
    System.loadLibrary("vtkRenderingJava"); 
  }

  public static void main (String []args) throws Exception {
    vtkConeSource cone = new vtkConeSource();
    cone.SetHeight( 3.0 );
    cone.SetRadius( 1.0 );
    cone.SetResolution( 10 );
    
    vtkPolyDataMapper coneMapper = new vtkPolyDataMapper();
    coneMapper.SetInputConnection(cone.GetOutputPort());
    
    vtkActor coneActor = new vtkActor();
    coneActor.SetMapper(coneMapper);

    vtkRenderer ren1 = new vtkRenderer();
    ren1.AddActor(coneActor);
    ren1.SetBackground(0.1, 0.2, 0.4);
    
    vtkRenderWindow renWin = new vtkRenderWindow();
    renWin.AddRenderer( ren1 );
    renWin.SetSize(300, 300);
    
    ren1.ResetCamera();
    ren1.GetActiveCamera().Azimuth(90);
    
    vtkRenderWindowInteractor iren = new vtkRenderWindowInteractor();
    iren.SetRenderWindow(renWin);

    vtkInteractorStyleTrackballCamera style = 
        new vtkInteractorStyleTrackballCamera();
    iren.SetInteractorStyle(style);

    
    iren.Initialize();
    iren.Start();
  }
}

*
My modified version in clojure with errors:*

(ns project.core
  (:import (vtk vtkConeSource vtkPolyDataMapper vtkRenderWindow
                vtkRenderWindowInteractor vtkCamera vtkActor vtkRenderer
                vtkInteractorStyleTrackballCamera)))

(defn main []
  (let [cone (doto (vtkConeSource.)
               (.SetHeight 3.0)
               (.SetRadius 1.0)
               (.SetResolution 10))
        coneMapper (doto (vtkPolyDataMapper.)
                     (.SetInputConnection(.GetOutputPort cone)))
        coneActor (doto (vtkActor.)
                    (.SetMapper coneMapper))
        ren (doto (vtkRenderer.)
              (.AddActor coneActor)
              (.SetBackground 0.1 0.2 0.4)
              (.ResetCamera)
              (.GetActiveCamera.Azimuth 90))
        renWin (doto (vtkRenderWindow.)
                 (.AddRenderer ren)
                 (.SetSize 300 300))
        iren (doto (.vtkRenderWindowInteractor.)
               (.SetRenderWindow renWin)
               (.SetInteractorStyle vtkInteractorStyleTrackballCamera.)
               (.Initialize)
               (.Start))
        ]))

-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en