Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  883 1706 (N38E30 L=144)   436     83        1 ( 849/1685- 925/1734) -14.0 E33-E25 N36-N39
      2  923 1569 (N29E20 L=153)   671    186        2 ( 827/1532- 988/1608)  52.1 E25-E16 N24-N33
      3 1670 1270 (N27W39 L=212)  2940    774        2 (1460/ 982-1805/1559) -39.8 W19-W55 N12-N42
      4  626 1458 (N15E35 L=138)   267     69        0 ( 590/1430- 654/1488)  63.4 E37-E33 N12-N17
      5  267 1426 (N07E66 L=107)   522     95        0 ( 256/1378- 275/1476) -40.6 E70-E62 N03-N09
      6 1343 1345 (N24W13 L=186)   444    176        0 (1278/1319-1411/1387)   5.7 W07-W17 N22-N27
      7  600 1333 (N07E33 L=140)   232     59        0 ( 568/1321- 633/1347)   0.0 E35-E30 N06-N08
      8 1380 1293 (N22W16 L=190)   256     71        2 (1356/1263-1399/1325) -78.7 W14-W17 N19-N24
      9  267 1221 (S06E57 L=116)   494     48        1 ( 245/1192- 295/1244)  36.9 E59-E54 S07-S04
     10  497 1028 (S13E33 L=140)   955    240        1 ( 389/ 955- 586/1061)  18.4 E41-E26 S16-S09
     11  266  871 (S27E53 L=121)  1019    300        1 ( 222/ 780- 299/ 983)  57.3 E59-E48 S33-S19
     12 1766  866 (N05W54 L=227)   393     84        1 (1730/ 849-1798/ 889)  33.7 W50-W56 N03-N07
     13  998  866 (S12W02 L=175)   443    129        0 ( 944/ 848-1060/ 887)   9.5 E01-W05 S12-S10
     14  735  803 (S21E13 L=160)   334    109        0 ( 694/ 773- 769/ 840)  51.3 E15-E11 S23-S18
     15 1687  718 (S05W51 L=225)   496    128        0 (1647/ 682-1738/ 744)  39.8 W48-W55 S07-S02
     16 1581  616 (S13W47 L=220)   844    202        4 (1509/ 544-1633/ 695) -28.3 W39-W53 S17-S09
     17 1641  644 (S10W50 L=224)   452     60        1 (1622/ 610-1664/ 678) -45.0 W48-W52 S12-S08
     18 1631  522 (S18W56 L=230)  1768    277        2 (1542/ 438-1704/ 631)  78.7 W52-W60 S24-S09
     19 1104  598 (S26W15 L=188)   275     76        1 (1066/ 580-1145/ 617)  45.0 W13-W17 S27-S23
     20  470  543 (S45E33 L=141)  1072    171        2 ( 405/ 500- 554/ 585)  25.3 E42-E23 S50-S40
     21 1508  555 (S19W44 L=217)   454    105        0 (1454/ 537-1552/ 584)  33.7 W40-W46 S20-S16
  

    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