Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1531 1624 (N23W53 L= 74)   335     63        0 (1515/1602-1550/1657)  76.0 W51-W54 N21-N25
      2 1354 1427 (N18W31 L= 52)   733    208        1 (1259/1406-1464/1447) -32.5 W25-W37 N14-N21
      3 1761 1368 (N02W59 L= 80)   519    140        0 (1729/1332-1797/1401)   5.7 W54-W64 N01-N03
      4 1689 1317 (N02W50 L= 71)   341     64        1 (1671/1282-1708/1341)  56.3 W47-W51 N00-N03
      5 1419 1085 (S02W24 L= 45)   401    140        0 (1398/1025-1451/1153)  63.4 W22-W26 S05-N01
      6 1534 1001 (S10W28 L= 50)   503    236        3 (1451/ 970-1628/1046) -17.1 W23-W36 S11-S05
      7 1771  963 (S20W45 L= 66)   533    118        1 (1740/ 923-1805/1008)  15.9 W41-W49 S21-S17
      8 1892  873 (S30W56 L= 78)  1673    295        1 (1826/ 816-1944/ 971)  28.6 W48-W64 S32-S25
      9 1590  816 (S22W28 L= 49)   910    237        1 (1560/ 729-1623/ 946)  59.7 W25-W33 S27-S15
     10  646  801 (N03E27 L=354)   308     88        1 ( 614/ 753- 676/ 838)  26.6 E30-E24 N00-N05
     11  531  744 (N03E37 L=344)   348     97        0 ( 488/ 726- 581/ 773) -38.7 E38-E33 N00-N05
     12 1255  723 (S17W05 L= 26)   208     48        1 (1229/ 696-1270/ 750)  71.6 W03-W05 S18-S15
     13  374  475 (S10E61 L=320)   854    154        2 ( 348/ 433- 398/ 523)  35.5 E65-E57 S12-S06
  

    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