Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1503 1673 (N48W45 L=249)   640     69        1 (1468/1651-1539/1690)  10.3 W39-W50 N45-N49
      2 1636 1631 (N44W60 L=264)   904     96        2 (1593/1608-1682/1651)   6.3 W51-W69 N42-N45
      3 1008 1562 (N38E03 L=201)   292     64        1 ( 979/1538-1041/1589)  31.0 E05-W00 N35-N39
      4  312 1503 (N30E64 L=140)   801     91        1 ( 282/1457- 348/1529)  78.7 E69-E60 N26-N31
      5 1073 1486 (N32W02 L=206)   326     72        1 (1048/1448-1105/1520) -59.0 W00-W04 N29-N34
      6 1062 1341 (N23W02 L=206)   359     72        3 (1038/1297-1089/1382)  71.6 W00-W03 N19-N25
      7  169 1173 (N08E68 L=136)   744    114        0 ( 151/1116- 188/1225) -36.9 E72-E63 N04-N10
      8 1470 1087 (N08W28 L=232)  1133    307        0 (1386/ 960-1531/1200) -57.3 W22-W32 N00-N14
      9 1614 1089 (N08W39 L=243)   498    165        1 (1592/1038-1658/1172) -76.0 W37-W42 N04-N12
     10 1708  823 (S08W48 L=252)  1050    220        0 (1660/ 744-1755/ 921)  61.4 W44-W51 S13-S02
     11  180  732 (S20E70 L=134)   800     76        1 ( 159/ 698- 197/ 772)  33.7 E77-E65 S22-S16
     12 1623  602 (S23W45 L=249)  1364    181        5 (1558/ 543-1684/ 664)  41.2 W39-W49 S26-S18
     13  665  608 (S25E23 L=181)   946    165        2 ( 598/ 570- 745/ 658) -11.3 E27-E17 S27-S21
     14  475  599 (S26E39 L=165)   299     83        0 ( 436/ 579- 506/ 633)  29.7 E42-E35 S27-S23
     15 1130  217 (S56W16 L=220)  2867    373        6 ( 960/ 186-1298/ 250)   3.3 E02-W33 S59-S51
  

    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