Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1368 1646 (N31W44 L=249)   634    189        1 (1294/1621-1451/1663) -20.0 W37-W49 N28-N33
      2 1732 1562 (N13W69 L=274)  1582    354        1 (1706/1502-1774/1600)   7.1 W63-W79 N10-N15
      3 1579 1520 (N17W51 L=256)   626    124        1 (1528/1471-1635/1567) -63.4 W48-W53 N12-N20
      4 1716 1420 (N07W58 L=263)   379     92        3 (1692/1391-1733/1448)  45.0 W54-W60 N05-N08
      5  914 1359 (N28W03 L=208)   376    133        0 ( 857/1340- 988/1376) -29.7 W00-W07 N25-N30
      6 1366 1333 (N14W29 L=234)  2234    621        5 (1076/1295-1615/1359) -25.9 W11-W44 N05-N21
      7  574 1157 (N25E24 L=181)   735    188        1 ( 539/1064- 600/1247) -90.0 E25-E22 N19-N31
      8 1833 1143 (S11W57 L=262)  1064    196        2 (1789/1047-1865/1200) -90.0 W54-W60 S16-S06
      9  956 1035 (N09E04 L=202)   276     96        0 ( 939/ 983- 973/1089)  51.3 E05-E01 N06-N11
     10 1625 1041 (S09W36 L=241)   435     98        2 (1585/1007-1656/1067) -59.0 W33-W37 S12-S07
     11 1719 1021 (S14W43 L=248)   369    120        2 (1677/ 989-1752/1057)   9.5 W38-W45 S16-S12
     12 1005  925 (N02E04 L=202)   550    152        0 ( 936/ 903-1083/ 962) -45.0 E06-W00 S01-N05
     13  216  925 (N19E58 L=147)   395     65        0 ( 204/ 888- 233/ 960) -90.0 E59-E56 N16-N21
     14 1269  863 (S09W09 L=215)   244     42        2 (1251/ 837-1290/ 892)  45.0 W07-W10 S10-S06
     15 1385  682 (S23W12 L=217)  1743    361        4 (1316/ 513-1429/ 840)  70.7 W05-W14 S33-S11
     16  361  509 (S08E61 L=145)  3333    570       11 ( 268/ 371- 478/ 689) -84.8 E67-E54 S18-N04
     17  386  586 (S03E54 L=151)   546    121        2 ( 363/ 532- 418/ 641)  66.8 E56-E51 S07-N00
     18 1191  499 (S28E05 L=200)   408    158        0 (1159/ 449-1239/ 572) -90.0 E06-E03 S33-S23
     19  567  442 (S16E46 L=159)   672    262        2 ( 546/ 348- 598/ 513)  54.0 E52-E41 S21-S10
     20  808  297 (S31E38 L=167)  1469    290        1 ( 721/ 253- 869/ 387)  16.4 E46-E29 S34-S26
  

    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