Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  538 1743 (N23E61 L= 67)   737     87        2 ( 509/1718- 575/1776) -59.0 E65-E56 N21-N26
      2  863 1631 (N24E29 L= 99)   924    167        2 ( 830/1558- 908/1698) -48.4 E32-E23 N19-N28
      3  528 1629 (N15E52 L= 76)   462     99        1 ( 490/1598- 560/1669)  90.0 E53-E50 N12-N18
      4 1488 1609 (N44W13 L=140)   867    156        2 (1425/1576-1563/1633)   8.1 W06-W20 N41-N46
      5 1326 1516 (N31W03 L=131)   477     73        2 (1293/1484-1362/1546)  -9.5 W00-W06 N28-N32
      6 1304 1367 (N21W06 L=134)   251     88        1 (1265/1341-1345/1399)  59.0 W04-W07 N18-N23
      7 1345 1283 (N17W11 L=138)   385    184        0 (1295/1249-1430/1335)   0.0 W06-W16 N15-N18
      8 1846 1300 (N37W54 L=181)   660     62        1 (1817/1279-1871/1333) -21.8 W49-W58 N35-N38
      9 1485 1281 (N21W19 L=147)   234     68        0 (1453/1260-1508/1311)  53.1 W17-W20 N19-N23
     10 1631 1262 (N25W30 L=158)   371    102        0 (1597/1226-1668/1303) -18.4 W27-W34 N24-N27
     11 1789 1138 (N24W47 L=174)   573    114        1 (1743/1095-1837/1168)  31.0 W42-W52 N19-N26
     12 1675 1025 (N13W39 L=167)   965    238        0 (1591/ 968-1763/1112)  -3.4 W30-W47 N11-N15
     13  231 1018 (S26E56 L= 71)   698    164        0 ( 194/ 950- 256/1084) -48.8 E61-E52 S30-S22
     14 1804 1018 (N17W51 L=178)   464     77        1 (1773/ 993-1827/1051)  45.0 W47-W53 N15-N19
     15  827  778 (S26E04 L=123)  1294    242        5 ( 720/ 718- 923/ 827)  50.7 E09-W01 S32-S20
     16 1844  779 (N06W64 L=191)   549     40        1 (1817/ 757-1872/ 798)  23.2 W60-W67 N04-N08
     17 1689  605 (S08W57 L=184)   793    158        1 (1624/ 566-1750/ 634)  45.0 W53-W62 S12-S04
     18  770  596 (S38E03 L=125)   399     67        1 ( 740/ 565- 800/ 626) -36.9 E04-W00 S39-S36
     19  604  545 (S47E14 L=113)  1131    205        4 ( 561/ 499- 672/ 620) -21.8 E18-E07 S51-S41
     20 1515  508 (S19W49 L=176)   859    114        1 (1486/ 473-1560/ 563)  -5.7 W43-W53 S21-S16
     21 1735  453 (S13W76 L=204)  2176    146        3 (1692/ 388-1779/ 495) -76.0 W69-W85 S17-S09
  

    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