Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  625 1625 (N46E32 L=305)   333     69        0 ( 589/1604- 667/1640)   8.1 E35-E28 N44-N46
      2 1317 1621 (N42W28 L=  6)   670    172        1 (1231/1599-1389/1637)  -8.7 W20-W33 N40-N43
      3  550 1503 (N37E35 L=303)  1925    370        7 ( 441/1414- 651/1553) -21.8 E45-E25 N30-N40
      4 1638 1441 (N27W48 L= 26)   343     46        0 (1611/1426-1667/1459) -26.6 W46-W50 N25-N27
      5  958 1374 (N27E03 L=335)  1011    321        3 ( 789/1320-1098/1419) -19.3 E14-W06 N22-N30
      6 1226 1241 (N17W14 L=352)   834    149        2 (1166/1170-1281/1304) -53.1 W10-W17 N12-N21
      7 1830 1249 (N13W63 L= 41)   992    208        1 (1771/1184-1884/1295) -30.3 W56-W69 N07-N15
      8  508 1196 (N16E34 L=304)   382    151        0 ( 485/1116- 536/1262) -71.6 E36-E31 N11-N20
      9  766 1067 (N08E16 L=322)   204     63        0 ( 735/1039- 795/1098)  36.9 E18-E14 N06-N09
     10 1639  879 (S08W41 L= 18)   883    205        1 (1578/ 823-1711/ 945) -36.0 W35-W47 S12-S03
     11  292  912 (S01E52 L=286)   518     96        1 ( 255/ 887- 325/ 944)  18.4 E56-E48 S02-N00
     12 1231  786 (S11W12 L=350)   303     86        1 (1205/ 745-1257/ 830)  59.0 W10-W13 S13-S08
     13 1347  551 (S28W20 L=358)  2396    491        5 (1160/ 439-1524/ 715)  31.0 W07-W32 S35-S17
     14 1066  623 (S21W01 L=339)   583    138        1 ( 995/ 577-1121/ 671)  35.5 E03-W04 S23-S18
  

    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