Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1632 1610 (N26W64 L= 77)  1109    131        3 (1578/1573-1683/1660) -45.0 W60-W70 N23-N29
      2  611 1439 (N40E21 L=351)  1235    256        2 ( 542/1385- 728/1520) -40.9 E28-E12 N34-N47
      3 1275 1324 (N19W22 L= 35)   251    103        0 (1261/1275-1293/1369)  68.2 W20-W23 N16-N21
      4  170 1281 (N35E72 L=300)  1387    156        4 ( 139/1219- 214/1339) -21.3 E86-E62 N31-N38
      5  293 1121 (N24E51 L=322)   500     75        3 ( 276/1082- 314/1167) -63.4 E52-E48 N21-N27
      6  220  994 (N17E59 L=313)   586    157        1 ( 180/ 934- 252/1022) -45.0 E64-E56 N13-N19
      7  392  913 (N11E43 L=329)   345     97        0 ( 358/ 881- 441/ 935)   8.1 E46-E39 N09-N11
      8  157  866 (N10E71 L=302)   761    100        4 ( 127/ 820- 190/ 917)  36.9 E77-E64 N06-N12
      9  356  597 (S08E56 L=317)  1189    156        1 ( 311/ 523- 391/ 660) -90.0 E59-E53 S13-S03
     10  601  626 (S09E35 L=338)   456     78        2 ( 573/ 591- 632/ 658)  45.0 E37-E32 S11-S07
     11  431  533 (S13E52 L=321)   549    125        1 ( 411/ 484- 460/ 584)  74.1 E54-E48 S16-S09
     12  612  493 (S18E39 L=334)  1188    362        4 ( 487/ 431- 728/ 578) -42.7 E45-E30 S23-S11
     13  949  526 (S22E15 L=357)   330    138        0 ( 914/ 504-1005/ 571) -63.4 E17-E12 S24-S18
     14 1584  498 (S40W30 L= 43)   583     82        0 (1555/ 475-1608/ 531) -51.3 W27-W33 S42-S37
     15 1273  413 (S37W03 L= 16)   294     55        0 (1254/ 387-1297/ 447)  53.1 W01-W05 S39-S35
  

    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