Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1035 1815 (N44E24 L=354)   700    123        3 ( 992/1783-1081/1846)   0.0 E27-E18 N42-N47
      2 1263 1701 (N42E02 L= 15)   380     52        0 (1238/1671-1286/1721) -36.9 E04-W00 N39-N43
      3 1329 1672 (N41W04 L= 21)   301     65        1 (1312/1642-1350/1699) -45.0 W01-W05 N38-N43
      4  536 1567 (N15E45 L=333)   579    174        1 ( 517/1495- 551/1624) -48.8 E48-E41 N10-N18
      5 1426 1591 (N38W13 L= 30)   397     90        0 (1388/1570-1465/1612)  38.7 W09-W15 N35-N40
      6 1122 1358 (N14E02 L= 15)   925    282        1 (1083/1255-1212/1482) -39.8 E07-W05 N08-N21
      7 1703 1215 (N21W39 L= 56)   315     89        0 (1683/1179-1717/1255)  90.0 W37-W39 N18-N23
      8 1879 1119 (N21W57 L= 74)  1411    269        3 (1826/ 991-1921/1211) -42.5 W50-W63 N14-N25
      9  221 1035 (S21E56 L=321)  1188    262        3 ( 199/ 912- 237/1161) -82.4 E60-E53 S28-S13
     10  675 1066 (S12E21 L=356)   907    191        0 ( 600/ 977- 734/1154)  67.4 E24-E18 S18-S06
     11 1395 1129 (N07W19 L= 36)   246     61        1 (1361/1098-1424/1150)   0.0 W16-W20 N05-N08
     12 1303  926 (S06W18 L= 35)  1161    278        3 (1211/ 802-1403/1060)  77.5 W15-W21 S15-N03
     13 1536  765 (S09W37 L= 54)   303     65        1 (1497/ 740-1567/ 794)  36.9 W35-W39 S11-S07
     14  975  757 (S23W03 L= 21)   755    182        1 ( 894/ 730-1082/ 792)  10.3 E02-W09 S25-S21
     15 1751  659 (S08W59 L= 76)  1459    238        1 (1678/ 598-1815/ 738)  57.5 W53-W63 S13-S02
  

    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