Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  855 1851 (N40E46 L=206)   513     94        0 ( 845/1806- 867/1897) -33.7 E54-E41 N36-N44
      2  708 1809 (N32E53 L=199)  1038    149        3 ( 670/1745- 745/1862) -50.7 E58-E48 N26-N37
      3 1610 1661 (N56W26 L=279)   738     60        0 (1587/1628-1629/1698)  55.0 W22-W31 N51-N61
      4  659 1582 (N15E39 L=213)   424     69        1 ( 624/1551- 689/1610)  -9.5 E42-E36 N13-N17
      5  512 1252 (S07E37 L=216)   619    163        1 ( 447/1220- 565/1282)  35.5 E40-E32 S10-S04
      6 1602 1212 (N21W29 L=281)   771    209        0 (1527/1127-1652/1263) -20.0 W22-W34 N17-N23
      7  279 1084 (S22E52 L=200)  1081    279        0 ( 204/ 973- 367/1169)  47.0 E59-E45 S29-S14
      8  185 1110 (S22E64 L=189)   558    110        1 ( 156/1063- 212/1159)  45.0 E67-E60 S24-S18
      9  415  974 (S25E37 L=215)   244     66        1 ( 394/ 953- 448/ 996)  53.1 E39-E35 S26-S22
     10  613  809 (S30E19 L=233)  1228    342        1 ( 476/ 744- 772/ 859)   4.8 E30-E06 S31-S27
     11 1334  465 (S27W39 L=291)   305     95        0 (1291/ 438-1370/ 497)  80.5 W37-W39 S30-S24
     12 1548  326 (S27W68 L=320)   483     57        0 (1517/ 313-1584/ 338)  23.2 W63-W72 S27-S24
     13  747  243 (S67W16 L=269)   441     80        0 ( 734/ 206- 760/ 285) -31.6 W10-W23 S71-S62
  

    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