Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1109 1605 (N40E01 L=179)   604    147        0 (1050/1573-1176/1638) -16.7 E06-W04 N38-N42
      2 1264 1239 (N17W13 L=193)   663    293        1 (1207/1188-1325/1312) -29.7 W09-W17 N14-N21
      3  176  995 (S10E65 L=115)  2601    197        7 ( 130/ 915- 241/1060)  33.7 E74-E57 S15-S05
      4 1791  871 (S01W57 L=238)   578     81        0 (1751/ 846-1829/ 900)  -5.7 W52-W62 S02-N00
      5  668  862 (S13E21 L=160)   273     64        1 ( 641/ 839- 705/ 878)  36.9 E22-E18 S14-S11
      6 1581  775 (S08W40 L=220)   292     67        0 (1566/ 738-1600/ 810)  76.0 W38-W41 S10-S06
      7 1031  768 (S14W03 L=184)   421    126        2 ( 976/ 738-1087/ 795)  -8.1 W00-W07 S15-S13
      8 1519  737 (S11W36 L=216)   314     75        0 (1504/ 705-1540/ 784)  90.0 W34-W37 S13-S08
      9 1638  688 (S13W47 L=227)  1014    339        2 (1498/ 621-1735/ 783)  36.9 W37-W53 S18-S06
     10  616  752 (S20E24 L=156)   230    139        1 ( 565/ 738- 687/ 770)   7.1 E27-E19 S20-S18
     11 1051  614 (S24W07 L=187)   236     77        0 (1017/ 595-1077/ 640)  45.0 W04-W08 S25-S22
     12 1492  525 (S25W41 L=221)  1393    225        3 (1393/ 490-1571/ 582)  36.0 W33-W46 S28-S20
     13 1043  469 (S35W08 L=189)   484    132        0 ( 983/ 451-1108/ 493)   5.7 W03-W13 S35-S33
  

    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