Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  337 1536 (N13E63 L=349)  2374    436        5 ( 299/1450- 392/1623) -29.1 E72-E53 N08-N18
      2  822 1478 (N20E23 L= 29)   760    181        1 ( 790/1415- 874/1537) -36.9 E26-E18 N16-N23
      3 1274 1367 (N23W07 L= 60)   628    176        2 (1227/1277-1317/1444) -45.0 W02-W11 N18-N27
      4 1684 1385 (N36W39 L= 91)   634     91        2 (1647/1347-1713/1412)  56.3 W35-W41 N32-N38
      5  835 1306 (N10E17 L= 35)   431     76        1 ( 805/1272- 869/1343)  78.7 E19-E15 N07-N12
      6  255 1223 (S07E58 L=355)  2026    330        2 ( 165/1137- 355/1294)  40.9 E66-E49 S13-N00
      7 1822 1250 (N30W52 L=105)   914    201        2 (1774/1215-1875/1286)  -5.7 W47-W58 N28-N32
      8 1597 1214 (N22W32 L= 85)   327    154        0 (1553/1169-1626/1237)  51.3 W29-W34 N18-N23
      9 1908  964 (N15W67 L=120)   604     63        1 (1894/ 933-1926/ 985)  56.3 W64-W69 N13-N16
     10 1915  904 (N12W71 L=123)  1804    194        5 (1882/ 845-1944/ 948)  81.9 W66-W75 N08-N15
     11  955  678 (S24W04 L= 56)   383    103        1 ( 902/ 661-1015/ 696)  23.2 W00-W07 S26-S22
     12 1472  293 (S35W57 L=109)   560     64        0 (1440/ 274-1498/ 307)   9.5 W53-W59 S36-S33
     13 1385  272 (S39W52 L=104)   427     29        0 (1364/ 253-1403/ 294) -71.6 W50-W53 S40-S37
  

    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