Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1623 1658 (N26W70 L= 61)  1418    239        1 (1512/1604-1715/1698) -38.7 W61-W78 N20-N32
      2 1514 1549 (N24W49 L= 41)   527    110        1 (1490/1492-1532/1599)  54.5 W46-W52 N20-N27
      3 1176 1539 (N34W25 L= 16)   836    167        1 (1099/1490-1244/1573) -56.3 W20-W27 N28-N37
      4 1203 1255 (N16W16 L=  7)   654    239        0 (1104/1201-1298/1309) -48.0 W11-W20 N10-N21
      5  795 1178 (N21E10 L=341)   256     58        1 ( 768/1146- 817/1206)  71.6 E12-E08 N19-N22
      6  476 1029 (N18E35 L=316)   610    152        1 ( 455/ 960- 502/1099)  63.4 E37-E31 N14-N22
      7 1231  771 (S12W06 L=358)  1187    573        2 (1123/ 606-1325/1007)  43.5 E03-W16 S21-N00
      8  162  811 (N09E73 L=279)   725     70        1 ( 129/ 791- 202/ 823)   0.0 E80-E65 N07-N09
      9 1427  644 (S25W16 L=  8)  1180    347        1 (1298/ 553-1567/ 721)   7.8 W05-W27 S27-S23
     10  485  584 (S08E46 L=306)   375     42        1 ( 461/ 563- 513/ 607)   0.0 E48-E43 S09-S06
     11  852  517 (S19E23 L=328)   242     93        0 ( 836/ 476- 864/ 561)  45.0 E25-E20 S21-S16
     12  624  356 (S26E47 L=305)   818    128        2 ( 591/ 305- 649/ 427)  36.0 E52-E40 S29-S21
     13  644  207 (S39E63 L=288)   761     54        1 ( 625/ 174- 658/ 233)  28.3 E73-E57 S43-S36
  

    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