Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  680 1728 (N31E42 L= 96)   703    137        1 ( 662/1665- 707/1793) -39.8 E47-E35 N26-N36
      2 1492 1679 (N47W22 L=160)   343     65        0 (1463/1661-1521/1697)  23.2 W18-W25 N44-N49
      3 1065 1661 (N34E11 L=126)   302     60        1 (1029/1636-1090/1686)  45.0 E13-E09 N31-N35
      4  507 1609 (N20E48 L= 89)   529    124        1 ( 465/1575- 566/1647)  50.2 E51-E45 N17-N23
      5  752 1577 (N22E29 L=109)  1045    211        5 ( 694/1530- 854/1644)   0.0 E34-E21 N18-N25
      6  553 1452 (N11E38 L=100)  1377    412        3 ( 504/1266- 591/1626) -70.8 E44-E34 S01-N22
      7  879 1465 (N17E17 L=120)   671    215        3 ( 824/1385- 954/1535) -35.0 E21-E11 N12-N20
      8 1326 1472 (N26W10 L=148)   418     89        1 (1308/1435-1349/1520) -51.3 W08-W12 N23-N29
      9 1490 1431 (N27W22 L=160)   354    133        0 (1460/1362-1523/1482) -54.5 W19-W24 N23-N30
     10 1873 1050 (N14W59 L=197)  1924    309        4 (1832/ 908-1912/1177) -49.4 W53-W66 N06-N20
     11 1065 1063 (S04W02 L=139)   262     55        1 (1042/1040-1093/1094) -33.7 W00-W03 S05-S02
     12  697 1020 (S13E19 L=118)   380    141        1 ( 649/ 970- 742/1045)  45.0 E21-E16 S16-S10
     13  773  984 (S14E14 L=124)   590    119        4 ( 714/ 942- 819/1027)   0.0 E17-E10 S15-S10
     14  478  846 (S26E33 L=105)   593    164        1 ( 407/ 785- 531/ 891) -26.6 E38-E28 S29-S24
     15 1175  816 (S16W13 L=151)   241     46        1 (1143/ 800-1200/ 834)  33.7 W11-W14 S17-S14
     16  424  721 (S35E38 L=100)   333     92        0 ( 392/ 689- 468/ 752) -23.2 E40-E33 S36-S33
     17 1203  569 (S30W22 L=160)  1408    383        1 (1016/ 509-1348/ 604)   4.4 W08-W34 S32-S26
     18  618  525 (S45E20 L=118)  1266    236        2 ( 523/ 496- 734/ 561)  20.2 E29-E10 S48-S40
     19 1716  505 (S20W66 L=203)   544    118        0 (1665/ 474-1751/ 550)  63.4 W61-W68 S22-S16
     20 1290  428 (S36W34 L=172)   751    121        1 (1243/ 384-1346/ 466)  66.8 W30-W36 S40-S32
     21  669  259 (S68E16 L=121)  1017    160        2 ( 595/ 228- 749/ 284)   0.0 E29-E03 S69-S65
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y