Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1738 (N49W35 L=180)  2131    427        3 (1039/1704-1408/1772) -17.9 W19-W51 N40-N52
      2 1594 1714 (N36W73 L=219)   859     59        0 (1568/1686-1626/1736)   0.0 W65-W85 N34-N36
      3 1139 1616 (N41W22 L=167)   355     73        1 (1099/1594-1179/1629) -18.4 W19-W25 N39-N42
      4 1317 1600 (N36W35 L=180)   539    101        1 (1277/1576-1368/1620) -45.0 W31-W38 N33-N38
      5 1601 1386 (N17W46 L=192)   747    186        1 (1512/1353-1673/1408) -22.6 W39-W51 N13-N19
      6 1321 1187 (N11W21 L=166)   798    258        0 (1218/1142-1419/1228) -22.6 W15-W27 N08-N15
      7 1869 1116 (S05W64 L=209)  1920    156        3 (1831/1044-1917/1170)  14.9 W58-W73 S08-S02
      8  785 1135 (N17E13 L=132)   239     39        0 ( 769/1108- 804/1163)  71.6 E14-E11 N15-N18
      9  310 1044 (N17E50 L= 96)   652    118        1 ( 280/ 990- 340/1107) -60.3 E52-E46 N13-N20
     10 1877 1035 (S10W64 L=209)   808    150        4 (1826/ 989-1917/1084)  11.3 W56-W71 S12-S07
     11  712 1027 (N11E19 L=126)   385     95        1 ( 687/ 982- 732/1082)  63.4 E21-E17 N08-N14
     12 1319 1013 (N01W17 L=163)   585    246        0 (1211/ 983-1434/1029)  -4.1 W10-W24 S01-N02
     13  841  937 (N04E12 L=133)   248     62        0 ( 818/ 915- 870/ 966) -56.3 E13-E10 N02-N06
     14 1530  905 (S10W30 L=175)  1141    180        4 (1451/ 857-1617/ 945)  -4.8 W24-W36 S11-S07
     15 1418  855 (S10W21 L=167)   527    109        3 (1384/ 808-1454/ 896) -90.0 W19-W23 S13-S07
     16  326  841 (N04E50 L= 95)   447     66        1 ( 297/ 805- 354/ 874) -63.4 E52-E48 N02-N06
     17 1355  838 (S10W17 L=162)   336     55        2 (1335/ 804-1377/ 874)  78.7 W15-W18 S12-S07
     18 1525  821 (S15W28 L=173)   533    130        1 (1500/ 745-1550/ 869)  56.3 W25-W30 S18-S11
     19  337  683 (S05E54 L= 92)   867    103        2 ( 303/ 637- 370/ 735) -71.6 E56-E51 S08-S02
     20  575  625 (S11E36 L=109)   359     50        0 ( 552/ 602- 599/ 655) -76.0 E37-E34 S13-S09
     21  702  632 (S12E27 L=118)   272     56        0 ( 669/ 614- 729/ 651)  11.3 E29-E24 S13-S11
     22 1577  597 (S31W32 L=177)  1023    140        1 (1529/ 539-1621/ 647)  36.9 W27-W35 S34-S27
     23  524  527 (S17E43 L=102)  1954    325        4 ( 450/ 375- 598/ 629)  87.0 E47-E40 S28-S09
     24  738  380 (S30E33 L=112)   662    139        0 ( 681/ 353- 806/ 412)   4.8 E38-E26 S32-S28
     25 1097  228 (S51E13 L=132)   947    100        1 (1062/ 187-1136/ 279)  45.0 E17-E08 S55-S46
  

    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