Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1421 1535 (N29W40 L=229)   645    259        1 (1317/1493-1546/1578) -35.5 W33-W48 N23-N33
      2 1635 1498 (N21W56 L=245)   553     89        0 (1608/1470-1658/1539)  20.6 W51-W59 N19-N23
      3 1052 1351 (N26W08 L=197)  1180    248        4 ( 969/1257-1123/1447) -71.6 W04-W11 N18-N33
      4  909 1408 (N32W00 L=189)   248    113        0 ( 868/1375- 954/1437)   9.5 E03-W03 N30-N33
      5  635 1101 (N18E23 L=165)   291     95        0 ( 608/1063- 662/1144) -59.0 E24-E21 N15-N20
      6  849 1049 (N11E10 L=179)   268    154        1 ( 817/1000- 914/1081)  23.2 E12-E05 N08-N13
      7 1239  868 (S06W10 L=198)   206     98        0 (1223/ 826-1272/ 899)  36.9 W08-W12 S08-S04
      8  973  819 (S04E07 L=182)   462    108        0 ( 930/ 786-1027/ 855) -51.3 E08-E04 S07-S01
      9 1298  597 (S25W09 L=198)  1221    447        0 (1154/ 471-1457/ 741)  27.6 E02-W21 S30-S18
     10 1108  668 (S16E02 L=187)   401    112        0 (1075/ 621-1131/ 727)  56.3 E04-W00 S18-S12
     11 1457  580 (S30W20 L=209)   885    302        0 (1360/ 471-1547/ 670)  33.7 W12-W28 S35-S25
     12  352  546 (S13E59 L=129)  1476    187        6 ( 303/ 485- 421/ 619) -90.0 E65-E52 S17-S07
     13  839  480 (S24E23 L=166)   420     70        0 ( 804/ 449- 867/ 518)  26.6 E26-E20 S25-S21
  

    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