Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  598 1562 (N37E35 L=103)  2410    390        4 ( 441/1467- 782/1627) -12.2 E54-E17 N31-N42
      2  338 1499 (N32E60 L= 78)   711     70        1 ( 312/1466- 369/1534) -26.6 E66-E56 N29-N33
      3 1147 1432 (N29W08 L=146)  1042    269        2 (1035/1400-1275/1467)  -3.4 W00-W17 N26-N31
      4  383 1431 (N28E51 L= 87)   352     49        1 ( 364/1409- 410/1455) -71.6 E52-E47 N26-N29
      5 1061 1102 (N08W02 L=140)   204     48        0 (1035/1081-1088/1121) -33.7 W00-W03 N06-N09
      6  471  942 (S02E36 L=102)   546    164        0 ( 402/ 903- 517/1001)  29.1 E41-E32 S04-N01
      7  977  789 (S11E03 L=135)   201     56        0 ( 963/ 759-1001/ 811)  71.6 E03-E01 S12-S09
      8 1060  747 (S14W02 L=140)   290     63        0 (1042/ 716-1083/ 774)  76.0 W01-W03 S15-S11
      9 1590  572 (S26W42 L=180)  1579    252        1 (1551/ 483-1643/ 692) -53.7 W37-W51 S32-S17
     10  890  614 (S23E09 L=129)   437    104        0 ( 833/ 599- 946/ 632)   7.1 E12-E04 S23-S21
     11 1674  559 (S27W51 L=189)   531     73        1 (1651/ 526-1701/ 596)  78.7 W49-W54 S29-S24
     12  636  395 (S39E32 L=106)  1326    209        1 ( 566/ 344- 707/ 489)  31.4 E41-E23 S43-S31
     13  929  214 (S56E10 L=128)   445     34        0 ( 904/ 200- 957/ 230) -18.4 E12-E06 S57-S54
  

    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