Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  858 1654 (N32E19 L= 94)   410     56        1 ( 826/1634- 895/1676)   0.0 E21-E16 N30-N34
      2 1273 1554 (N30W11 L=124)   457    161        1 (1232/1487-1314/1627) -56.3 W07-W13 N25-N34
      3 1493 1464 (N27W27 L=140)   368    116        0 (1437/1437-1544/1496) -14.0 W22-W30 N25-N28
      4 1071 1438 (N20E02 L=112)   308    136        0 (1057/1370-1094/1494) -76.0 E02-W00 N15-N23
      5  922 1351 (N13E10 L=104)   403    177        0 ( 872/1287- 987/1421)  60.9 E11-E06 N08-N17
      6 1776 1220 (N16W49 L=163)   904    137        3 (1741/1171-1833/1272) -18.4 W46-W55 N12-N18
      7 1709 1112 (N08W43 L=157)  1835    418        4 (1576/ 944-1790/1246) -34.4 W32-W52 N00-N14
      8 1856 1154 (N13W58 L=171)  1377    220        6 (1818/1077-1891/1246) -90.0 W53-W62 N08-N18
      9  321 1020 (S11E47 L= 67)   543    100        1 ( 303/ 969- 342/1069) -59.0 E48-E44 S14-S08
     10 1261 1019 (S03W14 L=128)   492    184        0 (1174/ 958-1311/1053) -12.5 W08-W17 S06-S01
     11  198 1023 (S11E59 L= 55)   831     86        2 ( 153/ 987- 231/1050) -18.4 E64-E55 S13-S09
     12  535  876 (S18E30 L= 84)  1059    353        3 ( 462/ 807- 618/ 961)  56.3 E35-E24 S22-S13
     13  235  855 (S21E56 L= 58)  3517    470        8 ( 127/ 761- 354/ 959)  27.6 E69-E43 S26-S14
     14 1843  732 (S11W64 L=178)  8548      0       17 (1726/ 538-1930/ 899)  87.5 W55-W76 S23-N00
     15 1214  840 (S14W13 L=127)   219     62        0 (1186/ 824-1248/ 862) -14.0 W11-W15 S15-S13
     16 1667  678 (S18W48 L=162)   977    246        2 (1572/ 632-1765/ 725)  13.2 W40-W57 S21-S13
     17 1501  659 (S21W36 L=150)   729    166        4 (1469/ 587-1544/ 721) -48.8 W33-W41 S25-S17
     18 1651  574 (S24W51 L=165)   373     98        0 (1614/ 539-1689/ 608)  51.3 W49-W53 S26-S21
     19  450  549 (S40E41 L= 73)  1503    221        3 ( 353/ 518- 564/ 589)   9.5 E53-E29 S42-S37
  

    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