Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1535 1556 (N31W47 L=298)   346     58        1 (1506/1534-1560/1571) -26.6 W44-W49 N29-N32
      2 1023 1339 (N25W04 L=255)   223     51        2 (1001/1316-1048/1366) -63.4 W02-W05 N23-N27
      3 1835 1292 (N09W66 L=317)  1905    322        7 (1783/1185-1877/1363) -84.8 W59-W72 N02-N13
      4  556 1158 (N19E29 L=222)  1960    467        5 ( 383/1065- 711/1273) -31.0 E43-E18 N11-N27
      5 1357 1192 (N12W23 L=274)   309     96        1 (1328/1148-1385/1232)  38.7 W20-W25 N09-N13
      6 1857 1059 (S05W62 L=313)  1037    132        2 (1827/1013-1884/1104)  35.5 W57-W66 S07-S02
      7  388 1027 (N12E43 L=208)   492     99        0 ( 345/ 987- 411/1059) -38.7 E46-E41 N09-N13
      8  187  928 (N06E65 L=186)   443     33        2 ( 169/ 904- 203/ 950)  63.4 E66-E62 N05-N07
      9 1633  750 (S20W38 L=289)  2343    408        6 (1515/ 615-1717/ 889)  43.0 W28-W45 S27-S12
     10  831  738 (S10E15 L=236)   374    121        0 ( 809/ 687- 854/ 803)  81.9 E17-E14 S12-S05
     11  964  776 (S09E07 L=244)   421    114        1 ( 914/ 752-1033/ 800)  -8.1 E09-E02 S10-S06
     12 1003  699 (S14E05 L=246)   959    330        2 ( 872/ 614-1109/ 793)  28.1 E14-W01 S18-S08
     13  675  708 (S10E26 L=225)   364     77        1 ( 642/ 676- 708/ 745) -53.1 E27-E23 S12-S07
     14  739  667 (S13E22 L=229)   310     83        1 ( 712/ 630- 779/ 688)  31.0 E24-E19 S15-S11
     15 1393  630 (S24W20 L=271)   486    184        2 (1341/ 566-1419/ 686) -71.6 W16-W21 S28-S19
     16 1299  601 (S24W13 L=264)   261     54        0 (1281/ 577-1318/ 631) -76.0 W11-W14 S26-S22
     17  568  586 (S17E36 L=215)   538    121        2 ( 511/ 548- 614/ 618) -33.7 E40-E33 S19-S14
     18  460  564 (S18E45 L=206)   380     78        2 ( 436/ 526- 484/ 604)  80.5 E46-E44 S20-S14
     19  557  501 (S23E40 L=211)   304     55        1 ( 539/ 481- 583/ 523)  14.0 E41-E37 S23-S20
     20  866  467 (S28E18 L=233)   293    117        0 ( 848/ 419- 879/ 513)  60.3 E20-E16 S31-S24
  

    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