Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  498 1528 (N26E40 L=  1)  1623    347        1 ( 410/1451- 607/1593) -21.8 E49-E29 N20-N30
      2 1031 1464 (N23E01 L= 39)   264     70        0 ( 996/1432-1066/1486) -33.7 E03-W00 N21-N24
      3 1272 1426 (N22W14 L= 55)   288     65        1 (1238/1410-1318/1442) -11.3 W12-W17 N20-N22
      4  284 1400 (N18E56 L=345)   367     59        0 ( 261/1384- 306/1416) -18.4 E58-E52 N16-N18
      5 1022 1225 (N08E01 L= 39)   238     84        0 ( 997/1182-1064/1267) -59.0 E02-W01 N05-N10
      6 1880 1124 (N07W63 L=103)  1766    346        4 (1818/1057-1929/1188) -32.5 W55-W70 N03-N11
      7  757 1133 (N01E17 L= 24)   275     90        0 ( 712/1102- 808/1153)  18.4 E19-E13 N00-N02
      8  676  976 (S08E21 L= 19)   276    133        0 ( 614/ 941- 741/1022)  32.0 E25-E17 S10-S05
      9 1795  970 (S03W54 L= 94)   477    130        0 (1756/ 933-1843/ 996)  26.6 W50-W58 S05-N00
     10  227  893 (S13E57 L=343)  1059    287        0 ( 162/ 822- 278/ 980)  34.7 E65-E51 S17-S08
     11 1840  800 (S12W61 L=102)  7028   1005       16 (1756/ 616-1942/ 971) -87.4 W52-W77 S23-S01
     12 1405  874 (S11W24 L= 65)   237     61        0 (1386/ 837-1421/ 909) -69.8 W22-W25 S13-S09
     13 1622  690 (S21W43 L= 83)  1399    271        5 (1560/ 578-1658/ 818) -54.5 W35-W47 S27-S13
     14  844  654 (S28E11 L= 30)  1336    306        3 ( 718/ 572- 984/ 758)  34.4 E20-E01 S33-S20
     15 1438  719 (S21W29 L= 69)   233     80        0 (1396/ 700-1480/ 734)  21.8 W26-W31 S22-S19
     16  485  616 (S31E38 L=  3)   396     93        1 ( 451/ 587- 519/ 648)  33.7 E40-E34 S32-S28
     17  269  597 (S32E58 L=342)  1911    317        4 ( 208/ 552- 324/ 644)  -4.8 E64-E52 S34-S28
     18  599  492 (S39E31 L=  9)   718    160        1 ( 539/ 453- 660/ 528)  22.6 E37-E25 S42-S36
     19 1154  465 (S39W13 L= 53)   579    109        0 (1103/ 434-1210/ 514)  35.5 W09-W16 S41-S35
     20 1607  442 (S37W51 L= 91)   828     88        1 (1572/ 403-1641/ 484)  80.5 W47-W52 S40-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