Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1113 1668 (N38E14 L=300)  1263    220        2 (1052/1577-1169/1755) -35.5 E21-E06 N32-N43
      2 1591 1662 (N57W30 L=344)  1104    104        1 (1544/1633-1647/1684)  26.6 W22-W44 N51-N63
      3  845 1548 (N22E26 L=288)  1158    368        3 ( 746/1395- 927/1680) -29.5 E38-E15 N14-N28
      4 1557 1079 (N13W30 L=344)   280    126        0 (1534/1030-1580/1136) -33.7 W27-W33 N11-N16
      5  287  934 (S27E49 L=265)  1543    320        2 ( 209/ 817- 401/1012)  35.0 E59-E38 S35-S20
      6  141  877 (S33E72 L=242)   962     87        2 ( 114/ 848- 162/ 910) -20.6 E79-E67 S35-S30
      7  955  791 (S19W02 L=316)   270     90        0 ( 925/ 770-1002/ 823) -11.3 W00-W05 S19-S17
      8  715  680 (S32E10 L=304)   893    304        4 ( 584/ 662- 865/ 709)  25.3 E19-W00 S35-S26
      9 1217  506 (S28W28 L=342)   846    166        1 (1173/ 436-1249/ 581) -68.2 W25-W30 S33-S23
     10 1537  448 (S22W54 L=  8)   547    132        0 (1511/ 397-1568/ 499) -60.3 W52-W56 S25-S18
     11  562  360 (S62E19 L=294)  1794    240        2 ( 484/ 293- 651/ 438) -20.0 E32-E05 S65-S56
     12 1362  394 (S30W44 L=358)   956    283        1 (1235/ 355-1462/ 434)  14.0 W34-W54 S33-S28
     13  841  269 (S58W17 L=331)   448     69        0 ( 807/ 244- 876/ 294)   0.0 W12-W22 S59-S56
  

    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