Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1353 1568 (N33W37 L=225)   271     76        0 (1318/1555-1393/1580) -21.8 W34-W39 N31-N33
      2 1636 1503 (N21W56 L=244)   550     80        3 (1608/1466-1661/1537)  33.7 W52-W59 N19-N23
      3 1502 1508 (N25W45 L=233)   306    104        0 (1455/1495-1560/1525) -29.7 W41-W49 N23-N27
      4 1062 1351 (N26W09 L=197)  1191    243        2 ( 975/1255-1134/1445) -71.6 W04-W11 N18-N33
      5  914 1410 (N32W00 L=189)   223     89        0 ( 880/1377- 952/1436)  21.8 E02-W03 N30-N33
      6 1277 1377 (N23W24 L=212)   294    148        0 (1200/1363-1336/1393) -12.5 W18-W27 N21-N24
      7  642 1103 (N18E23 L=165)   269     77        0 ( 616/1066- 663/1142) -68.2 E24-E21 N15-N20
      8  891 1078 (N12E07 L=181)   222    138        0 ( 836/1050- 952/1089)   0.0 E10-E03 N11-N13
      9 1246  864 (S07W10 L=198)   223    107        0 (1230/ 818-1276/ 902)  59.0 W08-W12 S09-S04
     10  985  821 (S04E06 L=182)   480    111        0 ( 937/ 786-1045/ 857) -45.0 E08-E02 S07-S01
     11 1303  597 (S25W10 L=198)  1250    435        0 (1171/ 480-1462/ 746)  27.6 E01-W22 S30-S18
     12 1115  671 (S16E01 L=187)   442    128        0 (1079/ 616-1138/ 734)  50.2 E04-W01 S18-S12
     13 1469  588 (S29W22 L=210)   978    316        1 (1364/ 475-1565/ 677)  25.2 W12-W29 S35-S25
     14  356  542 (S13E59 L=129)  1697    195        3 ( 305/ 457- 423/ 618)  80.5 E64-E52 S19-S07
     15  849  487 (S23E22 L=166)   371     87        0 ( 809/ 453- 875/ 523)  31.0 E25-E19 S25-S20
  

    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