Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  950 1829 (N55E01 L=312)   674    137        1 ( 892/1804-1015/1851) -22.6 E07-W05 N52-N58
      2  690 1671 (N42E23 L=290)   802    158        3 ( 630/1632- 775/1711) -25.0 E30-E15 N38-N46
      3 1092 1617 (N35W09 L=322)   655    234        2 ( 964/1593-1187/1630)  -3.8 W00-W15 N33-N36
      4 1732 1581 (N30W65 L= 19)   638     99        0 (1694/1547-1774/1611) -39.8 W61-W69 N27-N32
      5  731 1468 (N27E17 L=296)  2119    645        1 ( 456/1341- 981/1536) -21.0 E40-W00 N17-N33
      6 1551 1471 (N23W39 L=353)   971    219        2 (1469/1425-1632/1525) -28.6 W34-W45 N19-N26
      7 1065 1351 (N17W04 L=318)   526    170        0 (1027/1289-1103/1422)  76.0 W01-W06 N13-N21
      8  413 1328 (N20E40 L=273)   425     94        1 ( 389/1294- 448/1374) -50.2 E42-E37 N17-N23
      9 1695 1321 (N13W48 L=  1)   565    113        1 (1665/1270-1713/1374)  54.5 W45-W50 N09-N16
     10  699 1319 (N17E19 L=294)   329    169        0 ( 675/1258- 757/1370)  66.8 E20-E15 N13-N20
     11 1895 1246 (N08W69 L= 22)  1691    124        3 (1867/1190-1933/1303)  49.4 W63-W77 N04-N11
     12  178 1173 (N12E63 L=251)  2789    275        7 ( 131/1077- 249/1294) -45.0 E72-E53 N05-N19
     13 1537 1266 (N10W34 L=348)   354    135        0 (1481/1246-1603/1291) -20.6 W30-W38 N08-N11
     14 1127 1265 (N12W07 L=321)   228     55        1 (1099/1243-1155/1289) -26.6 W05-W09 N10-N13
     15 1814 1056 (S03W56 L=  9)   575     61        1 (1783/1021-1841/1083)  63.4 W52-W58 S05-S01
     16 1201  901 (S10W10 L=323)  1250    324        2 (1119/ 772-1300/1035)  53.7 W04-W16 S17-S02
     17  812  780 (S16E15 L=299)   474    189        0 ( 772/ 702- 854/ 861)  59.0 E17-E11 S20-S10
     18 1817  786 (S19W58 L= 12)   472    114        0 (1785/ 737-1849/ 835)  50.2 W55-W61 S22-S16
     19 1273  581 (S31W15 L=328)   866    259        2 (1198/ 492-1344/ 695)  55.3 W09-W19 S36-S23
     20  573  572 (S27E35 L=279)   476    146        0 ( 545/ 509- 594/ 646)  56.3 E37-E31 S31-S22
     21  836  430 (S39E18 L=295)   737    169        1 ( 775/ 410- 934/ 463) -14.0 E22-E10 S40-S36
     22  543  375 (S41E47 L=266)   644     82        2 ( 503/ 358- 588/ 394)  -6.3 E51-E42 S42-S39
     23 1421  310 (S53W35 L=349)   346     60        0 (1408/ 280-1438/ 349) -45.0 W32-W39 S55-S49
  

    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