Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  951 1716 (N32E28 L=181)  1032    210        2 ( 896/1623-1006/1791) -27.9 E36-E19 N27-N36
      2  486 1640 (N15E56 L=153)  4036    488       11 ( 371/1518- 637/1726) -11.6 E71-E37 N10-N22
      3  654 1614 (N17E41 L=168)   737    202        2 ( 574/1583- 748/1649)  18.4 E47-E35 N15-N21
      4  893 1482 (N15E21 L=189)   260     91        0 ( 860/1444- 913/1522)  90.0 E21-E19 N12-N18
      5 1377 1399 (N25W10 L=219)   497    207        0 (1347/1309-1395/1483) -70.0 W06-W11 N18-N29
      6 1576 1386 (N31W24 L=233)   458     85        0 (1542/1344-1601/1425) -38.7 W21-W26 N28-N32
      7  869 1388 (N09E19 L=191)   320     88        1 ( 832/1356- 913/1420)  -9.5 E21-E15 N08-N10
      8  765 1365 (N05E24 L=185)   254     88        1 ( 743/1324- 790/1407) -80.5 E24-E23 N02-N08
      9  265 1336 (S07E61 L=148)   746    173        1 ( 234/1246- 300/1402) -84.3 E62-E59 S12-S02
     10 1859 1189 (N29W55 L=264)   692     96        0 (1839/1141-1878/1236) -33.7 W52-W58 N27-N32
     11  598 1148 (S11E28 L=181)   223     90        0 ( 554/1123- 629/1169)  11.3 E30-E25 S12-S09
     12  809  769 (S27E05 L=204)   572    143        1 ( 758/ 740- 877/ 810)   6.3 E09-W00 S28-S25
     13 1341  436 (S29W41 L=251)   452     74        2 (1302/ 414-1383/ 465)  15.9 W38-W45 S30-S27
  

    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