Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1012 1677 (N48W02 L=169)   285     49        1 ( 994/1649-1031/1706)  53.1 W00-W04 N46-N50
      2 1166 1661 (N46W16 L=183)   807    212        1 (1078/1636-1246/1687)  -3.8 W07-W22 N43-N48
      3 1521 1646 (N42W50 L=217)   458     74        1 (1482/1624-1555/1665) -26.6 W46-W52 N40-N43
      4  841 1646 (N46E13 L=154)   277     58        0 ( 816/1632- 871/1663) -31.0 E15-E10 N45-N48
      5  399 1568 (N41E57 L=110)   488     99        0 ( 361/1550- 452/1585)   9.5 E63-E50 N39-N42
      6 1381 1507 (N33W29 L=196)   299     71        0 (1351/1479-1410/1531) -11.3 W26-W31 N31-N34
      7  414 1349 (N26E44 L=122)   551    173        1 ( 357/1292- 448/1418)  69.4 E48-E41 N22-N30
      8  722 1290 (N22E19 L=148)   670    195        2 ( 644/1249- 780/1325)   0.0 E24-E15 N18-N23
      9 1436 1270 (N17W28 L=195)   537    150        0 (1383/1216-1481/1323) -58.0 W25-W30 N13-N21
     10 1552  987 (S01W34 L=201)   230     73        0 (1528/ 953-1581/1002)  26.6 W32-W36 S02-N00
     11 1264  947 (S01W14 L=181)   631    227        1 (1167/ 887-1339/ 997) -28.6 W08-W19 S05-N01
     12 1671  887 (S08W43 L=210)   380     50        1 (1644/ 868-1698/ 903)  14.0 W41-W45 S08-S06
     13  199  865 (S05E63 L=103)   445    100        2 ( 175/ 812- 217/ 902) -90.0 E66-E61 S08-S02
     14  885  842 (S06E09 L=157)   318    137        0 ( 840/ 785- 917/ 885) -60.3 E11-E07 S10-S03
     15 1740  808 (S13W50 L=217)  1177    188        3 (1693/ 736-1799/ 871)  41.6 W46-W56 S17-S09
     16  405  773 (S10E43 L=123)   903    230        3 ( 369/ 671- 448/ 869)  56.3 E48-E38 S16-S04
     17  155  792 (S10E73 L= 94)  1290    103        4 ( 132/ 738- 178/ 836)  60.3 E78-E67 S13-S06
     18  978  695 (S16E04 L=163)   678    217        3 ( 881/ 640-1051/ 724)   0.0 E10-W00 S19-S14
     19 1329  605 (S24W19 L=186)  1396    284        4 (1236/ 494-1426/ 694)  47.3 W12-W25 S31-S18
     20 1677  599 (S27W49 L=215)  1026    214        1 (1618/ 518-1739/ 673)  55.0 W44-W53 S32-S22
     21 1058  613 (S22W01 L=167)   579    124        1 (1023/ 560-1100/ 658)  71.6 E01-W03 S25-S18
     22 1304  436 (S36W19 L=186)   296     79        1 (1277/ 417-1334/ 470)  53.1 W16-W20 S37-S33
     23  527  309 (S45E54 L=113)   582     49        1 ( 506/ 288- 548/ 335)  63.4 E58-E50 S46-S42
     24 1139  243 (S53W07 L=174)   495     69        2 (1122/ 213-1159/ 275)  74.1 W05-W08 S56-S49
     25 1256  211 (S58W22 L=188)   437     54        1 (1239/ 186-1273/ 241) -81.9 W19-W24 S61-S54
     26 1313  192 (S61W32 L=199)   903     74        1 (1298/ 152-1328/ 236) -34.4 W26-W45 S68-S55
  

    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