Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1604 1564 (N22W58 L= 36)  1467    258        2 (1565/1454-1641/1670)  27.8 W48-W68 N16-N28
      2 1403 1543 (N27W40 L= 18)   897    147        1 (1338/1485-1456/1599) -84.3 W38-W42 N22-N32
      3 1058 1353 (N25W10 L=348)   442    147        1 (1022/1291-1082/1407) -90.0 W08-W11 N21-N29
      4 1387 1333 (N16W30 L=  8)   743    242        2 (1287/1262-1474/1393) -54.0 W25-W33 N09-N21
      5 1209 1358 (N22W20 L=357)   244     45        1 (1190/1335-1227/1386)  45.0 W18-W21 N20-N23
      6  912 1209 (N20E02 L=335)   192     96        0 ( 871/1193- 955/1235) -11.3 E05-W00 N19-N21
      7  650 1111 (N20E21 L=317)   509    142        2 ( 629/1035- 677/1167)  69.4 E22-E18 N15-N23
      8  132 1030 (N23E74 L=264)   828     63        0 (  97/1009- 166/1054)  -6.7 E85-E67 N21-N23
      9 1454 1005 (S04W25 L=  3)   242     98        0 (1424/ 975-1482/1054)  31.0 W22-W27 S05-S01
     10  210  815 (N09E65 L=273)   612    113        1 ( 180/ 761- 242/ 863) -54.5 E68-E61 N05-N12
     11  855  720 (S07E17 L=321)   217    107        0 ( 829/ 682- 901/ 762)  23.2 E19-E12 S08-S05
     12 1393  706 (S20W15 L=353)   357    143        0 (1319/ 683-1443/ 738)  -7.1 W10-W18 S21-S18
     13 1549  693 (S26W26 L=  4)   964    213        2 (1472/ 631-1638/ 737)   8.1 W19-W33 S27-S23
     14  758  274 (S35E43 L=295)  2359    360        2 ( 721/ 137- 809/ 458)  31.5 E72-E27 S49-S22
  

    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