Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1400 1668 (N47W32 L=248)   308     49        1 (1371/1647-1424/1682)   8.1 W28-W35 N45-N48
      2 1558 1631 (N44W48 L=264)   904    110        1 (1493/1606-1600/1654)   7.6 W39-W54 N42-N46
      3  877 1547 (N36E13 L=203)   488    100        0 ( 835/1508- 927/1578) -29.7 E16-E09 N33-N38
      4  363 1511 (N30E57 L=159)   453     58        0 ( 328/1495- 394/1525)  15.9 E61-E54 N28-N31
      5  872 1341 (N22E11 L=205)   242     52        0 ( 856/1315- 888/1370) -45.0 E12-E09 N20-N23
      6 1872 1165 (N13W66 L=283)  4608    412        4 (1769/1002-1936/1314) -61.2 W55-W77 N02-N22
      7  790 1213 (N13E15 L=201)   231     37        1 ( 771/1182- 808/1235)  71.6 E16-E14 N11-N14
      8 1276 1082 (N07W15 L=232)  1043    323        1 (1206/ 955-1327/1201) -66.8 W10-W18 N00-N14
      9 1443 1086 (N08W26 L=243)   419    111        1 (1418/1045-1481/1144) -56.3 W24-W29 N05-N11
     10  802  901 (S06E13 L=203)   287    108        0 ( 760/ 855- 822/ 942) -59.0 E15-E11 S08-S03
     11 1493  695 (S16W33 L=249)  2571    575        4 (1361/ 470-1591/ 913)  75.1 W26-W37 S32-S02
     12 1182  787 (S11W11 L=227)   364     58        1 (1155/ 752-1205/ 820) -63.4 W08-W12 S13-S09
     13  492  624 (S25E37 L=180)   931    169        2 ( 432/ 596- 552/ 663) -18.4 E41-E31 S26-S22
     14 1002  221 (S56W02 L=219)  2254    324        3 ( 845/ 194-1126/ 249)   3.8 E15-W15 S59-S52
  

    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