Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1399 1743 (N53W42 L=216)   577     67        0 (1373/1716-1430/1766)  14.0 W36-W48 N51-N55
      2  983 1731 (N53E04 L=169)   306     46        0 ( 965/1708-1005/1753)  59.0 E06-E02 N50-N55
      3  862 1731 (N53E17 L=157)   349     57        1 ( 835/1708- 893/1746)  36.9 E19-E13 N50-N54
      4  691 1555 (N38E27 L=147)   603    174        1 ( 618/1504- 755/1583) -19.7 E34-E20 N34-N40
      5 1734 1549 (N36W70 L=243)   736     56        0 (1709/1528-1765/1565)   4.1 W64-W78 N34-N36
      6  870 1491 (N34E12 L=162)   451    116        0 ( 822/1465- 928/1515)  23.2 E15-E07 N31-N35
      7 1072 1461 (N32W03 L=177)   247     41        0 (1045/1445-1103/1478) -26.6 W01-W05 N30-N32
      8  378 1278 (N18E47 L=127)   455    127        0 ( 339/1243- 433/1302)  20.6 E50-E41 N15-N19
      9  382 1138 (N10E44 L=129)   334     42        1 ( 361/1118- 404/1165)  56.3 E46-E42 N08-N11
     10 1246  673 (S19W15 L=188)   419    173        0 (1164/ 656-1326/ 692)   5.7 W09-W19 S19-S17
     11  675  483 (S32E26 L=147)  3134    512        5 ( 515/ 339- 851/ 660)  33.3 E49-E11 S45-S19
     12  404  550 (S28E49 L=125)  1414    306        0 ( 355/ 424- 496/ 655)  31.0 E67-E37 S38-S20
     13 1410  414 (S38W32 L=205)   385     53        0 (1380/ 388-1436/ 442)  63.4 W29-W33 S39-S35
     14 1441  323 (S46W40 L=214)   560     61        1 (1418/ 294-1456/ 360) -41.2 W37-W45 S49-S42
     15 1495  299 (S49W50 L=224)   535     40        1 (1475/ 281-1520/ 323) -18.4 W45-W57 S50-S46
  

    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