Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  752 1862 (N39E49 L=181)   483    150        0 ( 737/1829- 769/1896) -36.9 E53-E45 N36-N42
      2  580 1535 (N12E41 L=189)  1047    303        0 ( 536/1399- 654/1656) -77.5 E43-E38 N03-N21
      3 1341 1229 (N12W13 L=243)  1890    440        1 (1251/1031-1470/1447) -39.6 W02-W25 N04-N23
      4 1502 1410 (N28W19 L=249)   294     44        0 (1474/1384-1525/1437) -26.6 W17-W21 N26-N29
      5  642 1345 (N02E30 L=200)   953    270        2 ( 504/1306- 745/1370)  14.0 E39-E23 N00-N05
      6  802 1214 (S02E17 L=213)  1054    252        2 ( 757/1088- 834/1328) -47.7 E22-E12 S08-N03
      7  249 1278 (S09E59 L=171)   377     72        0 ( 226/1243- 275/1317)  76.0 E60-E57 S10-S06
      8 1804  991 (N13W51 L=281)  2841    448        5 (1770/ 801-1835/1201) -54.5 W44-W60 N03-N25
      9  372 1086 (S18E43 L=187)   394    164        1 ( 339/1026- 441/1135)  54.5 E44-E38 S21-S14
     10  635 1072 (S13E24 L=206)  1073    190        3 ( 551/1022- 728/1130)  41.6 E28-E19 S17-S08
     11  169 1032 (S24E61 L=169)   587    177        1 ( 136/ 976- 213/1087)  54.5 E63-E56 S27-S20
     12 1012  711 (S25W08 L=238)  1058    364        1 ( 829/ 682-1190/ 751)  31.0 E03-W17 S30-S18
     13  475  706 (S39E30 L=201)  1560    298        4 ( 339/ 688- 626/ 733)  15.6 E42-E17 S42-S35
  

    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