Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1381 1756 (N57W30 L= 18)   409     73        0 (1341/1740-1415/1772)  18.4 W23-W35 N54-N58
      2  543 1662 (N38E49 L=299)  2759    267        5 ( 448/1567- 634/1756) -14.7 E79-E36 N32-N44
      3  802 1585 (N35E23 L=326)  1610    278        2 ( 678/1542- 929/1615)   5.7 E32-E12 N31-N38
      4 1029 1470 (N30E04 L=344)   393    137        0 ( 997/1403-1057/1526) -58.0 E06-E01 N25-N33
      5  730 1402 (N22E23 L=325)   502    177        0 ( 706/1330- 769/1477) -60.9 E26-E19 N18-N27
      6 1482 1380 (N27W29 L= 17)   249     93        0 (1435/1354-1517/1398)  -9.5 W25-W31 N25-N28
      7 1639 1176 (N15W40 L= 29)   480    133        0 (1584/1156-1705/1205)   0.0 W36-W46 N14-N16
      8 1354  998 (N03W20 L=  9)   282     73        2 (1313/ 975-1396/1024)  18.4 W17-W23 N01-N04
      9 1630  969 (N03W40 L= 28)   430    116        0 (1588/ 927-1684/ 991)  29.7 W37-W44 N00-N04
     10  266  864 (S15E54 L=295)   754    188        1 ( 211/ 816- 314/ 915)  20.0 E59-E48 S17-S11
     11  380  826 (S16E43 L=306)   367     70        1 ( 363/ 800- 405/ 867) -63.4 E44-E40 S17-S13
     12  904  721 (S18E05 L=343)   291    108        0 ( 854/ 708- 961/ 738)  15.9 E08-E01 S19-S16
     13  621  576 (S30E25 L=323)   729    156        1 ( 555/ 540- 704/ 603)  26.6 E30-E18 S33-S27
     14  506  494 (S38E37 L=311)   525     80        2 ( 473/ 464- 535/ 537)  63.4 E40-E34 S40-S34
  

    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