Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1592 1644 (N27W63 L=318)   976    122        1 (1526/1624-1643/1671) -15.9 W56-W72 N25-N29
      2 1339 1641 (N35W42 L=296)  1188    205        1 (1249/1613-1420/1665) -21.0 W34-W47 N31-N38
      3 1693 1575 (N20W68 L=323)   477     68        1 (1666/1549-1727/1594) -45.0 W64-W70 N17-N21
      4  285 1380 (N43E56 L=199)  1501    238        2 ( 231/1286- 349/1498)  81.9 E61-E48 N37-N51
      5 1558 1333 (N12W41 L=296)   350    113        1 (1516/1291-1609/1360) -56.3 W38-W43 N07-N13
      6 1212 1201 (N13W15 L=270)   929    272        1 (1160/1070-1273/1302) -90.0 W13-W17 N04-N19
      7 1635 1234 (N04W43 L=298)   265     70        2 (1601/1212-1661/1259)  11.3 W40-W45 N02-N05
      8 1686 1109 (S04W44 L=298)   365     97        1 (1660/1064-1722/1155) -90.0 W42-W45 S07-S01
      9 1828 1013 (S14W55 L=310)   681     98        3 (1805/ 957-1851/1055)  38.7 W51-W58 S17-S11
     10  644  969 (N12E24 L=231)   491    165        1 ( 605/ 893- 682/1039) -84.3 E25-E22 N06-N16
     11  793  810 (S00E18 L=237)   951    331        1 ( 715/ 679- 905/ 868)  21.8 E25-E10 S06-N02
     12 1662  744 (S25W36 L=290)   305     44        0 (1643/ 721-1686/ 773) -59.0 W34-W37 S27-S22
     13  825  724 (S06E18 L=237)   199     52        0 ( 800/ 701- 845/ 742) -45.0 E19-E16 S07-S04
     14 1213  695 (S16W04 L=258)   455    142        1 (1193/ 648-1251/ 741)  38.7 W01-W06 S18-S13
     15  549  687 (S03E37 L=218)   235     50        2 ( 529/ 668- 578/ 710) -56.3 E38-E35 S04-S01
     16  614  671 (S05E33 L=222)   378    121        2 ( 577/ 630- 661/ 709) -51.3 E34-E30 S07-S02
     17 1147  652 (S17E01 L=254)   202     47        1 (1123/ 635-1171/ 670) -26.6 E02-W00 S18-S15
     18  564  605 (S08E38 L=216)   967    160        5 ( 519/ 551- 611/ 662) -90.0 E41-E35 S12-S04
     19  260  598 (S05E67 L=187)  1609    151        6 ( 201/ 559- 306/ 655) -36.9 E75-E62 S07-S01
     20 1566  489 (S41W26 L=281)  2175    383        3 (1449/ 384-1689/ 648)  32.5 W15-W38 S46-S32
     21  417  494 (S13E56 L=199)  2321    259        3 ( 339/ 376- 478/ 578)  78.7 E61-E48 S22-S07
     22  633  510 (S16E37 L=217)   808    217        2 ( 588/ 432- 668/ 577)  45.0 E44-E33 S20-S11
     23  713  429 (S22E35 L=220)  1041    119        3 ( 673/ 381- 750/ 479)  76.0 E37-E31 S26-S18
     24  423  367 (S23E66 L=188)   586     44        2 ( 407/ 339- 445/ 386)  16.7 E72-E61 S24-S20
  

    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