Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1662 1510 (N21W59 L=136)   563     48        1 (1634/1488-1688/1538)   7.1 W55-W63 N19-N22
      2 1309 1209 (N12W21 L= 98)   256     93        0 (1269/1193-1352/1226) -11.3 W18-W23 N11-N13
      3  220 1152 (N26E60 L= 18)   629    102        2 ( 181/1118- 257/1188) -16.7 E66-E55 N23-N28
      4 1683  951 (S11W41 L=119)   294     42        1 (1669/ 923-1700/ 981) -90.0 W40-W42 S12-S09
      5 1797  937 (S15W52 L=130)   699     67        1 (1775/ 905-1828/ 974) -90.0 W49-W55 S17-S12
      6 1915  923 (S20W69 L=147)   724     74        1 (1900/ 888-1939/ 962)  23.2 W66-W74 S22-S18
      7 1452  916 (S08W24 L=101)   305     72        1 (1414/ 889-1481/ 941) -63.4 W21-W25 S09-S05
      8 1528  776 (S18W27 L=105)   245     69        0 (1511/ 745-1550/ 807)  56.3 W25-W29 S19-S16
      9  438  574 (S12E49 L= 29)  2167    337        5 ( 372/ 483- 549/ 688)  52.4 E57-E41 S17-S04
     10  896  601 (S17E16 L= 62)   412    103        0 ( 883/ 549- 911/ 652)  81.9 E17-E14 S20-S13
     11 1603  582 (S33W33 L=110)  1019    117        3 (1542/ 555-1653/ 615)   0.0 W27-W38 S36-S30
     12  325  567 (S11E60 L= 17)   891     70        1 ( 294/ 531- 355/ 606) -78.7 E64-E56 S13-S08
     13 1184  510 (S28W00 L= 78)   373     88        0 (1161/ 469-1207/ 554)  59.0 E01-W02 S30-S25
     14  301  506 (S16E69 L=  9)  1890    110        3 ( 267/ 463- 334/ 543)  71.6 E77-E62 S18-S12
  

    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