Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1250 1598 (N37E02 L=301)  1037    183        0 (1199/1519-1295/1668) -45.0 E07-W02 N32-N41
      2  968 1508 (N23E17 L=287)  1185    434        3 ( 839/1352-1074/1661) -26.6 E31-E05 N15-N29
      3 1641 1622 (N55W37 L=340)   756     61        1 (1615/1591-1674/1647)  29.7 W31-W46 N51-N59
      4 1618 1103 (N16W34 L=338)   299     73        0 (1589/1067-1641/1135) -31.0 W31-W36 N14-N18
      5  392  894 (S27E39 L=265)  1340    348        0 ( 298/ 773- 523/ 961)  41.6 E47-E28 S36-S20
      6  194  858 (S33E62 L=241)   875    127        3 ( 170/ 810- 226/ 895)  68.2 E65-E57 S36-S31
      7  881  623 (S31W02 L=306)  1084    294        0 ( 737/ 605-1007/ 649)  29.4 E07-W09 S35-S25
      8 1125  572 (S27W19 L=323)   368     55        1 (1104/ 539-1154/ 601) -78.7 W17-W20 S29-S24
      9 1335  462 (S27W38 L=341)  1005    165        2 (1288/ 376-1370/ 528) -65.6 W34-W41 S33-S22
     10  645  326 (S62E08 L=295)  1540    253        2 ( 557/ 260- 744/ 401) -10.5 E20-W07 S64-S56
     11 1433  353 (S31W53 L=357)  1070    268        0 (1336/ 314-1525/ 391)  15.5 W45-W63 S33-S27
     12  967  240 (S55W30 L=333)   436    106        0 ( 931/ 217- 989/ 288) -54.5 W24-W33 S58-S51
     13  900  220 (S60W27 L=331)   630     56        1 ( 874/ 190- 923/ 257) -26.6 W22-W34 S62-S56
  

    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