Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1891 (N61W47 L= 33)   451     84        0 ( 951/1858-1022/1916)   3.4 W37-W56 N60-N62
      2  661 1709 (N60E04 L=341)   337     37        0 ( 633/1696- 689/1721)  -8.1 E08-E01 N58-N61
      3 1241 1701 (N38W40 L= 26)   296     67        0 (1205/1690-1279/1713) -36.9 W37-W42 N36-N39
      4  554 1668 (N61E19 L=327)   330     40        1 ( 531/1650- 580/1684) -15.9 E22-E15 N59-N63
      5 1669 1616 (N18W67 L= 53)   760     63        1 (1639/1590-1699/1639)  -5.7 W63-W73 N16-N19
      6 1602 1593 (N20W58 L= 44)  1149    127        2 (1539/1560-1665/1630) -49.4 W54-W62 N16-N23
      7 1727 1566 (N14W69 L= 55)   629     61        0 (1707/1534-1750/1600)  68.2 W66-W71 N11-N16
      8 1769 1463 (N07W65 L= 51)  4956    306        9 (1709/1340-1824/1593)  43.0 W58-W78 N00-N14
      9 1172 1549 (N31W26 L= 12)   447    125        0 (1110/1519-1225/1590)   0.0 W20-W31 N30-N32
     10 1275 1456 (N23W28 L= 14)   435    148        0 (1212/1434-1349/1496)  -5.2 W23-W34 N21-N24
     11  695 1454 (N40E09 L=337)   609    131        0 ( 631/1430- 755/1472) -16.7 E14-E04 N36-N41
     12  298 1358 (N44E49 L=297)  1106    155        1 ( 256/1307- 350/1426) -45.0 E55-E41 N39-N48
     13 1250 1306 (N15W20 L=  6)   250    102        0 (1235/1253-1268/1350)  59.0 W19-W22 N12-N17
     14 1840 1283 (S04W63 L= 49)  1470    126        1 (1779/1242-1886/1328)   0.0 W54-W71 S05-N00
     15  838 1222 (N22E05 L=340)   646    242        0 ( 780/1148- 917/1260) -20.6 E10-E01 N17-N24
     16 1685 1164 (S05W43 L= 29)   581    148        0 (1659/1086-1720/1224)  36.9 W40-W48 S08-S02
     17  886 1111 (N15E05 L=340)   359    112        0 ( 861/1058- 914/1162)  38.7 E08-E02 N12-N16
     18 1141  622 (S19E04 L=342)   675    201        1 (1084/ 524-1179/ 708)  38.7 E10-W00 S23-S14
     19  592  585 (S08E38 L=308)   950    204        1 ( 564/ 496- 619/ 698)  47.7 E42-E32 S12-S01
     20 1707  541 (S45W37 L= 23)  1552    213        2 (1613/ 481-1794/ 599)   0.0 W26-W49 S46-S41
     21  768  248 (S34E45 L=301)  2174    307        2 ( 640/ 166- 878/ 327)   9.0 E69-E31 S38-S30
  

    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