Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  672 1526 (N43E20 L=156)   308     92        3 ( 644/1493- 700/1561) -50.2 E22-E17 N40-N46
      2 1609 1410 (N19W47 L=223)  2753    433        6 (1444/1340-1757/1476) -35.5 W36-W59 N11-N26
      3 1129 1265 (N19W10 L=185)   399    163        2 (1065/1217-1202/1287)  -6.3 W05-W14 N16-N20
      4 1515 1218 (N10W34 L=210)   316    106        1 (1467/1182-1561/1249) -50.2 W31-W37 N06-N12
      5 1818 1087 (S04W58 L=233)   961    241        4 (1788/1023-1838/1166)  82.9 W54-W61 S08-N00
      6  531 1093 (N16E31 L=144)   367    102        3 ( 506/1065- 561/1131)  36.9 E33-E28 N14-N18
      7 1878  983 (S12W63 L=238)  3915    560       10 (1821/ 856-1937/1131)  50.9 W55-W72 S19-S03
      8 1756  985 (S09W50 L=225)   850    267        7 (1711/ 929-1800/1055)  76.0 W45-W53 S12-S04
      9 1668  860 (S14W40 L=216)   470    142        3 (1626/ 816-1694/ 912) -90.0 W37-W42 S17-S11
     10 1026  848 (S04E02 L=173)   532    145        3 ( 967/ 814-1101/ 872)   0.0 E06-W02 S05-S02
     11 1083  655 (S17E02 L=173)  1262    431        6 ( 983/ 467-1150/ 828)  54.5 E11-W04 S28-S07
     12 1491  713 (S20W26 L=201)   262     54        1 (1475/ 682-1512/ 737)  45.0 W24-W27 S22-S19
     13  343  455 (S23E63 L=112)   901    215        2 ( 318/ 428- 366/ 486)  24.0 E68-E59 S25-S20
  

    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