Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1538 1405 (N13W43 L=341)   592    112        3 (1490/1382-1583/1426) -26.6 W38-W45 N11-N14
      2 1523 1272 (N07W36 L=335)   233     90        1 (1482/1244-1561/1305) -51.3 W34-W38 N04-N09
      3 1518 1075 (S04W30 L=328)   416    107        1 (1477/1040-1565/1093) -18.4 W26-W32 S06-S01
      4  870  995 (N09E09 L=289)   778    337        0 ( 729/ 971-1050/1043) -11.9 E18-W01 N05-N12
      5  622  985 (N15E25 L=274)   326     88        1 ( 578/ 953- 662/1012)   8.1 E28-E21 N13-N15
      6  163  835 (N14E68 L=231)  1337    232        1 ( 126/ 798- 202/ 889)  50.2 E73-E62 N11-N17
      7  249  765 (N09E60 L=238)  1113    253        3 ( 187/ 740- 318/ 796) -12.1 E67-E52 N06-N11
      8 1319  742 (S17W09 L=308)   562     97        2 (1268/ 708-1369/ 794) -18.4 W06-W12 S19-S13
      9 1182  551 (S25E04 L=295)   467    189        1 (1142/ 478-1205/ 649)  55.0 E07-W00 S28-S18
     10  414  505 (S09E56 L=243)  1113    245        5 ( 341/ 416- 448/ 600) -90.0 E59-E51 S15-S02
     11  659  561 (S11E34 L=264)   300     53        2 ( 626/ 535- 684/ 582) -56.3 E36-E32 S12-S08
     12  485  493 (S11E50 L=249)   625    152        3 ( 458/ 451- 515/ 525)  33.7 E53-E46 S13-S09
     13  599  296 (S27E53 L=246)   463    133        3 ( 580/ 264- 618/ 328)  35.5 E56-E49 S29-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