Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  787 1803 (N34E43 L= 28)  2131    478        1 ( 746/1685- 846/1907) -53.1 E53-E35 N24-N44
      2  370 1531 (N07E59 L= 12)   854    243        1 ( 332/1462- 414/1591) -30.3 E65-E51 N03-N10
      3 1739 1382 (N37W38 L=110)  3603    605       12 (1572/1204-1868/1533) -22.5 W22-W52 N28-N42
      4  604 1482 (N08E38 L= 33)   692    134        1 ( 545/1459- 670/1504)  20.6 E41-E33 N05-N10
      5  226 1314 (S08E63 L=  8)  2061    347        5 ( 151/1252- 269/1403)  73.3 E71-E58 S12-S02
      6  309 1344 (S05E56 L= 15)   432     79        3 ( 286/1308- 329/1372) -53.1 E58-E53 S07-S03
      7  603 1248 (S05E30 L= 41)   934    306        5 ( 499/1118- 707/1369)  71.6 E34-E26 S14-N04
      8 1100 1331 (N12E04 L= 67)   548    168        4 (1029/1302-1184/1360)  26.6 E08-W00 N09-N15
      9 1554 1118 (N13W28 L= 99)  1516    457        7 (1472/ 936-1604/1253) -41.2 W19-W35 N04-N18
     10  270 1121 (S19E52 L= 19)   340     65        2 ( 247/1089- 291/1146) -71.6 E54-E50 S20-S17
     11  230 1032 (S25E54 L= 17)  1669    295        4 ( 181/ 974- 301/1139) -31.6 E60-E46 S27-S19
     12  779 1025 (S13E14 L= 57)   241    102        1 ( 740/ 993- 841/1063)  56.3 E15-E11 S15-S09
     13 1629  377 (S22W65 L=136)   613    163        2 (1595/ 364-1671/ 395)  23.2 W60-W69 S23-S20
  

    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