Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  664 1701 (N56E27 L=125)   397     85        0 ( 627/1672- 697/1728)  33.7 E30-E23 N53-N58
      2  426 1672 (N55E62 L= 89)  1070    120        2 ( 372/1649- 485/1692)  -1.7 E83-E49 N53-N56
      3  614 1359 (N30E25 L=126)  1047    217        3 ( 516/1328- 718/1378)  -3.6 E33-E17 N28-N32
      4 1691 1286 (N12W50 L=201)   393    136        0 (1660/1234-1728/1350) -76.0 W48-W51 N08-N16
      5  517 1098 (N15E32 L=119)   624    252        0 ( 458/1004- 560/1194)  65.6 E37-E28 N09-N20
      6  965  998 (N05E04 L=147)   749    362        1 ( 886/ 843-1004/1127) -76.8 E07-E01 S04-N13
      7 1651  965 (S06W40 L=191)   595    119        4 (1600/ 922-1693/1006) -35.5 W36-W43 S09-S03
      8 1801  696 (S26W57 L=208)  1423    243        3 (1743/ 612-1858/ 775)  48.4 W51-W63 S30-S21
      9 1316  626 (S22W14 L=166)   787    162        4 (1259/ 566-1365/ 699)  49.4 W10-W18 S26-S18
     10 1465  488 (S35W26 L=177)  2746    494        6 (1311/ 406-1609/ 633)  20.0 W13-W37 S40-S26
     11  847  473 (S27E19 L=132)   360    101        0 ( 817/ 452- 890/ 502) -36.9 E20-E15 S28-S24
     12  629  378 (S33E39 L=112)   981    188        3 ( 580/ 296- 685/ 434)  30.1 E50-E31 S39-S28
     13 1473  289 (S54W34 L=185)  1120    113        2 (1416/ 268-1526/ 312) -15.5 W25-W43 S57-S50
  

    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