Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  641 1742 (N57E38 L=274)   387     53        0 ( 615/1721- 672/1755)   8.1 E41-E34 N54-N57
      2  845 1526 (N38E10 L=301)   567    161        1 ( 776/1485- 923/1555)  15.3 E15-E04 N35-N39
      3 1639 1438 (N26W50 L=  2)   305     33        0 (1624/1415-1655/1464) -90.0 W48-W51 N23-N27
      4 1762 1378 (N20W60 L= 12)   969    148        0 (1727/1302-1813/1436) -78.7 W57-W63 N14-N24
      5 1800 1387 (N20W66 L= 18)   520     57        0 (1778/1358-1823/1412) -45.0 W63-W68 N18-N21
      6 1445 1381 (N24W32 L=343)   263     93        0 (1398/1367-1498/1393) -15.9 W28-W35 N22-N25
      7  239 1225 (N19E59 L=253)  1473    212        1 ( 204/1134- 276/1321)  80.5 E62-E56 N13-N25
      8  893 1116 (N11E08 L=304)   797    358        2 ( 790/1035-1018/1159)   8.1 E14-W00 N06-N13
      9  352 1055 (N09E46 L=266)   491    165        0 ( 326/ 991- 400/1087)  56.3 E48-E41 N04-N10
     10  626  892 (S02E26 L=286)  1777    443        1 ( 558/ 757- 759/1072) -59.9 E29-E17 S10-N09
     11 1480  934 (S04W28 L=340)   737    259        0 (1369/ 887-1562/1006)  12.1 W20-W34 S06-N00
     12  271  651 (S17E60 L=252)  1831    198        4 ( 224/ 587- 319/ 743) -63.4 E65-E56 S20-S10
     13  903  563 (S24E11 L=301)   481    201        0 ( 822/ 542-1001/ 590) -20.0 E15-E04 S25-S21
     14 1033  338 (S42E04 L=308)  2026    294        8 ( 946/ 247-1125/ 464)  45.0 E13-W03 S50-S31
     15  602  260 (S47E50 L=262)  1650    150        3 ( 523/ 239- 676/ 286)   8.9 E70-E38 S50-S44
  

    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