Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  828 1778 (N35E42 L=168)   798    140        1 ( 774/1732- 869/1827) -18.4 E50-E35 N32-N37
      2  583 1757 (N27E59 L=150)   551     38        1 ( 558/1727- 611/1780)   0.0 E64-E55 N24-N28
      3  442 1695 (N20E68 L=142)   972    117        0 ( 400/1658- 487/1734)  81.9 E70-E66 N16-N23
      4  777 1634 (N23E35 L=175)   457    148        1 ( 719/1576- 802/1668) -18.4 E39-E30 N20-N25
      5  609 1634 (N19E46 L=163)   307     53        0 ( 587/1615- 638/1658)  -9.5 E49-E43 N18-N20
      6 1513 1433 (N33W19 L=229)   881    242        0 (1445/1333-1545/1524) -48.0 W12-W22 N27-N37
      7 1028 1427 (N18E11 L=199)   290     66        0 (1013/1394-1047/1460) -63.4 E13-E09 N15-N19
      8  418 1332 (S03E46 L=163)  1945    305        4 ( 315/1219- 475/1454)  71.6 E51-E42 S11-N04
      9 1353 1403 (N26W09 L=218)   416    133        1 (1308/1341-1380/1443) -35.5 W04-W11 N22-N27
     10  280 1352 (S05E60 L=150)  1253    158        3 ( 246/1277- 308/1414) -35.0 E67-E55 S08-S01
     11 1721 1372 (N37W39 L=249)   422     88        0 (1704/1327-1743/1407)  71.6 W37-W42 N34-N40
     12 1065 1285 (N10E05 L=205)   384     92        2 (1023/1250-1111/1322)  -9.5 E07-E01 N08-N11
     13 1311 1247 (N15W10 L=220)   248     69        0 (1277/1229-1345/1263)   0.0 W07-W12 N14-N16
     14 1787 1086 (N21W49 L=258)   552     96        1 (1765/1028-1801/1129) -59.0 W45-W50 N17-N23
     15  455 1011 (S21E35 L=175)  1114    288        1 ( 354/ 918- 542/1121)  56.3 E42-E30 S27-S12
     16 1094  869 (S12W08 L=218)  1023    358        2 ( 976/ 819-1218/ 909)  39.8 W02-W14 S17-S06
     17  963  880 (S15W01 L=210)   193     30        0 ( 936/ 864- 987/ 895)  26.6 W00-W02 S15-S13
     18 1188  812 (S12W15 L=225)   391    123        1 (1137/ 780-1241/ 837)  56.3 W12-W17 S15-S09
     19  791  716 (S29E05 L=205)  1167    366        0 ( 668/ 677- 965/ 781)  14.7 E14-W05 S31-S23
     20  669  422 (S53E05 L=204)   618    141        1 ( 606/ 394- 730/ 457)   4.8 E12-W00 S54-S50
     21 1337  405 (S30W43 L=253)   312     83        0 (1322/ 373-1352/ 450) -38.7 W40-W46 S31-S27
  

    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