Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1344 1831 (N50W63 L=166)  1234    161        1 (1265/1792-1397/1869)  -1.8 W48-W82 N48-N51
      2 1748 1391 (N13W60 L=164)  1147    215        2 (1662/1351-1828/1444) -31.0 W54-W69 N08-N17
      3  468 1345 (N35E35 L= 68)   377    146        0 ( 430/1281- 502/1402)  54.5 E38-E32 N31-N38
      4 1382 1372 (N20W30 L=133)   373     83        1 (1346/1341-1422/1399)   0.0 W27-W33 N18-N21
      5 1281 1311 (N19W21 L=125)   519    195        0 (1211/1264-1339/1342) -20.6 W16-W24 N15-N20
      6  849 1175 (N18E08 L= 95)   220     56        1 ( 820/1149- 869/1203) -56.3 E10-E06 N16-N20
      7 1878 1038 (S11W63 L=167)  7199    338       12 (1802/ 878-1949/1194)  87.0 W53-W80 S20-S01
      8  933 1081 (N11E04 L= 99)   186     66        0 ( 900/1061- 968/1097) -36.9 E06-E02 N09-N12
      9 1052  770 (S09E03 L=101)  1058    362        6 ( 945/ 664-1130/ 915) -73.6 E06-W00 S16-N01
     10 1721  841 (S18W44 L=147)   398     62        1 (1694/ 813-1747/ 875)  36.9 W41-W46 S19-S16
     11  217  828 (N05E63 L= 41)   483     71        0 ( 191/ 795- 245/ 857)  20.6 E67-E59 N03-N06
     12 1446  810 (S14W22 L=126)   408     84        0 (1421/ 777-1470/ 852)  63.4 W20-W23 S15-S11
     13 1335  810 (S12W15 L=118)   278     63        2 (1314/ 787-1363/ 841) -63.4 W13-W16 S13-S09
     14  531  691 (S06E37 L= 66)   258     63        0 ( 505/ 668- 566/ 715) -45.0 E38-E35 S07-S04
     15 1753  670 (S31W48 L=152)   451     88        1 (1725/ 632-1780/ 692)  21.8 W45-W51 S33-S29
     16 1074  640 (S17E04 L=100)   257     70        1 (1041/ 623-1098/ 668)  14.0 E05-E01 S18-S15
     17 1154  589 (S22W00 L=104)   607    147        1 (1128/ 512-1177/ 665)  68.2 E02-W02 S27-S17
     18  228  599 (S10E73 L= 30)  1310    126        4 ( 191/ 546- 269/ 656) -54.5 E76-E69 S13-S05
     19  537  534 (S16E42 L= 61)   607    126        1 ( 514/ 477- 559/ 594)  63.4 E43-E39 S20-S12
     20 1270  480 (S32W06 L=109)   993    147        2 (1206/ 451-1316/ 534)  14.0 W01-W09 S34-S28
     21  357  453 (S20E65 L= 38)  1289    124        1 ( 334/ 391- 378/ 507)  39.3 E74-E60 S25-S16
     22  832  433 (S27E25 L= 79)   713    112        1 ( 807/ 374- 859/ 478)  45.0 E28-E21 S31-S24
     23 1451  322 (S52W22 L=125)   703     88        1 (1410/ 295-1494/ 348)  -5.7 W16-W26 S54-S49
     24  475  317 (S32E65 L= 38)   627     48        1 ( 450/ 299- 502/ 336)  12.1 E73-E59 S33-S29
  

    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