Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  498 1538 (N51E32 L=246)   327     55        1 ( 478/1512- 520/1559)  56.3 E34-E29 N48-N52
      2 1204 1534 (N33W26 L=303)  2058    600        2 ( 953/1504-1489/1556) -18.9 W07-W45 N24-N38
      3 1540 1450 (N19W45 L=323)   421     75        1 (1507/1418-1578/1481) -53.1 W42-W46 N16-N21
      4 1708 1386 (N10W56 L=334)   340     67        1 (1675/1366-1744/1398)  -8.1 W52-W59 N09-N11
      5 1242 1208 (N13W17 L=295)   378    162        2 (1167/1158-1298/1247) -49.4 W13-W19 N08-N16
      6  336 1168 (N28E46 L=232)   339    106        0 ( 323/1118- 349/1215)  80.5 E47-E44 N25-N31
      7 1916 1165 (S09W72 L=350)   828     52        3 (1898/1142-1938/1199) -76.0 W68-W77 S10-S06
      8  854 1096 (N15E09 L=269)   779    238        2 ( 826/ 970- 882/1186)  85.6 E10-E05 N07-N20
      9  368 1040 (N20E44 L=234)   640    151        1 ( 336/ 991- 436/1088) -41.2 E46-E38 N16-N23
     10 1850 1063 (S12W59 L=336)   412     76        0 (1826/1036-1878/1086)   7.1 W55-W63 S12-S10
     11 1789  795 (S26W49 L=327)  1523    224        4 (1717/ 692-1849/ 881)  26.6 W41-W56 S31-S21
     12  447  708 (S01E44 L=234)   952    222        2 ( 410/ 607- 512/ 765)  30.3 E49-E37 S06-N02
     13  354  573 (S08E57 L=221)  3978    332       10 ( 258/ 447- 469/ 668) -66.4 E68-E49 S17-S01
     14  394  457 (S16E60 L=217)  2353    164        3 ( 354/ 378- 434/ 522)  45.0 E70-E55 S21-S11
     15 1324  409 (S39W05 L=283)   312     63        0 (1299/ 376-1351/ 436)  45.0 W03-W07 S41-S37
  

    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