Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  955 1798 (N53E23 L=197)   379     76        2 ( 931/1775- 990/1816)  -8.1 E26-E19 N51-N55
      2 1298 1461 (N32W13 L=234)   292     78        1 (1269/1433-1339/1484)  45.0 W10-W16 N29-N33
      3 1405 1418 (N30W21 L=242)   473     74        1 (1363/1374-1444/1454) -23.2 W17-W24 N27-N32
      4  407 1394 (N15E48 L=172)   352    124        0 ( 397/1344- 422/1445) -56.3 E50-E46 N12-N18
      5 1129 1396 (N25W02 L=223)   231     82        0 (1112/1356-1148/1441)  80.5 W00-W02 N22-N28
      6  242 1171 (S01E59 L=162)   443     79        1 ( 222/1131- 263/1206)  90.0 E61-E55 S03-N01
      7 1732  899 (N02W50 L=271)  5119    988        8 (1633/ 555-1819/1187) -79.8 W39-W61 S19-N20
      8  220  867 (S20E58 L=163)  3567    535       12 ( 161/ 718- 276/1005)  21.9 E64-E51 S29-S10
      9 1472  724 (S12W33 L=254)  1372    358        5 (1350/ 647-1587/ 804)  31.0 W26-W41 S18-S06
     10  669  762 (S20E20 L=201)   346    137        0 ( 611/ 736- 735/ 799)   0.0 E23-E15 S21-S18
     11 1151  769 (S13W11 L=232)   208     89        0 (1112/ 750-1205/ 783)  21.8 W08-W14 S14-S11
     12 1502  657 (S16W37 L=258)   695    153        2 (1447/ 618-1571/ 688)  35.5 W32-W41 S18-S13
     13  963  568 (S29W02 L=223)   406     76        2 ( 935/ 530-1001/ 601)  53.1 W00-W04 S31-S26
     14 1338  536 (S26W29 L=249)   258     91        1 (1319/ 510-1370/ 571) -36.9 W26-W31 S27-S23
     15 1487  423 (S32W45 L=265)   520    103        2 (1451/ 407-1526/ 449)   0.0 W41-W48 S33-S29
  

    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