Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1229 1778 (N51W42 L=173)  1370    183        3 (1156/1738-1310/1808)   2.6 W31-W53 N47-N52
      2 1442 1660 (N37W49 L=181)   516     58        1 (1412/1630-1477/1678) -21.8 W45-W53 N35-N38
      3 1697 1451 (N18W58 L=190)   546    116        0 (1644/1417-1743/1471) -40.6 W54-W61 N14-N20
      4 1349 1436 (N25W30 L=161)   247     91        0 (1302/1411-1388/1457)   7.1 W25-W33 N24-N25
      5 1762 1353 (N11W60 L=191)  1481    232        3 (1664/1297-1819/1421)   5.2 W48-W70 N08-N14
      6 1520 1249 (N11W36 L=167)   754    201        1 (1430/1215-1594/1286) -15.3 W30-W42 N08-N14
      7  457 1103 (N19E36 L= 95)   677    224        2 ( 434/1012- 499/1210) -77.0 E38-E33 N13-N26
      8 1887 1065 (S09W65 L=197)  4184    358       12 (1827/ 980-1947/1154)  21.3 W57-W82 S14-S03
      9  934 1088 (N12E04 L=127)   346    127        1 ( 912/1025- 954/1149)  60.3 E06-E02 N08-N15
     10 1570 1075 (S00W35 L=167)   632    187        3 (1473/1041-1640/1093)  -9.5 W28-W40 S02-N02
     11 1717 1028 (S07W46 L=177)   403     65        2 (1687/1000-1739/1059) -90.0 W43-W47 S08-S04
     12 1597  921 (S10W35 L=166)  1008    183        6 (1533/ 877-1665/ 971)   5.2 W29-W40 S13-S08
     13 1663  837 (S17W39 L=170)   740    254        2 (1583/ 756-1712/ 920)  36.0 W32-W43 S20-S12
     14  295  833 (N04E54 L= 78)   452    136        0 ( 255/ 780- 337/ 877) -49.4 E57-E50 N00-N07
     15  960  717 (S11E09 L=122)   633    138        1 ( 931/ 658-1006/ 784)  54.5 E11-E05 S14-S07
     16  603  640 (S11E33 L= 98)  1816    420        6 ( 449/ 546- 757/ 741) -43.3 E42-E25 S18-S02
     17  887  694 (S11E14 L=118)   284     98        2 ( 862/ 659- 926/ 719) -63.4 E15-E12 S13-S09
     18 1511  628 (S27W26 L=157)   275     88        1 (1467/ 600-1546/ 660)   9.5 W22-W28 S28-S25
     19  502  615 (S11E42 L= 90)   467     89        3 ( 454/ 587- 541/ 641) -38.7 E44-E38 S12-S08
     20  753  473 (S24E28 L=103)   491    108        2 ( 735/ 419- 777/ 524)  54.5 E31-E25 S27-S20
     21  912  395 (S32E20 L=111)   936    217        1 ( 839/ 360-1002/ 460)  19.7 E26-E11 S33-S28
     22  496  388 (S27E54 L= 78)  1099     88        1 ( 459/ 346- 536/ 437)  74.1 E57-E49 S30-S22
     23 1267  297 (S48W04 L=135)   881    187        2 (1199/ 242-1333/ 362)  28.3 E03-W10 S52-S43
  

    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