Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  529 1593 (N56E26 L=181)   369     48        0 ( 509/1573- 562/1614)   0.0 E29-E21 N54-N58
      2  310 1224 (N35E48 L=159)   767    192        1 ( 238/1181- 399/1266) -20.2 E57-E38 N30-N38
      3 1470 1086 (S01W27 L=234)   483    117        2 (1412/1069-1534/1107) -14.0 W23-W31 S02-N01
      4 1617  822 (S20W32 L=239)   776    259        0 (1520/ 719-1690/ 896)  17.4 W22-W38 S24-S17
      5 1052  818 (S05E03 L=203)   253     54        1 (1030/ 784-1070/ 851) -90.0 E04-E02 S07-S02
      6 1662  733 (S28W34 L=241)   761    196        0 (1624/ 645-1694/ 821)  51.3 W30-W38 S32-S22
      7 1075  648 (S16E06 L=200)   206     55        1 (1056/ 621-1103/ 679)  76.0 E07-E04 S17-S13
      8 1335  593 (S26W08 L=215)   242     86        0 (1296/ 566-1368/ 628)   9.5 W04-W10 S27-S24
      9  964  501 (S22E17 L=189)  1001    304        2 ( 847/ 434-1047/ 609)  22.4 E27-E10 S24-S16
     10  474  412 (S18E56 L=151)  1009    113        2 ( 449/ 349- 501/ 457)  48.8 E61-E52 S22-S14
     11 1347  396 (S41W04 L=211)   421     75        1 (1313/ 371-1388/ 427)   9.5 W01-W07 S42-S39
     12  438  342 (S22E68 L=139)   719     64        0 ( 408/ 326- 474/ 365) -23.2 E72-E63 S23-S20
     13  710  319 (S29E43 L=164)   436     72        0 ( 675/ 298- 741/ 341)   7.1 E47-E39 S29-S26
     14 1118  246 (S46E20 L=187)   329     71        0 (1079/ 235-1153/ 259) -18.4 E22-E16 S47-S44
  

    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