Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  732 1573 (N29E23 L=224)   353     87        1 ( 708/1525- 756/1613) -81.9 E24-E21 N25-N32
      2  601 1485 (N23E31 L=217)   676    172        0 ( 525/1454- 669/1503) -10.3 E36-E25 N20-N23
      3  410 1353 (N14E43 L=205)   402     68        0 ( 393/1314- 427/1395) -78.7 E44-E41 N11-N16
      4  980 1281 (N11E04 L=243)   437     95        0 ( 937/1241-1036/1327) -39.8 E06-W00 N08-N13
      5 1814 1214 (N12W55 L=302)  1937    287        2 (1727/1145-1902/1314) -28.1 W46-W65 N08-N18
      6 1411 1243 (N11W23 L=270)   610    219        0 (1308/1218-1508/1278) -13.0 W16-W29 N09-N12
      7  284 1032 (S06E50 L=197)  1247    230        4 ( 260/ 914- 322/1143)  81.3 E52-E46 S12-N01
      8 1950 1093 (N07W73 L=320)  1210    213       -1 (1929/1052-1973/1136) -78.7 W69-W78 N04-N09
      9  638 1058 (S04E24 L=223)   193     39        0 ( 603/1043- 661/1075)  18.4 E25-E22 S04-S02
     10  715  919 (S12E19 L=229)   209    110        0 ( 663/ 898- 762/ 956)  26.6 E21-E15 S13-S09
     11  942  783 (S19E04 L=243)  1139    283        0 ( 842/ 677-1093/ 862)  38.2 E10-W04 S26-S13
     12 1753  641 (S22W56 L=303)  4196    725        6 (1585/ 528-1877/ 779)  39.3 W43-W69 S30-S12
     13  776  556 (S34E16 L=232)   210     43        0 ( 751/ 537- 803/ 576) -26.6 E17-E13 S35-S33
     14  722  507 (S38E20 L=227)   316     85        0 ( 685/ 475- 758/ 538)  39.8 E23-E17 S40-S35
  

    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