Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  887 1855 (N57E36 L= 85)   645     79        1 ( 843/1838- 935/1868)   5.2 E41-E30 N55-N58
      2  785 1701 (N41E32 L= 89)   303     44        0 ( 757/1688- 818/1716)   0.0 E34-E28 N39-N42
      3  676 1630 (N34E37 L= 84)   393    102        0 ( 641/1589- 708/1670) -24.0 E41-E32 N31-N36
      4  955 1629 (N38E15 L=106)   596    143        1 ( 898/1600-1034/1646)  10.3 E19-E08 N35-N39
      5 1438 1404 (N29W23 L=144)  2157    449        3 (1229/1327-1617/1467)  -5.5 W07-W38 N26-N31
      6 1632 1142 (N15W39 L=160)   275     62        0 (1621/1103-1654/1168)  76.0 W37-W40 N12-N16
      7  194 1077 (S07E62 L= 59)   947    221        0 ( 167/ 981- 237/1165)  70.0 E64-E58 S12-S01
      8  415 1112 (S02E41 L= 80)   325     79        1 ( 393/1072- 434/1151)  76.0 E41-E39 S04-N00
      9  638 1068 (S02E24 L= 96)   418    123        1 ( 586/1026- 682/1107)  33.7 E27-E21 S04-N00
     10 1884  948 (N06W66 L=187)   547    110        0 (1869/ 887-1895/1000) -54.5 W63-W69 N02-N09
     11 1695  696 (S11W51 L=172)   683    137        0 (1645/ 641-1741/ 756)  63.4 W48-W54 S14-S06
     12 1689  517 (S22W60 L=181)  2346    418        2 (1513/ 466-1810/ 640)  28.4 W44-W70 S27-S13
     13  860  479 (S37E04 L=117)   323     80        0 ( 822/ 461- 896/ 497)  31.0 E06-W00 S38-S34
  

    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