Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1616 1570 (N22W60 L= 36)  1445    243        2 (1581/1465-1651/1675)  29.1 W50-W69 N17-N27
      2 1415 1555 (N28W42 L= 18)   977    138        2 (1355/1495-1467/1611) -90.0 W39-W44 N22-N32
      3 1077 1374 (N26W12 L=348)   351    116        0 (1030/1326-1106/1408) -80.5 W10-W13 N23-N29
      4 1234 1372 (N22W22 L=358)   246     42        0 (1217/1347-1254/1399)  45.0 W20-W23 N20-N23
      5 1359 1383 (N19W30 L=  6)   292     97        0 (1310/1362-1405/1398) -38.7 W27-W32 N17-N21
      6  670 1112 (N20E20 L=316)   476    143        0 ( 652/1042- 696/1169)  66.8 E21-E17 N15-N22
      7  136 1031 (N23E73 L=263)  1588    115        1 (  91/1006- 182/1066)  -6.8 E89-E64 N21-N24
      8 1479 1022 (S04W27 L=  3)   244     90        0 (1447/ 984-1507/1065)  38.7 W23-W29 S05-S01
      9  223  813 (N09E63 L=273)   501    106        0 ( 190/ 765- 254/ 863) -54.5 E65-E60 N05-N12
     10  759  783 (S01E21 L=315)   262     64        1 ( 734/ 756- 785/ 816)  63.4 E22-E19 S02-N00
     11 1428  723 (S20W18 L=354)   472    176        1 (1347/ 691-1473/ 775)   0.0 W12-W21 S21-S17
     12 1566  699 (S26W27 L=  3)   879    161        1 (1503/ 650-1641/ 744)   4.8 W21-W33 S27-S23
     13  775  282 (S34E41 L=296)  2780    394        6 ( 731/ 128- 832/ 473) -90.0 E78-W00 S50-S21
  

    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