Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  977 1394 (N27W08 L=119)   439    166        0 ( 898/1368-1064/1438)  -4.8 W02-W14 N25-N28
      2  723 1401 (N35E08 L=104)   663    141        1 ( 650/1378- 801/1418) -20.0 E13-E02 N31-N36
      3 1383 1382 (N15W31 L=143)   609    205        1 (1298/1368-1477/1408) -22.6 W25-W37 N12-N18
      4 1805 1324 (S01W61 L=173)  1189    196        5 (1745/1281-1852/1357) -26.6 W55-W66 S04-N01
      5 1204 1268 (N14W17 L=128)   558    119        1 (1161/1237-1264/1299)   0.0 W13-W20 N11-N16
      6 1747 1108 (S11W47 L=159)  1702    437        5 (1721/ 922-1815/1274)  57.7 W42-W58 S21-S02
      7  191  947 (N20E59 L= 53)   421     74        1 ( 169/ 920- 213/ 973) -71.6 E61-E56 N18-N21
      8 1513  838 (S18W24 L=135)   340     67        2 (1486/ 808-1543/ 867) -63.4 W21-W25 S20-S16
      9 1540  729 (S26W23 L=135)   229     35        0 (1522/ 705-1556/ 753)  56.3 W22-W24 S27-S24
     10  698  693 (S05E27 L= 84)   236     50        0 ( 664/ 679- 733/ 704) -26.6 E29-E25 S06-S03
     11 1141  452 (S31E10 L=102)   375     71        1 (1124/ 413-1161/ 488)  71.6 E11-E08 S34-S28
     12  616  358 (S23E47 L= 64)   920    204        0 ( 590/ 286- 644/ 435)  51.3 E50-E42 S28-S18
     13 1304  315 (S48E04 L=107)  3137    351        5 (1179/ 240-1395/ 395)  13.4 E17-W04 S53-S41
  

    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