Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  962 1671 (N49W14 L=349)   435     91        0 ( 935/1627- 984/1712)  74.1 W13-W15 N45-N52
      2 1156 1606 (N39W26 L=360)  1667    291        2 (1027/1565-1279/1656) -36.3 W17-W32 N33-N44
      3 1489 1476 (N22W42 L= 17)   630    111        1 (1464/1418-1513/1524)  66.8 W40-W46 N18-N25
      4  583 1280 (N31E24 L=310)  2140    575        5 ( 324/1165- 792/1353) -24.8 E49-E10 N20-N38
      5  663 1070 (N16E21 L=313)   408    170        0 ( 622/1025- 715/1099) -31.0 E24-E17 N14-N18
      6  136  940 (N15E73 L=261)  2983    171        2 ( 108/ 862- 181/1022) -68.2 E79-E65 N10-N20
      7 1251  872 (S06W10 L=345)   597    270        1 (1165/ 775-1307/ 983)  33.7 W03-W15 S11-N00
      8 1696  899 (S16W41 L= 15)  1290    258        5 (1631/ 834-1778/ 970) -21.0 W36-W49 S19-S10
      9  453  923 (N11E38 L=296)   540    124        2 ( 411/ 878- 505/ 968) -49.4 E41-E35 N07-N14
     10 1107  787 (S08W00 L=335)   217     45        1 (1083/ 764-1129/ 809) -90.0 W00-W01 S09-S06
     11  862  744 (S06E15 L=319)   251     96        0 ( 814/ 714- 893/ 768) -45.0 E17-E13 S08-S04
     12  568  498 (S17E42 L=292)   270     82        0 ( 537/ 477- 611/ 518) -45.0 E43-E39 S18-S14
     13  625  340 (S29E47 L=288)   425     50        1 ( 593/ 327- 658/ 358) -21.8 E49-E43 S29-S27
  

    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