Draw a sphere: Difference between revisions

[[Category:3D]]

 

 

Either static or rotational projection is acceptable for this task.

 

=={{header|Ada}}==

Uses the Cairo component of GtkAda to create and save as png

[[File:SphereAda.png|thumb|right]]

with Cairo; use Cairo;

with Cairo.Png; use Cairo.Png;

Status_Out := Write_To_Png (Surface, "SphereAda.png");

pragma Assert (Status_Out = Cairo_Status_Success);

 

{{libheader|Display}}

This uses a very loose binding to SDL as found in any GPS installation. For it to work, you must choose New Project From Templte|Empty Game

 

with Display; use Display;

with Display.Basic; use Display.Basic;

null;

end Main;

 

=={{header|Arendelle}}==

] [ #i , l ] d

]</pre>

 

=={{header|AutoHotkey}}==

{{libheader|GDIP}}

SetBatchLines, -1

#SingleInstance, Force

; gdi+ may now be shutdown on exiting the program

Gdip_Shutdown(pToken)

 

=={{header|BASIC}}==

 

==={{header|BBC BASIC}}===

{{works with|BBC BASIC for Windows}}

Using Direct3D.

INSTALL @lib$+"D3DLIB"

D3DTS_VIEW = 2

SYS "FreeLibrary", d3dx%

END

{{out}}

[[File:Sphere_BBC.jpeg]]

Some simple 3D objects are built into DarkBASIC. Creating a sphere only takes 1 line:

 

 

==={{header|FreeBASIC}}===

' "/" = a floating point division (FPU)

' the compiler takes care of the conversion between floating point and integer

' Sphere using XPL0 code from rosetacode sphere page

' Altered freebasic version to compile in default mode

#Define W 640

#Define H 480

Locate 50,2

Color(RGB(255,255,255),RGB(0,0,0)) ' foreground color is changed

Sleep

{{works with|FreeBASIC}}

needs #Lang "fblite", #Lang "qb" or #Lang "deprecated" to compile.

'spherefb4.bas

'Sphere using XPL0 code from rosetacode sphere page

Print "Enter any key to exit "

sleep

 

==={{header|Liberty BASIC}}===

WindowWidth =420

WindowHeight =460

close #w

end

 

==={{header|PureBasic}}===

3D Sphere animation.

;

; Updated/Formated by Fluid Byte @ March.24,2009

SetMeshData(0,#PB_Mesh_Face,*IBuffer,Length)

[[image:PB_Animated_sphere.png]]

 

===[[QBasic]]===

 

 

' sets palette colors B/N

' wait until keypress

DO: LOOP WHILE INKEY$ = ""

 

==={{header|Run BASIC}}===

'runbasic.com

graphic #win, 300, 300

next X

next Y

 

graphic #g, 300, 300 'create a graphic object

#g place(100,100) 'place the drawing pen at 100,100

#g circle(75) 'make a circle with radius 75

 

=={{header|Befunge}}==

 

 

=={{header|Brlcad}}==

 

units cm # Set the unit of measure

 

=={{header|C}}==

The lighting calculation is somewhere between crude and bogus, but hey, I'm shading it with ASCII characters, don't expect too much.

#include <stdlib.h>

#include <string.h>

 

return 0;

{{out}}

<pre> #############%%%%

===Fun with 3D noise texture===

[[file:sphere-perlin.png]]

#include <stdlib.h>

#include <math.h>

int g[] = { -1, 1, -1, 1 };

/* Perlin-like noise */

hashed(int *data, int *out, int len) {

# define ror(a, d) ((a << (d)) | (a >> (32 - d)))

 

return 0;

 

=={{header|C sharp|C#}}==

{{trans|C}}

 

namespace Sphere {

}

}

 

=={{header|Clojure}}==

{{libheader|quil}}

(use 'quil.core)

 

:draw draw

:renderer :opengl)

 

{{out}}

[http://i.imgur.com/fkzH5wM.png]

 

=={{header|D}}==

{{trans|C}}

 

alias V3 = double[3];

drawSphere(20, 4, 0.1);

drawSphere(10, 2, 0.4);

 

=={{header|Delphi}}==

'''Steps:''' Run the CMD Windows shell. Then follow this path to setup the new width: '''Main Menu-> Properties -> Layout -> Window Size -> Width'''.

 

program DrawASphere;

 

Readln;

end.

 

{{out}}

[[image:DWScript-sphere.pbm.png|thumb|right|PBM output magnified 5 times]]

{{trans|C}} but adapted to spit out a [[wp:Netpbm_format|PGM]] image

type

TFloat3 = array[0..2] of Float;

normalize(light);

drawSphere(19, 4, 0.1);

 

=={{header|ERRE}}==

Using ASCII art: output is written to 'SPHERE.PRN' sequential file.

 

CONST SHADES$=".:!*oe&#%@"

CLOSE(1)

END PROGRAM

{{out}}

<pre> !::::::!!!**o

</pre>

 

=={{header|Go}}==

{{trans|C}}

Using image library rather than ASCII art.

 

import (

fmt.Println(err)

}

 

=={{header|Haskell}}==

[[File:Sphere_Haskell.png|thumb|right]]

import Graphics.UI.GLUT.Objects

import Graphics.UI.GLUT

setMaterial

displayCallback $= display

 

==Icon and {{header|Unicon}}==

Unicon provides a built-in interface to openGL including some higher level abstractions (for more information see [[Icon%2BUnicon/Intro#Graphics.2C_Network_Messaging.2C_etc.|Unicon Technical References, 3D Graphics]]). The example below draws a blue sphere on a black background and waits for input to quit.[[File:Sphere_unicon.PNG|thumb|Unicon Sphere]]

 

W := open("Demo", "gl", "size=400,400", "bg=black") | stop("can't open window!")

WAttrib(W, "slices=40", "rings=40", "light0=on, ambient white; diffuse gold; specular gold; position 5, 0, 0" )

DrawSphere(W, 0, 0, -5, 1)

Event(W)

<div style="border: 1px solid #000000; overflow: auto; width: 100%"></div>

 

[[File:J-sphere.png|thumb|J Sphere]]

 

But bringing up the example with a line of code is trivial enough:

 

<div style="border: 1px solid #000000; overflow: auto; width: 100%"></div>

 

Here's a version using raytracing computed in J. luminosity is an array of luminosity values with theoretical maximum 1 and minimum 0, and viewmat is used to display this.

 

light =. (% +/&.:*:) 30 30 _50

pts =. (0&*^:(0={:))@:(,,(0>.(*:R)-+)&.*:)"0/~ i:15j200

load 'viewmat'

torgb =. 256 #. [: <. 255 255 255 *"1 0 ]

 

=={{header|Java}}==

{{trans|C}}

static char[] shades = {'.', ':', '!', '*', 'o', 'e', '&', '#', '%', '@'};

 

drawSphere(10, 2, .4);

}

{{out}}

<pre> &&&&&&&&&&#######

eeeeeeeeeeeee

</pre>

=={{header|JavaScript}}==

 

This Javascript entry uses an HTML wrapper to offer easy running and some interactivity. It is made as such, though, that the entire HTML wrapper can be removed (except for a canvas with id <code>c</code>) and still work. If you remove the HTML, call the <code>draw_sphere</code> function to draw the thing.

 

<html>

<head>

<canvas id="c">Unsupportive browser...</canvas><br>

</body>

 

=={{header|jq}}==

{{works with|jq|1.4}}

The approach adopted here is to generate an SVG file, which may then be viewed, for example, in a web browser.

"<svg width='100%' height='100%' version='1.1'

xmlns='http://www.w3.org/2000/svg'

 

def sphere(cx; cy; r; gradientId):

 

'''Example:'''

svg,

"<title>Teal sphere</title>",

"</svg>" ;

{{out}}

 

One way to view the output as an image is to point your browser to the generated SVG.

 

 

=={{header|Logo}}==

{{works with|MSWlogo}}

 

cs perspective ht ;making the room ready to use

repeat 180 [polystart circle :r polyend down 1]

polyview

 

=={{header|Lua}}==

{{trans|C}}

{{works with|Lua|5.1.4}}

 

shades = {'.', ':', '!', '*', 'o', 'e', '&', '#', '%', '@'}

 

draw_sphere (20, 4, 0.1)

{{out}}

<pre> &&&&&&&&&&&&#####

eeeeeeeeeeeee

</pre>

Mathematica has many 3D drawing capabilities. To create a sphere with radius one centered at (0,0,0):

 

=={{header|Maxima}}==

plot3d(1, [theta, 0, %pi], [phi, 0, 2 * %pi],

[transform_xy, spherical_to_xyz], [grid, 30, 60],

sin(phi)*sin(theta),

cos(theta),

 

=={{header|Nim}}==

{{trans|C}}

 

type Point = tuple[x,y,z: float]

let light = normalize(30.0, 30.0, -50.0)

 

for i in -r .. r:

let x = i.float + 0.5

 

drawSphere 20, 4.0, 0.1

{{out}}

<pre> &&&&&&&&&&#######

eeeeeeeeeeeeeeeeeeeee

eeeeeeeeeeeee</pre>

 

=={{header|Openscad}}==

Drawing a sphere is easy in openscad:

 

 

[[Category:Geometric Primitives]]

 

=={{header|Pascal}}==

{{works with|Free_Pascal}}

After changing "{$APPTYPE CONSOLE}" to "{$mode delphi}" or "{$mode objfpc}" the Delphi example works with FreePascal.

 

=={{header|Perl}}==

 

 

use warnings;

 

},

q{""} => sub { sprintf "Vector:[%s]", join ' ', @{shift()} };

 

 

=={{header|PicoLisp}}==

{{libheader|GLUT}}

This is for the 64-bit version.

 

(glutInit)

# Exit upon mouse click

(mouseFunc '((Btn State X Y) (bye)))

 

{{trans|C}}

 

 

(setq *Shades

(setq *Light (normalize *Light))

(drawSphere 20.0 4 0.1)

{{out}}

<pre> ##############%%%

=={{header|PostScript}}==

Gradient filled circle:

%%BoundingBox 0 0 300 300

 

showpage

%%EOF

 

=={{header|POV-Ray}}==

This is what POVray was made for. An example with a sky, surface and transparency:

 

camera { location <0.0 , .8 ,-3.0> look_at 0}

interior { ior 1.5}

}

 

Yields this:

3D rendering is built into Processing.

 

}

void draw() {

stroke(200);

lights();

 

=={{header|Python}}==

===Ascii-Art===

{{trans|C}}

 

shades = ('.',':','!','*','o','e','&','#','%','@')

light = normalize((30,30,-50))

draw_sphere(20,4,0.1, light)

{{out}}

<pre> &&&&&&&&&&######

This code contains unnecessary functions which are part of a 3D graphics library I wrote. <br>

Uses Pygame and Python 3.2.2

import pygame

from pygame.locals import *

import random

import math

class Tricubic:

def __init__(self,pts):

if event.type == KEYDOWN:

pass

 

==={{libheader|VPython}}===

{{works with|Python|2.7.5}}

'''Short version''':

scene.title = "VPython: Draw a sphere"

 

'''Regular version''', with some window-dressing:

from __future__ import print_function, division

from visual import *

rate(100)

pass # no animation in this demo

 

=={{header|Racket}}==

Using the Typed Racket language with the plot library:

 

#lang typed/racket

 

(require plot/typed)

(plot3d (polar3d (λ (θ ρ) 1)) #:altitude 25)

 

=={{header|REXX}}==

This program is modeled after the &nbsp; '''C''' &nbsp; version.

<br>Same with the &nbsp; '''CEIL'''ing &nbsp; and &nbsp; '''FLOOR''' &nbsp; functions.

 

eeeeeeeeee@@@@@@@

eoooooooooooooooeeeee@@@@@@@░

Shoes comes with this sample program.

[[File:sphere.shoes.png|thumb|right]]

image 400, 470, :top => 30, :left => 50 do

nostroke

end

end

 

=={{header|Smalltalk}}==

{{works with|Smalltalk/X}}

although there is a Point3 class in some loadable library, here is some self contained code, defining a local anon Point3D class.

Point3D :=

Point subclass:#Point3D

 

main value.

[[file:sphere-smalltalk.png]]

 

Not quite a sphere.

[[file:sphere-ish.svg]]

 

=={{header|Tcl}}==

Assuming the task is to draw a <i>likeness</i> of a sphere, this would usually do:

 

 

pack [canvas .c -height 400 -width 640 -background white]

set h [grey $i]

.c create arc [expr {100+$i/5}] [expr {50+$i/5}] [expr {400-$i/1.5}] [expr {350-$i/1.5}] \

Results in this image:

 

[[image:Tcl-spheroid.gif]]

 

 

{{libheader|PGF}}

 

\usepackage{tikz}

\usetikzlibrary{shadings}

\begin{document}

\begin{tikzpicture}

\end{tikzpicture}

 

=={{header|XPL0}}==

[[File:SphereXPL0.png|right]]

def R=100, R2=R*R; \radius, in pixels; radius squared

def X0=640/2, Y0=480/2; \coordinates of center of screen

repeat until KeyHit; \wait for keystroke

SetVid($03); \restore normal text mode

 

=={{header|zkl}}==

Uses the PPM class from http://rosettacode.org/wiki/Bitmap/Bresenham%27s_line_algorithm#zkl

{{trans|XPL0}}

R:=100; R2:=R*R; //radius, in pixels; radius squared

X0:=640/2; Y0:=480/2; //coordinates of center of screen

}

}

The radius of 100 is the max before the color calculation overflows 24 bits so for a radius (R) of, say 200, use

set term wxt

set parametric

gnuplot:=System.popen("gnuplot","w");

gnuplot.write(cmd); gnuplot.flush();

Where "term wxt" is X11 on my Linux box. A window pops up and stays until the pipe is closed.