Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  942 1851 (N48E28 L=195)  1121    197        3 ( 905/1804- 973/1905) -54.0 E32-E23 N43-N54
      2  583 1683 (N27E45 L=179)   325     37        1 ( 563/1666- 603/1701)  45.0 E46-E42 N25-N28
      3  592 1469 (N13E35 L=189)   389    139        0 ( 544/1420- 628/1531)  66.8 E37-E34 N09-N17
      4 1284 1482 (N26W08 L=232)   739    124        2 (1243/1420-1330/1528)  63.4 W05-W10 N21-N29
      5 1593 1361 (N25W31 L=254)  1277    201        2 (1535/1255-1644/1461) -56.3 W25-W35 N18-N30
      6 1829 1424 (N36W54 L=278)  1160    310        2 (1771/1397-1890/1444)  14.9 W47-W62 N33-N38
      7  564 1394 (N08E35 L=189)   248     48        0 ( 540/1378- 595/1408) -14.0 E36-E32 N06-N09
      8  621 1044 (S12E25 L=199)  1921    456        3 ( 489/ 855- 711/1248)  70.2 E31-E21 S24-N01
      9 1849 1147 (N18W55 L=278)  1680    188        1 (1823/1045-1873/1237) -74.7 W51-W57 N12-N23
     10 1454 1115 (N07W24 L=248)   323     80        0 (1414/1079-1488/1156) -26.6 W20-W26 N04-N08
     11  211  957 (S22E56 L=167)  2244    287        3 ( 151/ 856- 268/1054)  50.2 E62-E51 S27-S15
     12  295  791 (S31E48 L=176)  2037    477        0 ( 184/ 692- 410/ 912)  34.3 E60-E38 S38-S22
     13 1590  718 (S13W42 L=266)  4087    946        5 (1257/ 635-1825/ 772)  14.0 W19-W63 S18-S05
     14 1084  649 (S27W11 L=235)  1337    368        4 ( 907/ 593-1254/ 739)  23.0 W00-W19 S33-S18
     15  682  548 (S42E16 L=208)  1691    237        4 ( 559/ 492- 871/ 612)  23.7 E26-E01 S47-S34
  

    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