Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1582 1656 (N28W57 L=202)   362     48        0 (1554/1638-1606/1674) -56.3 W54-W59 N26-N29
      2 1479 1572 (N25W42 L=187)   386    114        0 (1424/1550-1523/1603)   0.0 W37-W46 N23-N26
      3 1538 1464 (N17W42 L=187)  1205    327        1 (1403/1417-1673/1520) -24.0 W33-W53 N13-N23
      4  239 1295 (N30E54 L= 91)  1613    209        3 ( 192/1215- 310/1389)  39.3 E59-E47 N25-N35
      5  489 1341 (N29E30 L=115)   601    159        0 ( 436/1274- 534/1389) -48.4 E34-E26 N23-N32
      6  868 1315 (N21E04 L=141)   916    352        2 ( 704/1274-1015/1351) -18.4 E14-W04 N18-N24
      7  136 1218 (N27E68 L= 77)  1273    117        3 (  89/1181- 186/1254)  -9.5 E83-E59 N24-N29
      8  501 1129 (N16E30 L=115)   368     89        0 ( 480/1088- 519/1183)  78.7 E32-E29 N13-N18
      9 1164 1078 (N02W09 L=154)   500    237        0 (1126/ 989-1202/1182) -90.0 W07-W10 S03-N08
     10 1902 1034 (S14W64 L=209)  2495    232        7 (1860/ 959-1950/1124) -65.6 W59-W72 S18-S07
     11 1444 1059 (S04W25 L=170)   475    169        2 (1392/1020-1492/1121)  26.6 W21-W29 S06-S01
     12  418 1021 (N11E38 L=107)   526    179        0 ( 358/ 984- 450/1100)  26.6 E42-E34 N08-N14
     13 1664 1025 (S10W40 L=185)   247     56        1 (1634/1004-1695/1045)  14.0 W37-W42 S10-S08
     14  250  952 (N09E53 L= 92)   883    144        2 ( 227/ 889- 283/1021) -76.0 E54-E50 N05-N13
     15 1841  962 (S17W56 L=201)   407     46        0 (1823/ 930-1859/ 990)  45.0 W53-W57 S18-S15
     16 1543  916 (S14W30 L=175)   318     64        0 (1518/ 890-1567/ 955)  76.0 W27-W31 S15-S11
     17 1746  892 (S19W46 L=191)   505     84        0 (1725/ 848-1769/ 931)  78.7 W43-W47 S21-S16
     18  652  815 (S05E25 L=119)   202     66        0 ( 642/ 778- 665/ 851)  63.4 E26-E24 S06-S02
     19 1226  783 (S16W08 L=153)   562    173        4 (1174/ 710-1287/ 836)  32.0 W03-W12 S19-S13
     20  250  696 (S05E60 L= 85)  5057    488       14 ( 133/ 569- 452/ 787) -15.7 E75-E42 S12-N00
     21 1008  675 (S19E07 L=138)   474    177        1 ( 937/ 643-1100/ 715)   5.7 E11-E01 S19-S17
     22 1523  632 (S31W26 L=171)   397     95        0 (1496/ 590-1556/ 687)  45.0 W24-W29 S33-S28
     23  443  638 (S12E45 L=100)   498    107        1 ( 401/ 604- 482/ 679) -56.3 E46-E42 S14-S08
     24  340  630 (S10E54 L= 91)   604     85        3 ( 304/ 608- 369/ 662) -53.1 E57-E50 S12-S08
     25 1140  589 (S27E01 L=144)   404    162        0 (1073/ 572-1218/ 610) -14.0 E04-W04 S27-S24
     26 1094  221 (S54E16 L=129)   798     78        0 (1043/ 191-1142/ 247)   4.8 E22-E10 S55-S51
     27  772  160 (S51E53 L= 92)   835    115        1 ( 746/ 104- 791/ 220)  27.6 E68-E45 S57-S45
     28  906  127 (S58E46 L= 99)   652     94        1 ( 878/ 106- 941/ 159) -90.0 E53-E40 S61-S54
  

    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