Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1886 (N62W46 L= 35)   443     59        0 ( 944/1861-1005/1909)   0.0 W38-W53 N60-N62
      2 1127 1681 (N41W31 L= 20)   633    220        1 (1032/1666-1242/1697) -31.6 W24-W37 N35-N44
      3  523 1653 (N61E24 L=325)   454     80        1 ( 493/1622- 558/1673) -11.3 E28-E18 N58-N63
      4 1585 1571 (N19W55 L= 44)  1211    209        4 (1507/1526-1689/1618) -45.0 W51-W62 N14-N24
      5 1733 1482 (N10W63 L= 52)  5498      0       16 (1604/1347-1809/1618) -78.1 W54-W74 N01-N20
      6 1130 1527 (N31W22 L= 12)   463    149        0 (1058/1494-1193/1569)   0.0 W16-W27 N30-N32
      7 1573 1501 (N16W50 L= 39)   275     48        1 (1544/1489-1603/1517) -36.9 W47-W52 N14-N17
      8 1200 1436 (N24W23 L= 12)   674    250        0 (1086/1412-1316/1470) -18.4 W15-W30 N21-N27
      9  636 1437 (N40E14 L=335)   359     90        1 ( 599/1412- 684/1452)  -8.1 E17-E10 N39-N41
     10  260 1339 (N44E54 L=295)   947    134        1 ( 228/1297- 310/1403) -29.7 E61-E46 N40-N48
     11 1204 1284 (N16W17 L=  6)   304    102        1 (1182/1233-1222/1339)  63.4 W16-W19 N12-N18
     12 1824 1268 (S04W60 L= 49)  1606    142        3 (1759/1218-1874/1320)   0.0 W52-W68 S06-N00
     13  792 1200 (N22E09 L=340)   585    236        0 ( 734/1133- 867/1235) -12.5 E13-E04 N17-N24
     14 1645 1135 (S05W40 L= 29)   584    155        0 (1620/1065-1685/1200)  36.9 W36-W44 S08-S02
     15  836 1090 (N15E09 L=340)   277    113        1 ( 811/1039- 859/1139)  45.0 E11-E06 N12-N17
     16  200 1034 (N26E60 L=290)   478     66        2 ( 179/ 998- 216/1067) -63.4 E62-E57 N23-N27
     17 1087  588 (S20E08 L=341)   688    276        0 (1001/ 472-1136/ 686)  32.7 E17-E03 S24-S14
     18  554  571 (S08E41 L=308)   940    190        0 ( 529/ 487- 578/ 673)  48.0 E45-E35 S12-S02
     19 1698  538 (S45W36 L= 26)  2018    274        4 (1589/ 470-1809/ 614)   2.1 W24-W51 S46-S41
     20  759  249 (S34E46 L=303)  2014    269        1 ( 653/ 165- 850/ 320)  11.3 E69-E34 S38-S30
  

    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