Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1633 1596 (N19W60 L=175)  2278    305        4 (1577/1460-1710/1681)  19.1 W49-W77 N12-N22
      2 1177 1603 (N33W27 L=143)   303     83        0 (1135/1583-1217/1617) -31.0 W23-W29 N30-N34
      3 1162 1495 (N27W21 L=137)   709    192        1 (1097/1420-1235/1533)   9.5 W14-W26 N24-N28
      4 1220 1371 (N18W20 L=136)   226    106        0 (1169/1342-1259/1399) -59.0 W18-W21 N15-N20
      5  925 1312 (N22W01 L=117)   352    113        1 ( 891/1268- 964/1363) -80.5 W00-W02 N19-N25
      6  679 1204 (N22E16 L=100)   955    244        3 ( 630/1122- 775/1286) -63.4 E18-E11 N15-N27
      7 1882 1155 (S12W63 L=179)  1737    272        4 (1842/1042-1922/1266)  47.7 W55-W68 S17-S05
      8  425 1171 (N26E35 L= 81)  1976    472        4 ( 240/1068- 606/1243) -26.6 E52-E22 N16-N32
      9 1597 1096 (S06W35 L=151)  1822    392        4 (1531/ 902-1653/1240)  62.1 W28-W39 S16-N02
     10 1817 1104 (S12W54 L=169)  1119    218        4 (1752/1039-1855/1183)  28.6 W46-W58 S14-S08
     11 1915 1063 (S18W65 L=181)  1925    206        3 (1847/ 994-1971/1150)  13.4 W54-W78 S20-S14
     12  334 1024 (N20E44 L= 72)   364     98        1 ( 289/1007- 379/1046) -29.7 E47-E40 N17-N21
     13 1025  911 (S02E03 L=113)   180     73        1 ( 988/ 886-1058/ 936)  11.3 E05-W00 S02-S01
     14  669  795 (S00E26 L= 90)   832    404        0 ( 572/ 681- 822/ 927) -66.0 E29-E19 S10-N08
     15 1660  774 (S27W34 L=150)  2441    494        4 (1433/ 629-1829/ 879)   4.6 W14-W51 S29-S23
     16 1391  773 (S19W15 L=131)  1061    266        3 (1290/ 709-1517/ 829)   3.4 W07-W24 S20-S17
     17  290  562 (S06E64 L= 52)  6800    377       16 ( 215/ 422- 358/ 782)  55.7 E75-E55 S15-N07
     18  209  606 (S02E72 L= 44)   641     55        4 ( 188/ 573- 227/ 633)  29.7 E75-E67 S04-N00
     19  390  561 (S08E53 L= 62)   545    107        1 ( 365/ 515- 411/ 617)  71.6 E55-E51 S10-S04
     20  428  484 (S13E54 L= 62)  1122    164        7 ( 374/ 412- 482/ 559)  59.0 E59-E48 S18-S08
     21 1330  197 (S62E06 L=109)   542     68        0 (1292/ 178-1364/ 216) -53.1 E09-E03 S66-S58
  

    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