Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1155 1551 (N38W14 L=298)   834    248        0 (1046/1485-1247/1608)  21.3 W05-W23 N33-N41
      2  388 1572 (N43E57 L=227)   489     76        1 ( 346/1557- 429/1589)  10.3 E63-E52 N42-N44
      3 1716 1453 (N25W59 L=343)   403     61        0 (1685/1440-1753/1465) -14.0 W55-W63 N23-N25
      4  860 1253 (N20E09 L=275)   322     85        0 ( 819/1228- 899/1279) -31.0 E11-E06 N18-N21
      5  509 1218 (N19E34 L=250)   287     64        2 ( 475/1187- 536/1242) -21.8 E36-E31 N17-N20
      6 1404 1173 (N11W25 L=309)   839    283        1 (1292/1088-1484/1220) -30.3 W17-W29 N05-N14
      7  186 1062 (N10E63 L=220)   994    161        2 ( 167/ 991- 206/1141) -66.0 E66-E60 N05-N14
      8  319 1093 (N12E49 L=235)   519    118        2 ( 275/1050- 359/1138) -32.0 E53-E45 N09-N14
      9 1084 1006 (N04W03 L=287)   869    248        1 (1039/ 896-1114/1124) -81.3 W01-W04 S03-N10
     10  742 1067 (N09E17 L=267)   307     99        1 ( 723/1024- 785/1099)  53.1 E18-E14 N06-N10
     11 1825 1001 (S04W58 L=341)   591    117        0 (1773/ 969-1863/1044)  15.3 W51-W62 S05-S01
     12 1829  855 (S13W59 L=342)   489     89        1 (1813/ 811-1861/ 883)  38.7 W56-W62 S15-S11
     13  215  746 (S10E64 L=220)  2069    316        3 ( 187/ 624- 238/ 879)  60.6 E74-E59 S17-S01
     14  587  646 (S16E32 L=252)   303     49        0 ( 556/ 628- 613/ 670)  11.3 E34-E29 S17-S14
     15  549  599 (S19E36 L=248)   479     74        1 ( 522/ 562- 586/ 636) -53.1 E37-E33 S21-S16
     16  885  520 (S26E13 L=271)   547    156        0 ( 845/ 458- 941/ 567)  41.2 E16-E08 S30-S23
     17 1476  500 (S33W30 L=314)   333     42        0 (1457/ 474-1495/ 524)  71.6 W28-W31 S34-S31
     18 1431  362 (S44W30 L=313)  3212    284        8 (1319/ 294-1549/ 427)  18.4 W19-W41 S49-S38
     19 1206  356 (S42W09 L=293)   324     29        1 (1189/ 331-1228/ 378) -63.4 W07-W10 S43-S39
     20  855  260 (S47E23 L=261)  3753    497        6 ( 657/ 199-1089/ 328)   8.9 E52-W00 S53-S42
  

    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