Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1238 1819 (N52E16 L=219)   383     37        0 (1216/1794-1257/1841) -81.9 E17-E14 N48-N55
      2  703 1742 (N27E46 L=189)   528     79        0 ( 673/1695- 728/1783) -60.3 E48-E43 N23-N30
      3 1411 1729 (N51W03 L=238)   755    108        0 (1359/1696-1465/1756)  18.4 E01-W08 N48-N53
      4  404 1669 (N16E67 L=168)  1711    163        1 ( 370/1587- 432/1743) -40.6 E74-E59 N10-N22
      5  534 1639 (N17E51 L=184)   532    140        1 ( 506/1588- 559/1671) -59.0 E55-E48 N13-N18
      6  375 1396 (S01E52 L=184)   478    109        0 ( 331/1351- 407/1422) -20.6 E55-E47 S03-N00
      7 1761 1390 (N39W42 L=277)   700    110        1 (1698/1357-1802/1420)   4.4 W34-W47 N37-N41
      8  418 1191 (S12E41 L=194)   333    115        0 ( 372/1153- 466/1212)   0.0 E45-E36 S12-S10
      9  227 1136 (S19E58 L=177)  1300    130        3 ( 169/1098- 294/1171)  21.0 E64-E51 S21-S16
     10  811 1073 (S09E13 L=222)   571    243        0 ( 764/ 978- 886/1150)  76.0 E14-E10 S15-S03
     11 1515 1082 (N11W26 L=261)   282     66        1 (1492/1052-1535/1117) -36.9 W24-W28 N09-N12
     12 1187  988 (S04W10 L=245)   448    122        0 (1164/ 930-1210/1042) -50.2 W07-W12 S06-N00
     13  587  878 (S26E22 L=213)   600    177        1 ( 553/ 804- 648/ 938)  73.3 E24-E19 S30-S20
     14 1198  742 (S16W18 L=253)   205     54        0 (1170/ 727-1226/ 767)  14.0 W15-W19 S17-S15
     15 1410  695 (S13W32 L=267)   413    126        0 (1351/ 676-1476/ 712)  35.5 W28-W35 S15-S10
     16 1516  594 (S15W43 L=278)   281     54        1 (1503/ 565-1533/ 629) -63.4 W41-W44 S16-S12
     17  529  532 (S50E21 L=214)   265     55        0 ( 512/ 502- 549/ 561) -45.0 E23-E18 S51-S47
     18  672  482 (S48E07 L=228)   808    165        1 ( 596/ 459- 752/ 513)  13.0 E13-W00 S50-S45
     19 1341  449 (S28W40 L=275)   513    100        1 (1299/ 431-1391/ 480)  18.4 W35-W43 S29-S25
     20 1529  357 (S26W61 L=296)   861     93        1 (1487/ 330-1571/ 388)  71.6 W57-W64 S28-S22
     21 1069  269 (S49W36 L=272)   323     40        0 (1046/ 251-1087/ 295) -53.1 W34-W38 S50-S46
     22 1161  225 (S48W48 L=283)  1195    126        2 (1101/ 178-1218/ 269)  -3.0 W39-W59 S49-S45
  

    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