briochemc

RGBcube2

Nov 21st, 2015
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 0.97 KB | None | 0 0
  1. az = -60;
  2. el = 30;
  3. xyz = [.3 .4 .7] ;
  4. vert = [0 0 0;1 0 0;1 1 0;0 1 0;0 0 1;1 0 1;1 1 1;0 1 1];
  5. xyzProj = kron(ones(7,1),xyz) .* vert(2:end,:) ;
  6. vert = [vert; xyzProj] ;
  7.  
  8. close
  9.  
  10. subplot(1,3,1)
  11. fac = [1 2 3 4;1 2 6 5;1 4 8 5];
  12. patch('Vertices',vert,'Faces',fac,...
  13.       'FaceVertexCData',vert,'FaceColor','interp')
  14. view(az, el); axis vis3d
  15. set(gca, 'xdir', 'reverse'); set(gca, 'ydir', 'reverse')
  16.  
  17. subplot(1,3,2)
  18. fac = [5 6 7 8;2 3 7 6;3 4 8 7];
  19. patch('Vertices',vert,'Faces',fac,...
  20.       'FaceVertexCData',vert,'FaceColor','interp')
  21. view(az, el); axis vis3d
  22. set(gca, 'xdir', 'reverse'); set(gca, 'ydir', 'reverse')
  23.  
  24. subplot(1,3,3)
  25. fac = [1 2 3 4;1 2 6 5;1 4 8 5];
  26. patch('Vertices',vert,'Faces',fac,...
  27.       'FaceVertexCData',vert,'FaceColor','interp')
  28. fac = 7+[5 6 7 8;2 3 7 6;3 4 8 7];
  29. patch('Vertices',vert,'Faces',fac,...
  30.       'FaceVertexCData',vert,'FaceColor','interp')
  31. view(az, el); axis vis3d
  32. set(gca, 'xdir', 'reverse'); set(gca, 'ydir', 'reverse')
Advertisement
Add Comment
Please, Sign In to add comment