Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1357 1837 (N50W66 L=167)  1203     99        1 (1305/1811-1397/1873)   0.0 W55-W84 N48-N51
      2 1764 1400 (N13W63 L=164)  1265    212        1 (1679/1359-1840/1453) -31.0 W56-W73 N08-N17
      3  504 1371 (N36E32 L= 69)   472    163        0 ( 455/1303- 553/1426)  41.2 E36-E27 N32-N39
      4 1338 1348 (N20W26 L=127)  1049    340        4 (1202/1265-1459/1420)   5.7 W16-W36 N16-N21
      5 1791 1209 (N01W57 L=158)   395     79        0 (1763/1187-1829/1229)  -7.1 W53-W61 N00-N02
      6 1880 1038 (S11W64 L=165)  5831    380       13 (1817/ 866-1933/1205)  81.9 W54-W75 S21-N00
      7 1536 1131 (N03W34 L=135)   223     47        1 (1518/1105-1554/1152)  71.6 W32-W35 N01-N04
      8 1068  811 (S07E01 L=100)   642    254        2 ( 989/ 744-1146/ 912) -70.0 E04-W02 S11-N00
      9 1761  853 (S19W48 L=149)   584    147        3 (1718/ 822-1816/ 881) -15.3 W43-W54 S20-S17
     10 1365  827 (S11W17 L=118)   351     81        2 (1341/ 799-1394/ 871) -68.2 W15-W18 S13-S08
     11 1464  792 (S15W23 L=124)   595    175        2 (1424/ 703-1502/ 864)  56.3 W19-W26 S20-S11
     12  235  826 (N05E60 L= 41)   417     58        0 ( 212/ 799- 262/ 852)  26.6 E63-E57 N03-N06
     13 1802  795 (S24W53 L=154)   386     80        1 (1774/ 755-1821/ 828)  45.0 W49-W55 S25-S21
     14 1112  722 (S13E00 L=101)   265     58        2 (1083/ 695-1150/ 742)   0.0 E01-W02 S14-S11
     15  564  692 (S06E35 L= 66)   293     75        1 ( 534/ 660- 599/ 720) -53.1 E36-E32 S08-S04
     16 1185  588 (S23W02 L=103)   687    178        1 (1159/ 508-1213/ 672)  70.0 W00-W04 S28-S17
     17  301  540 (S14E65 L= 36)  3741    385        7 ( 198/ 386- 394/ 666) -78.7 E76-E57 S25-S04
     18  578  501 (S19E40 L= 61)   823    189        1 ( 546/ 417- 637/ 575)  85.2 E42-E37 S25-S13
     19 1293  482 (S33W08 L=109)   781    139        1 (1236/ 449-1362/ 516)   0.0 W03-W13 S34-S31
     20  863  444 (S27E22 L= 79)   588     82        0 ( 844/ 397- 885/ 484)  50.2 E24-E19 S30-S23
     21 1470  328 (S52W24 L=125)   743     67        1 (1431/ 308-1509/ 352)  -6.3 W19-W28 S53-S49
     22  502  319 (S31E61 L= 40)   695     82        1 ( 464/ 301- 552/ 335)   3.6 E69-E53 S33-S30
     23  860  197 (S48E38 L= 63)   592     71        2 ( 838/ 158- 887/ 229)  31.6 E45-E32 S52-S44
  

    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