Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1380 1384 (N17W32 L= 54)   216     46        1 (1362/1361-1404/1404)  14.0 W29-W33 N15-N18
      2  708 1043 (N16E18 L=  5)  2339    526        5 ( 571/ 912- 894/1239) -63.4 E23-E09 N04-N30
      3  976 1209 (N18W02 L= 25)   330    101        0 ( 932/1189-1031/1235) -51.3 W00-W05 N15-N20
      4 1128 1170 (N12W10 L= 33)   324     80        4 (1094/1134-1160/1205) -90.0 W08-W11 N09-N14
      5  156 1133 (N33E68 L=315)   519    102        0 ( 131/1084- 183/1169) -24.4 E74-E63 N29-N34
      6  408  986 (N19E40 L=343)   258     92        0 ( 361/ 972- 448/1000)  -8.1 E43-E36 N18-N20
      7 1767  827 (S27W44 L= 67)   465     60        0 (1734/ 807-1795/ 848)   0.0 W40-W47 S27-S25
      8  390  769 (N07E47 L=336)   471     91        0 ( 354/ 738- 418/ 815)  23.2 E50-E43 N05-N09
      9 1581  620 (S33W25 L= 48)  1017    166        1 (1525/ 555-1624/ 681)  29.1 W19-W29 S36-S29
     10 1458  509 (S37W13 L= 36)   558    118        1 (1399/ 493-1514/ 530) -12.5 W08-W17 S38-S34
     11  574  367 (S21E51 L=332)   400     84        0 ( 555/ 340- 601/ 401)  51.3 E53-E48 S23-S18
     12 1259  324 (S44E07 L= 16)   651     80        1 (1226/ 288-1301/ 357)  26.6 E10-E02 S46-S42
     13 1189  259 (S47E16 L=  7)   462     68        0 (1169/ 236-1221/ 290) -68.2 E18-E13 S49-S43
     14 1123  225 (S48E23 L=360)   342     32        0 (1103/ 207-1147/ 245) -76.0 E24-E21 S49-S45
  

    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