Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1740 1515 (N32W61 L=107)   917    146        2 (1708/1491-1774/1539)   7.1 W56-W64 N30-N33
      2  385 1487 (N33E51 L=356)   981    264        2 ( 333/1443- 451/1535) -23.2 E57-E43 N30-N36
      3 1559 1512 (N33W43 L= 89)   444     47        2 (1530/1486-1583/1533) -56.3 W40-W45 N31-N34
      4 1116 1359 (N25W07 L= 53)   287     94        0 (1074/1331-1166/1382) -26.6 W04-W10 N22-N26
      5 1758 1265 (N16W55 L=101)   383     77        0 (1735/1224-1779/1302) -68.2 W53-W56 N13-N18
      6 1628 1221 (N14W42 L= 88)   534    167        1 (1587/1127-1667/1289) -73.3 W39-W44 N08-N18
      7  254 1221 (N15E57 L=349)  1059    194        1 ( 226/1131- 279/1286) -52.1 E61-E53 N10-N19
      8 1842 1250 (N14W64 L=110)   475     73        1 (1814/1219-1860/1270) -36.9 W60-W66 N12-N15
      9  905 1177 (N13E07 L= 39)   287     83        0 ( 860/1144- 944/1211) -33.7 E10-E04 N11-N15
     10 1308  972 (N00W18 L= 64)   273     95        0 (1259/ 948-1355/ 995)   9.5 W14-W20 S01-N01
     11  521  635 (S21E36 L= 10)   280     55        1 ( 507/ 606- 542/ 663) -90.0 E36-E34 S22-S18
     12 1187  570 (S26W10 L= 56)   257     64        0 (1148/ 558-1226/ 585)  -9.5 W07-W13 S26-S24
     13  407  547 (S27E48 L=358)   733    127        0 ( 373/ 518- 449/ 569)  20.6 E51-E43 S29-S25
  

    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