Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1341 1627 (N35W39 L=169)   614    158        2 (1266/1608-1407/1643) -15.3 W33-W44 N32-N37
      2  729 1435 (N38E11 L=119)   800    178        3 ( 673/1366- 782/1476) -56.3 E15-E07 N32-N41
      3  469 1236 (N30E33 L= 97)  1225    245        1 ( 402/1150- 535/1330) -57.3 E38-E28 N23-N37
      4 1026 1232 (N19W05 L=135)   787    261        4 ( 911/1189-1161/1290) -42.5 E01-W11 N13-N24
      5 1286 1032 (N02W15 L=146)  1302    264        2 (1192/ 904-1352/1149) -82.9 W12-W18 S06-N10
      6  490 1026 (N17E34 L= 97)   326    131        0 ( 464/ 989- 532/1089) -66.8 E35-E31 N14-N21
      7 1905 1056 (S14W65 L=196)   711     58        2 (1885/1030-1921/1087) -76.0 W63-W67 S15-S11
      8 1831 1012 (S14W55 L=185)  1104    130        1 (1805/ 937-1855/1069)  54.5 W52-W59 S17-S10
      9  255  978 (N17E54 L= 76)   358     62        1 ( 239/ 947- 273/1011) -76.0 E56-E52 N15-N19
     10 1285  709 (S17W09 L=139)   861    170        1 (1210/ 633-1319/ 765) -58.0 W04-W11 S22-S14
     11  294  519 (S12E68 L= 63)  1211    259        1 ( 275/ 468- 329/ 573)  32.5 E73-E62 S15-S08
     12 1028  364 (S35E16 L=114)   839    160        4 ( 994/ 314-1055/ 430)  48.8 E19-E12 S38-S30
     13  593  318 (S29E50 L= 81)  1383    267        3 ( 522/ 258- 628/ 373)  39.3 E55-E44 S34-S25
  

    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