Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1336 1593 (N35W04 L= 23)   378     95       -1 (1311/1569-1366/1615)  53.1 W02-W05 N32-N37
      2  244 1478 (N04E70 L=309)  1039    141        1 ( 218/1446- 284/1503)  38.7 E75-E65 N01-N05
      3  122 1255 (S11E76 L=303)  1255    119        1 ( 105/1208- 141/1291) -45.0 E79-E72 S13-S08
      4  170 1193 (S14E65 L=314)  1446    393        2 (  87/1096- 246/1287)  42.7 E73-E59 S20-S08
      5  347 1103 (S17E45 L=334)  1277    268        1 ( 282/ 987- 387/1246)  86.4 E48-E42 S24-S08
      6  630 1110 (S11E25 L=354)   634    155        3 ( 587/1045- 678/1169) -74.1 E28-E22 S14-S07
      7  707 1087 (S11E20 L=360)   220     51        1 ( 682/1060- 733/1115)  56.3 E20-E18 S12-S09
      8  773 1076 (S10E15 L=  4)   184     72        0 ( 734/1056- 810/1093)   0.0 E18-E12 S10-S09
      9 1908  990 (N17W62 L= 82)  1465    186        3 (1884/ 941-1946/1035)  74.1 W58-W68 N13-N20
     10 1109  787 (S18W11 L= 30)   595    220        1 (1063/ 681-1140/ 884) -45.0 W05-W15 S24-S13
     11 1703  761 (S03W50 L= 69)  1384    300        2 (1615/ 717-1791/ 847)   0.0 W39-W59 S04-N00
     12  777  708 (S31E07 L= 12)   996    329        1 ( 607/ 670- 924/ 739)  15.3 E19-W03 S35-S28
     13 1508  421 (S26W51 L= 71)  2952    490        8 (1347/ 346-1716/ 519)  45.0 W43-W65 S35-S15
     14 1631  389 (S24W64 L= 83)  1603    249        2 (1583/ 337-1662/ 452) -82.9 W60-W66 S27-S19
  

    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