Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  521 1708 (N25E56 L=298)  1061    186        1 ( 482/1636- 571/1798) -21.4 E74-E46 N19-N31
      2  721 1740 (N30E41 L=313)   865    133        1 ( 662/1697- 782/1778) -15.9 E48-E34 N28-N32
      3  938 1519 (N20E17 L=337)   246    124        0 ( 886/1498- 996/1551)   0.0 E20-E13 N19-N21
      4 1106 1509 (N23E06 L=348)   278     36        0 (1079/1486-1134/1532)   0.0 E08-E04 N21-N24
      5 1459 1479 (N31W17 L= 11)   543    142        0 (1399/1434-1525/1520) -11.3 W12-W22 N29-N32
      6 1101 1438 (N18E05 L=349)   356     94        0 (1072/1387-1125/1479) -51.3 E07-E02 N15-N20
      7 1814 1122 (N19W51 L= 45)  1024    225        0 (1734/1047-1870/1205) -19.7 W42-W58 N15-N21
      8  393  968 (S23E40 L=314)   316     83        0 ( 358/ 943- 419/1004)  45.0 E43-E38 S24-S20
      9  207  927 (S28E59 L=295)   367     68        0 ( 179/ 902- 235/ 959)  26.6 E63-E55 S29-S25
     10  519  863 (S27E29 L=325)   724    211        1 ( 441/ 818- 578/ 950)  48.0 E34-E25 S30-S20
     11  645  705 (S34E17 L=336)   823    264        0 ( 542/ 650- 769/ 767)  34.5 E25-E09 S39-S27
     12  952  718 (S26W03 L=357)   207     43        0 ( 926/ 704- 976/ 734)   0.0 W01-W04 S27-S24
     13 1717  648 (S10W56 L= 50)   332     36        0 (1696/ 623-1732/ 671) -56.3 W53-W58 S11-S08
     14 1153  579 (S29W20 L= 14)   225     94        0 (1111/ 545-1190/ 606)  63.4 W18-W21 S32-S26
     15  943  400 (S47W13 L=  7)   284     67        0 ( 906/ 387- 984/ 416)  26.6 W10-W16 S48-S44
  

    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