Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  938 1542 (N26E10 L=197)   765    252        0 ( 838/1469-1028/1594) -17.1 E16-E03 N22-N29
      2  281 1373 (N13E55 L=151)  3358    368        6 ( 210/1235- 374/1541) -46.5 E67-E44 N04-N24
      3  526 1437 (N17E36 L=171)   747    211        0 ( 454/1362- 581/1518)  63.4 E39-E33 N12-N22
      4  450 1420 (N16E41 L=165)   453     51        2 ( 421/1388- 484/1448)  -9.5 E44-E38 N14-N17
      5  364 1409 (N15E48 L=158)   696     86        3 ( 329/1375- 396/1447)  63.4 E51-E45 N13-N17
      6 1421 1283 (N14W23 L=229)   706    278        1 (1278/1257-1522/1309)  14.0 W13-W29 N10-N16
      7  220 1092 (S04E56 L=150)   479     89        2 ( 191/1060- 262/1124)  38.7 E59-E52 S06-S02
      8  613 1042 (S06E25 L=181)   296     99        1 ( 586/1004- 633/1083) -59.0 E27-E23 S08-S03
      9  197  974 (S11E59 L=148)   857    199        1 ( 168/ 896- 260/1058)  45.0 E62-E52 S15-S06
     10  529  975 (S10E31 L=176)   260     54        1 ( 509/ 948- 556/ 998)  71.6 E31-E28 S12-S09
     11  383  893 (S16E42 L=165)  1574    307        2 ( 311/ 808- 455/ 948) -41.2 E47-E35 S20-S12
     12  606  918 (S13E25 L=181)   217     38        0 ( 585/ 896- 624/ 947)  56.3 E26-E24 S14-S11
     13  196  854 (S18E61 L=146)  2001    194        3 ( 144/ 787- 269/ 911)  29.7 E68-E52 S22-S14
     14  529  837 (S19E31 L=176)   376    104        1 ( 495/ 804- 582/ 874) -33.7 E33-E26 S20-S16
     15  293  804 (S21E51 L=156)   311     67        1 ( 262/ 774- 318/ 838)  26.6 E54-E47 S23-S19
     16  209  677 (S29E65 L=141)   667     57        2 ( 189/ 639- 228/ 713)  51.3 E68-E62 S31-S26
     17 1331  512 (S34W27 L=233)   465    122        1 (1267/ 488-1385/ 537)  -5.7 W21-W31 S34-S32
     18  953  449 (S42E00 L=206)   327    105        1 ( 900/ 433-1009/ 463)  23.2 E04-W03 S42-S39
     19 1411  241 (S52W53 L=259)  1392    196        2 (1327/ 221-1505/ 265)   2.0 W41-W69 S54-S49
  

    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