Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  519 1534 (N26E38 L=  0)  1779    377        4 ( 411/1461- 632/1599) -20.9 E48-E27 N21-N31
      2 1074 1467 (N23W01 L= 40)   374     67        1 (1027/1440-1115/1487) -14.0 E01-W03 N21-N24
      3 1300 1431 (N22W16 L= 54)   283     54        1 (1273/1407-1338/1454) -14.0 W14-W18 N20-N23
      4  305 1400 (N17E53 L=345)   353     63        1 ( 280/1384- 328/1423)  14.0 E55-E50 N16-N18
      5 1089 1205 (N07W03 L= 41)   498    170        0 (1030/1158-1169/1273) -35.5 W00-W08 N04-N10
      6 1812 1151 (N08W55 L= 93)   518     81        0 (1795/1116-1834/1190)  63.4 W52-W56 N06-N10
      7  792 1132 (N01E14 L= 24)   262    104        0 ( 744/1103- 847/1152)  18.4 E17-E11 N00-N02
      8 1860 1035 (N02W60 L= 98)  1487    404        4 (1778/ 935-1937/1129)  40.6 W52-W71 S04-N08
      9  689  964 (S09E20 L= 18)   197     80        0 ( 646/ 939- 729/ 990)  31.0 E23-E17 S10-S07
     10  282  934 (S11E51 L=348)   418     69        2 ( 260/ 896- 298/ 981) -90.0 E52-E49 S13-S08
     11 1837  919 (S05W59 L= 97)  1302    203        3 (1796/ 856-1890/ 969)  41.6 W54-W64 S09-S01
     12 1438  867 (S12W27 L= 65)   275     51        0 (1417/ 831-1454/ 902) -63.4 W24-W27 S13-S09
     13 1857  791 (S13W63 L=102)  3845    594       11 (1778/ 698-1934/ 888)  90.0 W53-W75 S18-S06
     14  196  854 (S16E60 L=338)   577    138        1 ( 166/ 816- 237/ 887)  24.0 E64-E55 S17-S13
     15 1645  673 (S22W45 L= 83)  1644    352        4 (1586/ 556-1684/ 816) -60.6 W37-W49 S29-S13
     16  790  602 (S31E14 L= 24)  2378    582        4 ( 552/ 449-1012/ 750)  31.4 E36-W00 S42-S20
     17  532  654 (S28E33 L=  5)   742    226        0 ( 463/ 593- 604/ 736)  31.6 E39-E26 S32-S22
     18 1848  657 (S20W66 L=104)  1294    279        2 (1801/ 629-1895/ 694)  18.4 W60-W72 S22-S17
     19  283  591 (S32E56 L=342)  1461    269        4 ( 216/ 538- 334/ 633) -45.0 E64-E51 S35-S29
     20 1179  462 (S39W15 L= 53)   465     98        0 (1138/ 429-1221/ 507)  50.2 W12-W17 S41-S35
     21 1627  443 (S37W52 L= 90)   900     75        0 (1589/ 411-1658/ 480)  71.6 W49-W54 S39-S33
  

    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