Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1402 1627 (N32W45 L= 81)   468     75        1 (1371/1606-1443/1654) -21.8 W41-W47 N29-N33
      2 1545 1539 (N22W50 L= 86)   670     88        1 (1509/1501-1582/1582) -59.0 W46-W52 N20-N25
      3 1784 1452 (N10W68 L=104)  1190    108        5 (1749/1403-1814/1493)   7.6 W60-W75 N07-N12
      4  958 1354 (N28W04 L= 40)   200     64        2 ( 937/1326- 981/1379)  33.7 W02-W05 N26-N29
      5 1777 1278 (N02W57 L= 93)  1202    192        1 (1744/1182-1805/1365)  73.3 W54-W59 S04-N06
      6 1306 1296 (N16W23 L= 60)   333    132        0 (1256/1246-1362/1324)   6.3 W18-W27 N14-N16
      7  892 1144 (N17E05 L= 31)   942    306        0 ( 750/1108-1005/1188) -23.2 E14-W00 N12-N20
      8  651 1135 (N21E20 L= 16)   458    141        1 ( 588/1109- 715/1167) -26.6 E24-E16 N19-N24
      9 1609  875 (S16W32 L= 69)  1611    463        0 (1464/ 771-1708/1050)  25.5 W21-W42 S19-S08
     10  898 1015 (N09E07 L= 29)   512    154        1 ( 857/ 972- 964/1046) -26.6 E10-E03 N07-N11
     11  509  867 (N08E35 L=  1)   692    214        1 ( 459/ 769- 540/ 954) -90.0 E36-E33 N02-N14
     12 1723  578 (S40W42 L= 78)  4962    559        1 (1494/ 420-1900/ 736)  10.1 W18-W71 S45-S34
     13  455  496 (S13E51 L=345)  2012    233        3 ( 426/ 395- 505/ 616)  51.8 E57-E46 S19-S05
     14 1294  313 (S46E01 L= 35)   638    122        1 (1230/ 292-1350/ 339)  -5.7 E06-W04 S47-S44
  

    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