Draw a sphere: Difference between revisions

 

Either static or rotational projection is acceptable for this task.

<br><br>

 

=={{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}}==

 

=={{header|ATS}}==

(*

** Solution to Draw_a_sphere.dats

 

(* ****** ****** *)

 

=={{header|AutoHotkey}}==

{{libheader|GDIP}}

SetBatchLines, -1

#SingleInstance, Force

; gdi+ may now be shutdown on exiting the program

Gdip_Shutdown(pToken)

=={{header|AWK}}==

# syntax: GAWK -f DRAW_A_SPHERE.AWK

# converted from VBSCRIPT

return(n)

}

{{out}}

<pre>

This is based, but not exactly, on the [http://rosettacode.org/wiki/Draw_a_sphere#Tcl Tcl] implementation.

Thus, the output is almost the same to the output of Tcl implementation below.

color white

rect 0,0,graphwidth, graphheight

color rgb(2*n,2*n,2*n)

circle 150-2*n/3,150-n/2,150-n

 

==={{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

Print : Print "hit any key to end program"

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|Locomotive Basic}}===

Translated from ERRE version, this will print a 39x20 text sphere onscreen.

The variables in line 80 can be used to adjust size (r), spotlight (k), reflective light (ambient).

10 MODE 2:s$=".:!*oe&#%@"

20 DIM v(2),vec(2)

3010 IF d<0 THEN d=-d ELSE d=0

3020 RETURN

 

==={{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|Sinclair ZX81 BASIC}}===

Works with 1k of RAM. A screenshot of the output is [http://www.edmundgriffiths.com/zx81sphere.jpg here].

20 LET J=2

30 FOR K=-PI TO PI STEP 0.07

70 LET I=I-J

80 LET J=J+1

 

=={{header|Batch File}}==

:: Batch File Implementation

@echo off

rem -------------- define arithmetic "functions"

rem more info: https://www.dostips.com/forum/viewtopic.php?f=3&t=6744

 

rem source: https://www.dostips.com/forum/viewtopic.php?f=3&t=5819&start=30#p44016

set "sqrt(N)=( M=(N),j=M/(11*1024)+40, j=(M/j+j)>>1, j=(M/j+j)>>1, j=(M/j+j)>>1, j=(M/j+j)>>1, j=(M/j+j)>>1, j+=(M-j*j)>>31 )"

set "shades[9]=@"

set "num_shades=9" %== start at 0 ==%

set "light[0]=30" & set "light[1]=30" & set "light[2]=-50"

 

setlocal enabledelayedexpansion

%normalize% light %== normalize macro applied ==%

exit /b 0

 

rem -------------- the function to draw the sphere

:drawSphere

rem initialize variables from arguments

set /a "R=%1", "negR=-R", "twiceR=R*2", "twiceNegR=negR*2"

rem start draw line-by-line

for /l %%i in (%negR%, 1, %R%) do (

set "line="

for /l %%j in (%twiceNegR%, 1, %twiceR%) do (

set /a "pythag = x*x + y*y"

if !pythag! lss !sqrdR! (

echo(!line!

)

{{Out}}

 

=={{header|Befunge}}==

Also note that the z-coordinate of the light vector is negated at runtime to more closely match the C defaults. This is preferable to making the initial constant negative since negative data values aren't supported across all Befunge implementations.

 

>60p140g->:::*00g50g*60g40g-:*-\-v0>1

^_@#`\g0<|`\g04:+1, <*84$$_v#`\0:<>p^

^>#0 *#12#<0g:^>+::"~~"90g*80g+*70gv|

g-10g*+:9**00gv|!*`\2\`-20::/2-\/\+<>

 

{{out}}

=={{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.

===ASCII Text===

{{trans|C}}

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

for i in floor(Int, -r):ceil(Int, r)

draw_sphere(20, 4, 0.1, light)

draw_sphere(10, 2, 0.4, light)

===Graphical===

using Makie

 

z = [cos(φ) for θ in θ, φ in φ]

 

 

=={{header|Kotlin}}==

{{trans|C}}

 

const val shades = ".:!*oe&#%@"

drawSphere(20.0, 4.0, 0.1)

drawSphere(10.0, 2.0, 0.4)

 

{{out}}

 

=={{header|Lingo}}==

-- Draw a circle

-- @param {image} img

props[#color] = drawColor

img.draw(x-r, y-r, x+r, y+r, props)

 

=={{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>

=={{header|M2000 Interpreter}}==

Module CheckIt {

Er$="Pset is a new statement"

}

Checkit

 

[[https://2.bp.blogspot.com/-ZWy2xDxXbzg/W98lAuNSY9I/AAAAAAAAHZ0/DFYluvWtz_cwwAUKfblujnW6mTC5XVs1QCLcBGAs/s1600/sphere.png]image]

=={{header|Maple}}==

[[File:Sphere_Maple.png|thumb]]

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

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

 

=={{header|MATLAB}}==

To create the unit sphere:

 

=={{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|Phix}}==

{{trans|Go}} (Go gets credit for the dot/normalize/drawSphere routines, but this draws on screen rather than to png file)

Sphere will resize to match the window.

 

=={{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.

 

size(500, 500, P3D);

}

// draw sphere

sphere(200);

 

=={{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}}==

 

Programming note: &nbsp; the output will appear slightly different when executed on an EBCDIC machine &nbsp; (due to different dithering characters).

call drawSphere 19, 4, 2/10, '30 30 -50' /*draw a sphere with a radius of 19. */

call drawSphere 10, 2, 4/10, '30 30 -50' /* " " " " " " " ten. */

numeric form; m.=9; parse value format(x,2,1,,0) 'E0' with g "E" _ .; g= g*.5'e'_%2

do j=0 while h>9; m.j=h; h=h%2+1; end /*j*/

{{out|output|text=&nbsp; when using the default input and executed on an '''ASCII''' machine:}}

(Shown at &nbsp; <big>'''¹/₂'''</big> &nbsp; size.)

Shoes comes with this sample program.

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

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

nostroke

end

end

 

=={{header|Scala}}==

private val (shades, light) = (Seq('.', ':', '!', '*', 'o', 'e', '&', '#', '%', '@'), Array(30d, 30d, -50d))

 

drawSphere(10, 2, .4)

 

{{Out}}See it in running in your browser by [https://scalafiddle.io/sf/uSm8bJ9/0 ScalaFiddle (JavaScript)] or by [https://scastie.scala-lang.org/TtVHUp3aS0eDEB6YCW4gKg Scastie (JVM)].

 

=={{header|Sidef}}==

Produces a PGM image.

func dot (x, y) { -(x »*« y -> sum) `max` 0 }

 

out.say("P5\n#{x} #{y}\n#{depth}") # .pgm header

out.print(draw_sphere((x-1)/2, .9, .2).map{.chr}.join)

 

=={{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]]

 

=={{header|Swift}}==

In Playground for example:

class Sphere: UIView{

 

var s = Sphere(frame: CGRectMake(0, 0, 200, 200))

 

 

=={{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]

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

-start 0 -extent 359 -fill $h -outline $h

Results in this image:

 

[[image:Tcl-spheroid.gif]]

 

 

{{libheader|PGF}}

 

\usepackage{tikz}

\usetikzlibrary{shadings}

\begin{document}

\begin{tikzpicture}

\end{tikzpicture}

 

=={{header|VBScript}}==

{{trans|C}}

light = Array(30, 30, -50)

 

Normalize light

DrawSphere 20, 4, 0.1

{{Out}}

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

eeeeeeeeeeeeeeeeeeeee

eeeeeeeeeeeee</pre>

 

=={{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|Yabasic}}==

open window 640,480

backcolor 16,16,16

fill circle ancho/2-2*n/3, alto/2-n/2, 150-n

next n

 

=={{header|zkl}}==

{{trans|XPL0}}

[[File:Sphere.zkl.jpg|200px|thumb|right]]

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

Perhaps a more useful solution is to use GnuPlot (I grabbed the code from http://ayapin-film.sakura.ne.jp/Gnuplot/):

[[File:GnuplotSphere.zkl.png|250px|thumb|right]]

cmd:=0'|

set term wxt

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.

 

=={{header|ZX Spectrum Basic}}==

50 REM spheer with hidden lines and rotation

100 CLS

1050 LET yy=bx*x+by*y+bz*z

1060 LET zz=cx*x+cy*y+cz*z

 

[[Category:Geometry]]