Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1422 1671 (N47W35 L=249)   383     52        1 (1392/1653-1454/1686)   8.1 W31-W38 N45-N48
      2 1573 1633 (N44W50 L=264)   841    106        1 (1514/1609-1615/1660)   3.8 W41-W56 N42-N46
      3  905 1547 (N36E11 L=203)   588    102        2 ( 860/1511- 958/1579) -26.6 E14-E06 N33-N38
      4  395 1509 (N30E54 L=160)   413     36        0 ( 368/1493- 425/1523)   0.0 E57-E50 N29-N31
      5  911 1348 (N22E09 L=205)   244     68        0 ( 897/1318- 926/1384)  76.0 E09-E07 N20-N24
      6 1849 1264 (N19W65 L=279)  1703    167        1 (1794/1193-1898/1320) -38.7 W58-W71 N14-N22
      7  835 1222 (N14E13 L=201)   240     68        0 ( 819/1182- 852/1255)  90.0 E13-E11 N11-N16
      8 1322 1073 (N07W18 L=232)  1132    317        0 (1241/ 939-1370/1195) -66.8 W13-W21 S01-N13
      9 1159 1161 (N12W08 L=222)   197     40        1 (1136/1137-1180/1178)  18.4 W06-W09 N10-N12
     10 1481 1083 (N08W29 L=243)   340    111        0 (1459/1044-1519/1142) -56.3 W27-W31 N05-N11
     11 1536  709 (S16W35 L=249)  2933    636        4 (1400/ 469-1660/ 961)  71.0 W29-W42 S32-N00
     12  842  903 (S05E11 L=203)   202     91        0 ( 809/ 860- 863/ 935) -53.1 E12-E09 S07-S03
     13 1225  783 (S11W13 L=227)   377     59        1 (1199/ 749-1256/ 810) -45.0 W11-W15 S13-S09
     14  530  617 (S25E34 L=180)   841    142        1 ( 473/ 587- 595/ 649)  -6.3 E37-E28 S27-S23
     15 1053  223 (S55W08 L=222)  2732    369        4 ( 880/ 194-1212/ 255)   6.5 E11-W25 S59-S51
  

    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