Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1069 1392 (N15E07 L=238)  1257    256        1 (1016/1269-1119/1523) -51.8 E13-E01 N07-N21
      2  459 1408 (N02E45 L=200)  1092    285        2 ( 338/1383- 561/1427)  10.0 E54-E37 N00-N04
      3 1216 1177 (N06W07 L=252)   649    121        2 (1143/1126-1277/1222)  -6.3 W01-W11 N04-N07
      4  411 1125 (S15E41 L=204)   476     87        1 ( 365/1093- 449/1155)  45.0 E43-E38 S17-S12
      5 1644  988 (N07W38 L=283)  1322    246        0 (1606/ 878-1676/1122) -53.1 W32-W43 N01-N14
      6  276 1082 (S20E51 L=194)   424    140        0 ( 241/1059- 316/1121) -26.6 E54-E47 S20-S17
      7  813  802 (S25E07 L=238)   968    306        0 ( 660/ 768- 952/ 849)  32.0 E16-W00 S29-S19
      8  343  754 (S39E42 L=203)  1586    364        3 ( 227/ 707- 466/ 783)  20.6 E54-E30 S43-S34
  

    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