Superellipse: Difference between revisions

=={{header|Action!}}==

{{libheader|Action! Tool Kit}}

 

PROC Superellipse(INT x0 BYTE y0 REAL POINTER n BYTE a)

DO UNTIL CH#$FF OD

CH=$FF

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Superellipse.png Screenshot from Atari 8-bit computer]

=={{header|Ada}}==

{{libheader|SDLAda}} Brute force calculation.

 

with SDL.Video.Windows.Makers;

Window.Finalize;

SDL.Finalise;

 

=={{header|AutoHotkey}}==

Requires [https://www.autohotkey.com/boards/viewtopic.php?t=6517 Gdip Library]

a := 200

b := 200

ExitApp

Return

 

=={{header|C}}==

Interactive program to draw a SuperEllipse. Requires the [http://www.cs.colorado.edu/~main/bgi/cs1300/ WinBGIm] library.

#include<graphics.h>

#include<stdio.h>

closegraph();

 

=={{header|EchoLisp}}==

Link to the super-ellipse [http://www.echolalie.org/echolisp/images/super-ellipse.png image].

(lib 'plot)

(define (eaxpt x n) (expt (abs x) n))

(plot-xy Ellie -400 -400)

→ (("x:auto" -400 400) ("y:auto" -400 400))

 

=={{header|FreeBASIC}}==

' compile with: fbc -s console

 

Print : Print "hit any key to end program"

Sleep

 

=={{header|Go}}==

{{libheader|Go Graphics}}

 

import (

superEllipse(dc, 2.5, 200)

dc.SavePNG("superellipse.png")

 

{{out}}

=={{header|Haskell}}==

Use the [https://github.com/ghcjs/ghcjs ghcjs compiler ] to compile to JavaScript that runs in a browser. The [https://github.com/reflex-frp/reflex-dom reflex-dom ] library is used to help with SVG rendering and input.

import Reflex

import Reflex.Dom

-- At end to avoid Rosetta Code unmatched quotes problem.

elSvgns :: forall t m a. MonadWidget t m => Text -> Dynamic t (Map Text Text) -> m a -> m (El t, a)

 

Link to live demo: https://dc25.github.io/superEllipseReflex/

We will fill the ellipse so that we do not have to worry about the size and shape of our pixels:

 

'n a b'=. y

1 >: ((n^~a%~]) +&|/ n^~b%~]) i:x

 

require'viewmat'

 

=={{header|Java}}==

[[File:superellipse.png|300px|thumb|right]]

{{works with|Java|8}}

import java.awt.geom.Path2D;

import static java.lang.Math.pow;

});

}

 

=={{header|JavaScript}}==

var n = 2.5, a = 200, b = 200, ctx;

 

}

}

 

=={{header|Julia}}==

@assert n > 0 && a > 0 && b > 0

na = 2 / n

 

x, y = superellipse(2.5, 200, 200)

<pre>

┌────────────────────────────────────────┐

=={{header|Kotlin}}==

The following is based on the Java entry but dispenses with the grid and slider as these aren't really part of the task.

 

import java.awt.*

}

}

 

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

Reworked the Julia version to work and added a loop with a spread on n values.

[start]

nomainwin

if x=0 then sign=0

end function

 

=={{header|Lua}}==

Scale of a and b were reduced to facilitate an ASCII solution:

local bitmap = {

init = function(self, w, h, value)

bitmap:init(80, 60, "..")

bitmap:superellipse(40, 30, 2.5, 38, 28, "[]")

{{out}}

<pre style="font-size:25%">................................................................................................................................................................

=={{header|Maple}}==

The built-in command ImplicitPlot accepts an equation in 2 variables:

 

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

The built-in function ContourPlot accepts and equation in 2 variables and creates the desired plot

 

=={{header|Nim}}==

{{libheader|imageman}}

import imageman

 

image.fill(Background)

image.drawSuperEllipse(2.5, 200, 200)

 

=={{header|ooRexx}}==

black 280,280,4</pre>

 

* Create a BMP file showing a few super ellipses

**********************************************************************/

Return

 

 

=={{header|Perl}}==

{{trans|Raku}}

my($a, $b, $n, @q) = (200, 200, 2.5);

 

style="fill:none;stroke:black;stroke-width:3"

transform="translate($a, $b)" />\n|

[https://github.com/SqrtNegInf/Rosettacode-Perl5-Smoke/blob/master/ref/superellipse.svg Superellipse] (offsite image)

 

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Superellipse.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Superellipse.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Processing}}==

{{trans|C}}

//Aamrun, 29th June 2022

 

}

 

 

=={{header|Python}}==

# Superellipse drawing in Python 2.7.9

# pic can see at http://www.imgup.cz/image/712

plt.title("Superellipse with parameter "+str(n))

plt.show()

 

=={{header|QB64}}==

 

Dim As Integer sw, sh

Line -(x1, y1)

Next

 

 

=={{header|QBasic}}==

CLS

a = 200

t = t + .02

LINE -(xp, yp), 1, BF

 

 

=={{header|Racket}}==

(require plot)

#;(plot-new-window? #t)

(plot (isoline (superellipse 200 200 2.5) 1

 

=={{header|Raku}}==

(formerly Perl 6)

 

# y in terms of x

style="fill:none;stroke:black;stroke-width:3"

transform="translate({a}, {b})" />\n|

[https://github.com/SqrtNegInf/Rosettacode-Perl6-Smoke/blob/master/ref/superellipse.svg Superellipse] (offsite image)

 

Here you can see a picture: http://austria-forum.org/af/User/Pachl%20Walter

 

* Create a BMP file showing a few super ellipses

**********************************************************************/

r=r/ln(b)

Numeric Digits (prec)

 

=={{header|Scala}}==

===Java Swing Interoperability===

import java.awt.geom.Path2D

import java.util

})

 

 

=={{header|Sidef}}==

{{trans|Raku}}

a = 200,

b = 200,

].each { .print }

 

 

=={{header|Stata}}==

 

sca b=200

sca n=2.5

 

=={{header|Wren}}==

{{libheader|DOME}}

Uses Go's drawing code but produces a more complex image.

 

class Game {

}

}

 

=={{header|XPL0}}==

real X, Y; int IX, IY;

 

IX:= IX+1;

until IX >= IY;

 

{{out}}

 

=={{header|Yabasic}}==

backcolor 0,0,0

clear window

t=t+.02

line to xp, yp

 

=={{header|zkl}}==

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

[[File:SuperEllipse.zkl.jpg|250px|thumb|right]]

a,p:=(plot.w/2).toFloat(), 1.0/n; // just calculate upper right quadrant

foreach x in ([0.0 .. a]){

}

plot

plot:=PPM(w+1,h+1,0x909090); plot.cross(w/2,h/2);

foreach n in ([0.01..1, 0.14]){ superEllipse(plot,n, 0x0000bb) }// 0-1: blue

foreach n in ([2.0..10, 1.4]) { superEllipse(plot,n, 0xff0000) }// 2+: red