Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  995 1886 (N70E16 L=129)   773     67        1 ( 965/1870-1032/1902)   0.0 E23-E09 N67-N72
      2  826 1570 (N37E19 L=126)   626    202        0 ( 766/1531- 909/1638) -26.6 E25-E11 N34-N42
      3 1693 1517 (N37W58 L=203)  1683    202        3 (1627/1465-1763/1548)   0.0 W48-W69 N33-N39
      4 1460 1480 (N34W31 L=176)   549    123        1 (1414/1441-1498/1515) -38.7 W27-W34 N30-N36
      5  496 1421 (N25E41 L=103)   314     61        0 ( 465/1399- 522/1443)  36.9 E43-E39 N23-N26
      6 1583 1361 (N26W40 L=184)   558     98        1 (1548/1321-1615/1392) -31.0 W36-W42 N23-N27
      7 1329 1363 (N25W19 L=164)   219     67        0 (1296/1345-1360/1381)   0.0 W17-W21 N24-N26
      8 1833 1163 (N13W62 L=206)   570     73        0 (1815/1125-1847/1194) -59.0 W59-W63 N10-N15
      9 1248 1016 (N03W14 L=158)   233     72        2 (1213/1002-1279/1039)  26.6 W11-W15 N02-N04
     10 1749  854 (S06W52 L=197)   515     43        2 (1722/ 830-1774/ 876)  11.3 W50-W55 S07-S04
     11  211  709 (S22E67 L= 77)  1613    123        2 ( 177/ 649- 247/ 757)  22.2 E83-E59 S27-S18
     12  420  718 (S20E42 L=103)   673     85        2 ( 380/ 695- 469/ 750)  -7.1 E45-E37 S21-S17
     13 1044  493 (S32W04 L=148)   291     91        1 (1001/ 478-1093/ 513) -15.9 W00-W07 S32-S30
     14  794  481 (S34E15 L=130)   528     74        1 ( 760/ 454- 837/ 511) -31.0 E17-E11 S36-S31
  

    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