Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1226 1777 (N51W42 L=174)  1390    186        4 (1151/1736-1308/1808)   2.7 W31-W53 N47-N52
      2 1440 1652 (N36W49 L=181)   533     62        2 (1417/1627-1470/1679) -76.0 W45-W51 N34-N38
      3 1686 1449 (N18W57 L=189)   593    127        0 (1627/1413-1739/1468) -29.1 W51-W61 N14-N20
      4 1356 1439 (N25W30 L=162)   344    144        0 (1296/1408-1418/1466)   0.0 W25-W35 N24-N25
      5 1649 1305 (N11W47 L=179)  2150    512        3 (1424/1212-1809/1415)  -1.4 W29-W69 N08-N13
      6 1889 1067 (S09W66 L=198)  4339    320       20 (1827/ 970-1948/1179)  29.1 W56-W82 S14-S03
      7  928 1096 (N12E05 L=127)   351    121        2 ( 905/1037- 949/1147)  63.4 E06-E02 N09-N15
      8  456 1075 (N18E37 L= 95)   369    143        1 ( 434/1013- 491/1134) -69.4 E38-E34 N13-N21
      9 1570 1076 (S00W35 L=167)   492    130        3 (1502/1052-1633/1092) -12.5 W30-W39 S02-N01
     10 1674  894 (S13W40 L=172)  1313    433        7 (1557/ 746-1734/1050)  39.5 W29-W47 S20-S05
     11 1607  923 (S10W35 L=167)   765    161        5 (1559/ 874-1659/ 968)   0.0 W31-W39 S13-S08
     12  295  829 (N04E54 L= 78)   375    112        0 ( 260/ 778- 331/ 866) -50.2 E56-E51 N00-N06
     13  950  712 (S11E10 L=122)   575    130        2 ( 924/ 658- 992/ 779)  45.0 E11-E05 S14-S07
     14  585  642 (S10E35 L= 97)  1760    401        6 ( 434/ 541- 721/ 741) -41.2 E43-E27 S17-S02
     15  878  689 (S11E14 L=117)   314    103        2 ( 852/ 652- 917/ 727) -68.2 E15-E12 S13-S08
     16 1508  628 (S27W26 L=158)   290     86        1 (1464/ 600-1543/ 659)   9.5 W22-W28 S28-S25
     17 1739  571 (S38W50 L=182)   963    116        1 (1685/ 553-1788/ 591)  -7.6 W42-W58 S40-S35
     18  747  475 (S23E29 L=103)   502    100        2 ( 728/ 420- 769/ 517)  45.0 E32-E25 S27-S20
     19  491  388 (S27E54 L= 78)  1155     94        1 ( 451/ 347- 535/ 430) -90.0 E57-E49 S29-S23
     20  888  389 (S32E22 L=110)   734    122        1 ( 837/ 361- 954/ 419)   5.7 E26-E16 S33-S30
     21 1262  294 (S48W03 L=135)  1027    185        0 (1197/ 239-1326/ 360)  30.3 E03-W09 S52-S43
  

    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