---
title: "Programme: Sphere 3D"
type: "article"
slug: "programme-sphere-3d"
url: "http://localhost/article/programme-sphere-3d/"
markdown_url: "http://localhost/article/programme-sphere-3d.md"
published_at: "2024-02-04T17:27:26+00:00"
modified_at: "2024-05-26T12:57:40+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "Short program to plot a 3D sphere."
category:
  - name: "SIN"
    slug: "sin"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/sin/"
post_tag:
  - name: "Downloadable"
    slug: "downloadable"
    taxonomy: "post_tag"
    url: "http://localhost/tag/downloadable/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "Real Gagnon"
    slug: "real-gagnon"
    taxonomy: "indiv"
    url: "http://localhost/indiv/real-gagnon/"
publication_r:
  id: 52924
  title: "SIN"
  type: "periodical"
  url: "http://localhost/periodical/sin/"
authors: "Real Gagnon"
issue: "3"
issues_articles:
  - id: 52937
    title: "SIN n3 Oct 1985"
    type: "issue"
    url: "http://localhost/issue/sin-n3-oct-1985/"
pages: "15"
pubdate: "October 1985"
archive_link: false
article_media:
  - id: 53031
    title: "Sphere 3D"
    type: "computer_media"
    url: "http://localhost/computer_media/sphere-3d/"
---

# Programme: Sphere 3D

Short program to plot a 3D sphere.

## Source Code: Sphere 3D

```
    5 BORDER 0: PAPER 0: INK 5: CLS : DIM b$(4200,2)
   20 LET c=1: INPUT "Size:";g
   30 FOR a=0 TO 125.7 STEP .03: LET y=87+g*SIN (a*.95)*COS a: LET x=125+g*SIN a
   40 PLOT x,y: LET b$(c,1)=CHR$ (x): LET b$(c,2)=CHR$ (y)
   50 LET c=c+1: NEXT a
  100 PRINT #0; FLASH 1;"Press a key...": PAUSE 0: CLS 
  110 FOR a=1 TO c-1: PLOT CODE b$(a,1),b$(a,2): NEXT a
```