cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
  • JMP will suspend normal business operations for our Winter Holiday beginning on Wednesday, Dec. 24, 2025, at 5:00 p.m. ET (2:00 p.m. ET for JMP Accounts Receivable).
    Regular business hours will resume at 9:00 a.m. EST on Friday, Jan. 2, 2026.
  • We’re retiring the File Exchange at the end of this year. The JMP Marketplace is now your destination for add-ins and extensions.

Discussions

Solve problems, and share tips and tricks with other JMP users.
Choose Language Hide Translation Bar
lala
Level IX

How can this JSL be used to create this graphic?

2026-01-01_10-25-48.png

This is the code I wrote for the AI to view images, but I failed to add any text successfully.
Thanks Experts!

Names Default To Here( 1 );

// === 1. Data & Parameters ===
SolarTerms = {
    "夏至", "小暑", "大暑", "立秋", "处暑", "白露",
    "秋分", "寒露", "霜降", "立冬", "小雪", "大雪",
    "冬至", "小寒", "大寒", "立春", "雨水", "惊蛰",
    "春分", "清明", "谷雨", "立夏", "小满", "芒种"
};

OuterRadius = 10;
InnerRadius = OuterRadius / 2;
TermCount = N Items( SolarTerms );

SummerSolsticeX = 0; SummerSolsticeY = OuterRadius;
WinterSolsticeX = 0; WinterSolsticeY = -OuterRadius;

OuterX = J( TermCount, 1, . );
OuterY = J( TermCount, 1, . );
InnerX = J( TermCount, 1, . );
InnerY = J( TermCount, 1, . );
AngleList = J( TermCount, 1, . );

FontName = If( Host Is( "Mac" ), "Helvetica", "Arial" );

// === 2. Geometry ===
For( i = 1, i <= TermCount, i++,
    Angle = Pi() / 2 - (i - 1) * (2 * Pi() / 24);
    AngleList[i] = Angle;

    OuterX[i] = OuterRadius * Cos( Angle );
    OuterY[i] = OuterRadius * Sin( Angle );

    If( i <= 13,
        Progress = (i - 1) / 12;
        SmallAngle = Pi() / 2 - (Pi() * Progress);
        CX = 0; CY = InnerRadius;
    ,
        Progress = (i - 13) / 12;
        SmallAngle = Pi() / 2 + (Pi() * Progress);
        CX = 0; CY = -InnerRadius;
    );

    InnerX[i] = CX + InnerRadius * Cos( SmallAngle );
    InnerY[i] = CY + InnerRadius * Sin( SmallAngle );
);

// === 3. Window ===
nw = New Window( "Twenty-Four Solar Terms · Yin Yang Cycle",
    gb = Graph Box(
        Frame Size( 800, 800 ),
        X Scale( -16, 16 ),
        Y Scale( -16, 16 ),

        Fill Color( "Black" );
        Rect( -20, 20, 20, -20, 1 );

        Pen Color( {240, 230, 140} );
        Pen Size( 2 );
        Transparency( 0.9 );
        Circle( {0, 0}, OuterRadius );

        For( i = 1, i <= TermCount, i++,
            ix = InnerX[i]; iy = InnerY[i];
            ox = OuterX[i]; oy = OuterY[i];

            Pen Color( {240, 230, 140} );

            If( i > 1 & i < 13,
                Transparency( 0.4 ); Pen Size( 1 );
                Line( {SummerSolsticeX, SummerSolsticeY}, {ix, iy} );
                Transparency( 0.15 );
                Line( {ix, iy}, {ox, oy} );
            );

            If( i > 13,
                Transparency( 0.4 ); Pen Size( 1 );
                Line( {WinterSolsticeX, WinterSolsticeY}, {ix, iy} );
                Transparency( 0.15 );
                Line( {ix, iy}, {ox, oy} );
            );

            If( i == 1,
                Transparency( 0.6 ); Pen Size( 2 );
                Line( {0, 0}, {0, OuterRadius} );
            );

            If( i == 13,
                Transparency( 0.6 ); Pen Size( 2 );
                Line( {0, 0}, {0, -OuterRadius} );
            );
        );

        For( i = 1, i <= TermCount, i++,
            Pen Color( "Black" );
            Fill Color( {255, 215, 0} );
            Marker Size( 5 );
            Marker( 21, {OuterX[i], OuterY[i]} );
        );

        For( i = 1, i <= TermCount, i++,
            Pen Color( {218, 165, 32} );
            Fill Color( {255, 255, 224} );
            Marker Size( 6 );
            Marker( 21, {InnerX[i], InnerY[i]} );
        );

        Pen Color( "White" );
        Fill Color( {255, 250, 205} );
        Marker Size( 8 );
        Marker( 21, {0, 0} );

        LabelOffset = 1.8;
        For( i = 1, i <= TermCount, i++,
            Name = SolarTerms[i];
            A = AngleList[i];

            tx = (OuterRadius + LabelOffset) * Cos( A );
            ty = (OuterRadius + LabelOffset) * Sin( A );

            IsSolstice = ( Name == "夏至" | Name == "冬至" );
            TxtColor = If( IsSolstice, {255, 69, 0}, {224, 224, 224} );
            TxtSize = If( IsSolstice, 14, 11 );
            TxtWeight = If( IsSolstice, "bold", "plain" );

            Deg = A * 180 / Pi() - 90;

            Transparency( 1 );
            Fill Color( TxtColor );
            Text Font( FontName, TxtSize, TxtWeight );
            Text( Center Justified, {tx, ty}, Rotate( Deg ), Name );
        );

        Text Font( FontName, 20, "bold" );
        Fill Color( "White" );
        Text( Center Justified, {0, 14.5}, "Twenty-Four Solar Terms · Yin Yang Cycle" );
    )
);

gb << Show X Axis( 0 );
gb << Show Y Axis( 0 );
4 REPLIES 4
lala
Level IX

回复: How can this JSL be used to create this graphic?

2026-01-02_08-40-10.png

python
2026-01-02_08-24-11.png

jthi
Super User

Re: How can this JSL be used to create this graphic?

You have to set text color correctly (Text Color()) and you are using incorrect syntax for the angle of the text. Angle is determined with Text Font (check Scripting Index / JMP Help for the correct syntax and how to use it)

jthi_0-1767334437625.png

 

-Jarmo
lala
Level IX

Re: How can this JSL be used to create this graphic?

2026-01-02_15-00-47.png
Thank jthi !
Could you help me keep making corrections?Thank you very much for your continued JSL reference.

lala
Level IX

Re: How can this JSL be used to create this graphic?

I just want to achieve the effect of the original picture as much as possible.
Thanks Experts!

Recommended Articles