Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  657 1746 (N27E48 L=115)   526     62        0 ( 634/1708- 683/1784) -63.4 E50-E45 N23-N29
      2 1008 1704 (N33E22 L=141)   534    100        0 ( 967/1670-1048/1737) -14.0 E25-E17 N31-N34
      3  379 1521 (N07E56 L=106)  1562    284        2 ( 272/1479- 495/1557)  21.3 E66-E47 N03-N10
      4  782 1376 (N06E23 L=140)   317     93        1 ( 745/1338- 816/1424)  80.5 E24-E21 N03-N09
      5  317 1390 (S02E56 L=107)   411     82        0 ( 277/1371- 351/1408)   0.0 E59-E52 S03-N00
      6 1616 1356 (N29W28 L=191)   410    100        0 (1584/1301-1645/1397) -38.7 W25-W31 N26-N30
      7  373 1295 (S07E48 L=115)   331     68        0 ( 351/1269- 399/1326) -21.8 E50-E44 S07-S05
      8  224 1273 (S10E62 L=101)   631    119        1 ( 207/1214- 251/1318)  71.6 E63-E59 S13-S07
      9 1385 1215 (N13W15 L=178)   198     93        0 (1357/1191-1421/1234)  14.0 W13-W17 N11-N14
     10  363 1177 (S13E45 L=117)   477     97        1 ( 324/1138- 400/1215)  59.0 E48-E42 S16-S10
     11  443 1149 (S14E38 L=124)   450    131        0 ( 412/1108- 503/1176)  45.0 E40-E34 S16-S11
     12  106 1124 (S20E76 L= 87)   651     74        1 (  85/1096- 133/1149)  20.6 E81-E70 S21-S18
     13  570  812 (S30E23 L=140)   259     50        1 ( 544/ 792- 599/ 837)  14.0 E24-E20 S31-S28
     14 1339  756 (S13W25 L=188)  1179    388        1 (1151/ 726-1499/ 796)  32.3 W15-W34 S19-S07
  

    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