Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1169 1865 (N57E27 L=357)  1443    158        1 (1087/1825-1228/1889)  10.6 E35-E17 N53-N61
      2  491 1687 (N21E61 L=322)  1919    215        1 ( 464/1591- 525/1788) -28.3 E78-E52 N15-N29
      3 1580 1670 (N57W27 L= 50)   790     82        2 (1546/1634-1610/1694)  30.3 W21-W33 N53-N61
      4 1540 1313 (N27W24 L= 47)   262    113        0 (1493/1277-1581/1346) -15.9 W20-W27 N25-N27
      5 1710 1217 (N26W40 L= 63)   533    117        0 (1681/1162-1735/1264)  74.1 W37-W42 N22-N29
      6 1781 1062 (N19W49 L= 72)  1107    126        4 (1729/1008-1824/1119) -16.7 W43-W54 N16-N21
      7 1859  903 (N13W62 L= 85)   963    125        2 (1837/ 851-1890/ 961)  82.9 W59-W65 N09-N17
      8  352  907 (S28E42 L=341)   645    131        2 ( 315/ 832- 374/ 957) -69.4 E46-E39 S32-S24
      9  705  846 (S23E14 L=  9)   208     74        0 ( 690/ 818- 725/ 884) -76.0 E15-E12 S24-S20
     10  272  810 (S36E51 L=332)   417     74        2 ( 247/ 787- 306/ 836) -15.9 E54-E46 S37-S34
     11  483  799 (S31E29 L=354)   343    119        0 ( 434/ 778- 538/ 824)  32.0 E33-E25 S33-S28
     12  631  739 (S31E17 L=  6)   273     75        0 ( 599/ 722- 666/ 763)  51.3 E19-E14 S33-S28
     13  483  411 (S61E30 L=353)   393     49        0 ( 466/ 384- 501/ 435)  50.2 E33-E26 S63-S57
     14  568  368 (S61E17 L=  6)   569     87        2 ( 527/ 338- 609/ 397)  -4.8 E23-E11 S63-S59
     15 1322  346 (S34W46 L= 69)   886     95        3 (1273/ 318-1378/ 376)  18.4 W41-W50 S37-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